Looping

PERULANGAN (LOOPING) REPEAT ... SAMPAI

PERULANGAN (LOOPING) ULANGI ... SAMPAI



PERULANGAN (LOOPING)



Perulangan (pengulangan) merupakan bentuk yang sering ditemui dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan statemen Untuk , While-Do dan Ulangi…. Hingga. Perulangan Ulangi..until dapat membentuk perulangan repeat..until dan repeat..until tersarang.



ULANG PERNYATAAN..UNTIL

Pernyataan perulangan ini hampir sama dengan keputusan pengulangan sementara, dan biasanya digunakan jika jumlah tidak dapat ditentukan pada saat program ditulis. Perbedaan mengakui reeat ... sampai dan sementara terletak pada memeriksa kondisi kondisi.



Jika pada persetujuan sementara, kondisi di cek pada awal kalang, sedangkan pada saat konfirmasi ulangi..sampai, kondisi di cek pada akhr kalang.



Perbedaan yang lain, ketika dinyatakan selama kondisi masih terpenuhi, sementara dinyatakan ulang. Bentuk umum dianggap repeat..until adalah sebagai berikut


repeat
(pernyataan - keputusan yang akan diulang)
sampai kondisi


Contoh:

Program Perulangan_Repeat_Until;
menggunakan crt;
Var i: byte;
Mulai
clrscr;
i: = 1;
Ulangi Tulisan
('Tidak');
Writeln (i);
i: = i +1;
Sampai i> 5;
Readln;

Akhir.

Hasil

No 1
No 2
No 3
No 4
No 5


PERNYATAAN REPEAT..UNTIL TERSARANG

Ulangi sampai bersarang adalah suatu perulangan yang berulang..sampai yang ada di dalam perulangan ulangi unti yang lain.

contoh

menggunakan crt;
var
a, b, c: nyata;
mulai
clrscr;
writeln ('==============================');
writeln ('sisi a sisi b sisi c');
writeln ('==============================');
a: = 1;
ulangi
b: = 0;
ulangi
c: = sqrt (a * a + b * b);
writeln (a: 6: 2, b: 11: 2, c: 12: 2);
b: = b + 5;
sampai b> 25;
a: = a +1;
sampai a> 3;
writeln ('=================================');
baca;

akhir.