program pascal dengan menggunakan procedure

uses wincrt;

procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string);

var
ruangan5 : string;
begin
ruangan5 := ruangan4;
ruangan4 := ruangan3;
ruangan3 := ruangan2;
ruangan2 := ruangan1;
ruangan1 := ruangan5;

writeln ('Yang lagi ngumpul siapa aja...? ',ruangan1,' ', ruangan2,' ', ruangan3,' ', ruangan4);
end;

var
ruang1, ruang2, ruang3, ruang4 : string;
begin
write ('Siapakah di ruang 1 = ');
readln (ruang1);
write ('Siapakah di ruang 2 = ');
readln (ruang2);
write ('Siapakah di ruang 3 = ');
readln (ruang3);
write ('Siapakah di ruang 4 = ');
readln (ruang4);
ganti (ruang1, ruang2, ruang3, ruang4);
writeln ('Siapa yang lagi berduaan : ',ruang1,' & ', ruang2);
end.

You May Like :

Share on Facebook

Share on Twitter

Share on Google+

Share on LinkedIn