Perulangan (looping)
Perulangan adalah suatu perintah yang menjalankan suatu
perintah tersebut secara terulang-ulang sampai suatu kondisi terpenuhi.
Perulangan ada 3 jenis :
- Perulangan for..do
- Perulangan while..do
- Perulangan Reapet..until
Contoh :perulangan for..do pada pascal
-
Ketikkan program berikut ,untuk menampilkan bintang.
Input:
Uses crt;
Var x,y,z,a:integer;
Begin
Clrscr;
For y:5 downto 1 do
Begin
For x:=1 to y do
Begin
Write(*’);
End;
Readln;
End;
For a:=2 to 5 do
Begin
For z:=1 to 5 do
begin
write(‘*’);
end;
readln;
end;
end.
|
Setelah itu klik file pilih save,kemudian run-kan program
dengan menekan tombolF9 pada keyboard.jika terjadi kesalahan maka akan
diberikan pesan eror.setelah program sukses maka tekan CTRL+F9 untuk
menjalankan programnya.
maka ouputnya adalah sebagi berikut:
*****
****
***
**
*
*
**
***
****
*****
|
silahkan dicoba sob. :)
Posting Komentar