Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang pengulangan.

Program Pengulangan;
Uses Wincrt;
Var
a,b:longint;
Begin
Write ('Kita akan mengulang berapa kali : '); read (b);
For b:=1 to b do
a:=1;
For a:=1 to b do
Writeln (a,'.','Aku Suka Indonesia');
End.

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang pengulangan.

Program Pengulangan;
Uses Wincrt;
Var
a,b:longint;
Begin
Write ('Kita akan mengulang berapa kali : '); read (b);
For b:=1 to b do
a:=1;
b:=b+1;
Repeat
Write (a,'. ');
Writeln ('Aku Suka Indonesia');
a:=a+1;
Until a>=b;
End.

Posted in: pascal,pengulangan