RSS

CONTOH PERULANGAN PADA PASCAL

06 Jun

 

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

 
Tinggalkan komentar

Ditulis oleh pada Juni 6, 2012 in PEMPROGRAMAN

 

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: