Tugas Pemrograman Komputer 1

Bagi teman-teman yang sedang belajar Pascal, bisa melihat contoh berikut ini tentang for to do.

Program For_to_do;
Uses Wincrt;
Var
a:longint;
Begin
For a:=1 to 5 do
Writeln (a,' . Pemrograman Komputer');
End.

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

Program Repeat_until;
Uses Wincrt;
Var
a:longint;
Begin
a:=0;
Repeat
a:=a+1;
Writeln (a,' . Pemrograman Komputer');
Until a>4;
End.

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

Program While_do;
Uses Wincrt;
Var
a:longint;
Begin
a:=0;
While a<5 do
Begin
a:=a+1;
Writeln (a,' . Pemrograman Komputer');
End;
End.

Posted in: for to do,pascal,pengulangan,repeat until,while do