Lagu Anak Ayam

Posted by Ketut Joko on Tuesday, July 6, 2010 Under: looping

Berikut merupakan sebuah contoh program pada pascal yang menggunakan perulangan :
program anak_ayam;
uses crt;
var n:integer;
begin
write('Masukkan Jumlah Ayam');
readln(n);
writeln('lagu anak ayam:');

if n > 1 then
repeat
writeln('anak ayam turunlah ',n);
writeln('mati satu tinggalah ',n-1);
n:=n-1;
until (n=1);
writeln('anak ayam turunlah 1');
writeln('mati satu tinggalah induknya');
readkey;
end.

ketika program tersebut di run pada pascal maka anda harus mengimput angka, misalkan 7 maka akan terlihat output sebagai berikut: