Minggu, April 19, 2009

Tukar Posisi

contoh
terdapat 2 gelas
gelas A berisi = air merah
gelas B berisi = air biru
dan isi kedua gelas tersebut harus ditukar
caranya dengan menambahkan gelas kosong yaitu gelas C

algoritma

uses wincrt;
Var
A, B, C : string ;
begin
write ( 'gelas A = ' ) ; readln ( A ) ;
write ( 'gelas B = ' ) ; readln ( B ) ;
C := A ;
A := B ;
B := C ;
writeln ( 'gelas A = ',A ) ;
write ( 'gelas B = ',B ) ;
end.

Tidak ada komentar:

Poskan Komentar