Selasa, 19 April 2016

PASCAL PERULANGAN


Perulangan adalah sebuah perintah yang menjalankan suatu perintah tertentu berulang-ulang sampai suatu kondisi terpenuhi.disinilah letak kelebihan komputer dibanding manusia, yaitu mampu melakukan hal yang sama berulang kali tanpa kesalahan akibat bosan atau lelah(asalkan script nya bener aja ini,lau script salah berarti komputer mampu membuat kesalahan😀 ).perulangan sering dikenal juga dengan sebutan loop/looping. ada 3 jenis dari perulangan yaitu :


1. perulangan "FOR..DO"
2. perulangan "REPEAT..UNTIL"
3. perulangan "WHILE..DO"
pada perulangan FOR..DO jika di kaitkan kesuatu statement maka akan Ada tiga bentuk perulangan dengan statement for, yaitu:
1. perulangan positif , yaitu perulangan yang perhitungannya dari kecil ke besar. bentuk dari perulangan positif ini adalah “FOR..TO..DO“.
contoh :

program for_do_postiv;
uses wincrt;
var
i : integer;
begin
for i:= 1 to 5 do
writeln('pascal');
readln;
end.

aaper
2. perulangan negativ , yaitu perulangan yang perhitungannya dari besar ke kecil. bentuk dari perulangan positif ini adalah “FOR..DOWNTO..DO“.
contoh :

program for_do_negativ;
uses wincrt;
var
i : integer;
begin
for i:= 5 downto 1 do
writeln(i);
readln;
end.

aaper
3. perulangan tersarang, suatu perulangan yang didalam nya ada perulangan lainnya. berarti didalam for..do… ada for..do..lagi!
contoh :

program for_do_tersarang;
uses wincrt;
var
i,j : integer;
begin
for i:= 1 to 5 do
begin
for j:= 1 to 5 do
write(j,' ');
writeln;
end;
readln;
end.

aaper1
setelah membahas tentang for..do…selanjut nya kita akan langsung kepada bentuk perulangan dengan mengunakan repeat..until. pada repeat..until bisa juga mengunakan perulangan yg didalam nya mengunakan perulangan juga.. berikut script/code programnya :

program repeat_until;
uses wincrt;
var
i : integer;
begin
i:= 1;
repeat
i:=i+1;
writeln(i);
until i = 5;
readln;
end.

aaper1
pada program diatas i sama dengan 1 ketika akan menampilkan i ,maka rumusan dari i+1 dilakukan dan akan berhenti ketika i = 5.
nah selanjut nya tentang while..do…berikut contoh nya :

program while_do;
uses wincrt;
var
i:integer;
begin
i:=2;
while i 3 do
begin
writeln( i );
end;
readln;
end.

aaper1
pada while..do pada output menghasil bentuk perulangan terus menerus karena i tidak sama dengan 3 maka lakukan cetak 2 terus menerus, ini akan berhenti ketika i sama dengan 3 dan output ketika pendeklarasian i:=3 adalah kosong.
tambahan sedikit :
aaper1
kalau agan2 binggung coba ketik program pada gambar diatas dan bandingkan.
bonus :
ini hanya bisa dilakukan untuk compiler tertentu

program bonus ;
uses crt;
var i: byte;
begin
for i := 1 to 10 do
begin
textcolor (i) ;writeln('pascal');
end;
readln;
end.

Tidak ada komentar:

Posting Komentar