PASCAL - LIRIK ANAK AYAM...????

Tadi ada praktek pascal N tantangannya membuat lirik anak ayam dengan pascal.
untung nya aku udah pernah coba.
teman-teman tentu sudah hafal lirik lagu ini kan...???
bagi yang blom hafal (mungkin masa kecilnya kurang bahagia...)
mungkin teman mengganggap tinggal ketik aja...
bisa se...
tapi ginama kalau anak ayam nya ada 1000..
hayoooo... masih mau ketik tu lirik (copas juga pasti capek..)
nggak usah capek2 deh...
ne aku kasih coding nya..

1. for ..... downto...do

program anak_ayam;
uses wincrt;
var
   a,b,c : integer;
begin
write('jumlah anak ayam = '); readln(a);
if a=0 then
   writeln('ohhhh nggak bisa');
begin
     for b:=a downto 2 do
        write('anak ayam turun ',b);
        c:=b-1;
        writeln(' mati satu tinggal ',c);
     end;
if a=2 then
   write('anak ayam turun 1 mati satu tinggal induknya');
end;
end.

2. while....do

program anak_ayam_2;
uses wincrt;
var
   a,b : integer;
begin
write('jumlah anak ayam = '); readln(a);
if a=0 then
   writeln('ohhhh nggak bisa');
begin
     while (a>=2)do
        write('anak ayam turun ',a);
        b:=a-1;
        writeln(' mati satu tinggal ',b);
     end;
if a=2 then
   write('anak ayam turun 1 mati satu tinggal induknya');
end;
end.

Artikel Terkait: