PASCAL MENGHITUNG LAGU ANAK AYAM

A’ASALAMU’ALAIKUM WR.WB.

Dalam pertmuan kali ini kita akn membahas tentang program turbo pascal...

Kali saya akan membuat program menghitung lagu anak ayam di turbo pascal.

1.buka aplikasi turbo pascal anda.

Tulis code program nya di pascal anda.

Program menghitung_lagu_anak_ayam;

Uses crt;

Var

X:integer;

Begin

Clrscr;

Write(‘masukan anak ayam yang turun=’);

Readln(x);

While x >= 1 do

Begin

Writeln(‘anak ayam turun’,x,’mati 1 tinggal ‘,x-1,’ ‘);

X:= x-1;

End;

Writeln(‘anak ayam mati semua yang tinggal induknya’);

Readln;

End.

Perhatikan tanda (. , : ; ‘) jangan ada sampai yang tertinggal.

2.klik compile,atau seperti gambar di bawah ini:

3.kalau tampilan yang anda buat sama dengan yang gambar dibawah ini berakti sukses.

4.klik Run, atau seperti gambar dibawah ini:

Tulis angka berapapun di masukan anak ayam yang turun.

Contoh

masukan anak ayam yang turun =5

Selamat mencoba semoga sukses

Posted by Unknown