PERULANGAN (LOOPING) REPEAT..UNTIL
PERULANGAN (LOOPING)
Perulangan (looping) merupakan bentuk yang sering ditemui dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan statemen For, While-Do dan Repeat….Until. Perulangan Repeat..until dapat berbentuk perulangan repeat..until dan repeat..until tersarang.
PERNYATAAN REPEAT..UNTIL
PERNYATAAN REPEAT..UNTIL
Pernyataan perulangan ini hampir sama dengan pernyataan pengulangan while, dan biasanya digunakan bila jumlah belum dapat ditentukan pada saat program ditulis. Perbedaan pernyataan reeat... until dan while terletak pada pengecekkan kondisi.
Jika pada pernyataan while, kondisi di cek pada awal kalang, sedangkan pada pernyataan repeat..until, kondisi di cek pada akhr kalang.
Perbedaan yang lain, bila pernyataan selama kondisi masih terpenuhi, sedangkan pernyataan repeat ..until mengulang pernyataan selama kondisi belum terpenuhi. Bentuk umum pernyataan repeat..until adalah sebagai berikut
repeat
(pernyataan - pernyataan yang akan di ulang)
until kondisi
Contoh :
Program Perulangan_Repeat_Until;
uses crt;
Var i : byte;
Begin
clrscr;
i := 1;
Repeat
Write ('No ');
Writeln (i);
i := i + 1;
Until i > 5;
Readln;
End.
Hasilnya
No 1
No 2
No 3
No 4
No 5
PERNYATAAN REPEAT..UNTIL TERSARANG
Repeat until bersarang adalah suatu perulangan repeat..until yang satu berada di dalam perulangan repeat unti yang lainnya.
contoh
uses crt;
var
a,b,c : real;
begin
clrscr;
writeln('================================');
writeln(' sisi a sisi b sisi c ');
writeln('================================');
a := 1;
repeat
b := 0;
repeat
c := sqrt (a * a + b * b);
writeln (a:6:2, b:11:2, c:12:2);
b := b + 5;
until b > 25;
a := a+1;
until a > 3;
writeln('=================================');
readln;
end.
Programnya :
Hasilnya
PERULANGAN (LOOPING) REPEAT..UNTIL
PERULANGAN (LOOPING) REPEAT..UNTIL
10out of 10 based on 25 ratings. 35 user reviews.
|
0 comments:
Post a Comment