Berikut merupakan sebuah contoh program pada pascal yang menggunakan perulangan :
program anak_ayam;uses crt;var n:integer;beginwrite('Masukkan Jumlah Ayam');
readln(n);writeln('lagu anak ayam:');if n > 1 thenrepeatwriteln('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...
Continue reading ...