cara tukar isi bejana dengan pascal

 Berjumpa lagi di postingan saya kali ini.

Di sini saya akan membahas cara tukar isi bejana dengan menggunakan pascal'

Pascal adalah :salah satu bahasa pemrograman komputer yang umumnya digunakan sebagai pengantar untuk mulai belajar algoritma dan pemrograman.

Versi Pascal yang sangat dikenal oleh orang banyak adalah Turbo Pascal buatan Borland International yang bekerja di lingkungan sistem operasi DOS . Sampai saat ini Turbo Pascal sudah mengeluarkan TurboPascal-7.0 sedangkan Pascal sendiri sudah mencapai versi 2.4.0

kalian bisa mencoba aplikasi turbopascal yang penampilannya seperti gambar di atas.

kalian hanya perlu menulis rangkaian kata demi kata dengan hati-hati,karna ketinggalan satu komponen saja bisa menyebabkan sistem tidak berjalan walaupun hanya titik (.) .

cara nya sebagai berikut :

program Tukar_isibejana;
uses crt;
var
        BejanaA : string;
        BejanaB : string;
        Temp : string;
begin
clrscr;
        write('masukkan isi Bejana A : ');
        readln(BejanaA);
        write('masukkan isi Bejana B : ');
        readln(BejanaB);
     
        Temp := BejanaA;
        BejanaA := BejanaB;
        BejanaB := Temp;
        writeln;
        writeln('isi bejana A adalah =  ',  BejanaA);
        writeln('isi bejana B adalah =  ',  BejanaB);
        readln;
end.

 lalu tekan f9,dan kalian akan mendapati gambar di bawah ini jika codingan kalian berhasil.

selanjutnya tekan ctrl+f9

       -masukkan isi bejananya sesuai yang di inginkan,jika mendapati gambar seperti di bawah,berarti codingan kalian berhasil!

terimakasih........