• Fatmawati, S.I.Kom.
  • Pemrograman
  • 2019-12-05 08:27:29
PERULANGAN (LOOPING) REPEAT ... UNTIL

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 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.

 

Sumber : http://muhamadsuraidin.blogspot.com/2015/01/perulangan-looping-looping-merupakan.html

Add comment

Jl.Lingkar Utara Bekasi Kel. Perwira Kec. Bekasi Utara (sebelah BSI Kaliabang) Raya Bekasi KM.27 Pondok Ungu

Email : admin@smktarunabangsa.sch.id

Email : ppdb@smktarunabangsa.sch.id

Telepon : 02188981163

Whatsapp : 081319136558

Pengumuman

Kategori Berita

© 2022 SMK Taruna Bangsa Bekasi. All Rights Reserved.