CONTOH PERULANGAN PADA PASCAL

 

Contoh Perulangan Pada Pascal

Contoh pertama:
Uses crt;
Var
I,j,n,m:integer;
Begin
Clrscr;
Writeln(‘masukan angka:’);readln(m);
J:=m;
For j:=1 to j do
Begin
For n:=1 to j do
Write(n);
Writeln;
End;
Readln;
End.

Outputnya:
Masukan angka:8
1
12
123
1234
12345
123456
1234567
12345678

Logikanya:
Uses crt adalah statement awal dari pascal
Var untuk menulis variable yaitu i,j,n,m
Begin untuk memulai
Clrscr untuk menghapus layar pada pascal
Writeln untuk menulis variable dan kursor dilatakan di bawah
For j adalah dimana variable j dapat difungsikan
For n adalah dimana variable n dapat difungsikan
Writeln untuk menulis dan kursor diletakan di bawah
Readln untuk membaca data, kursor dipindahkan di baris berikutnya
End untuk selesai


Contoh kedua:
Uses crt;
Var
I,j,n,m:integer;
Begin
Clrscr;
Write(‘masukan angka’);readln(n);
For j:=n downto 1 do
Begin
For n:=j downto 1 do write(n);
Writeln;
End;
Readln;
End.

Outputnya:
Masukan angka:8
87654321
7654321
654321
54321
4321
321
21
1

Logikanya:

Uses crt adalah statement awal dari pascal
Var untuk menulis variable yaitu I,j,n,m
Begin untuk memulai
Clrscr untuk menghapus layar pada pascal
Writeln untuk menulis variable dan kursor dilatakan di bawah
For j adalah dimana variable j dapat difungsikan
For n adalah dimana variable n dapat difungsikan
Down to dimana prosesnya semakin kebawah berkurang satu
Writeln untuk menulis dan kursor diletakan di bawah
Readln untuk membaca data, kursor dipindahkan di baris berikutnya
End untuk selesai