Dalam pembelajaran mata kuliah algoritma dan pemrograman saya mendapat tugas dari dosen pengampu mata kuliah untuk membuat program sederhana syair lagu anak ayam menggunakan Turbo Pascal.
Disini saya akan berbagi sedikit pengalaman dengan memberi sintaks dalam pembuatan syair lagu anak ayam.
Program_AnakAyam;
uses wincrt;
var
n, i :integer;
begin
read (n);
writeln ('anak ayam turun', n);
for i := n downto 2 do
writeln ('anak ayam turun',i,', mati satu tinggal ',i-1);
writeln ('anak ayam turun 1, mati satu tinggal induknya');
end.
Semoga bermanfaat untuk teman-teman semua...
0 komentar:
Posting Komentar