LOOPING DALAM PASCAL
B. PERULANGAN WHILE-DO
Looping dengan while-do mempunyaibentukseperiberikut :
whileekspresi_logika/relasido statement;
Statement while-do digunakanuntukmelakukan proses looping suatustatemen
terus-menerus selama ekspresi_logika/relasi bernilai benar atau belum terpenuhi.
Program while_do;
useswincrt;
var i:byte;
begin
i:=0;
while i < 5 do
begin
writeln(i);
i:=i+1;
end;
end.
Outputnyaadalah :
0
1
2
3
4
Ekspresirelasi-nya yaitu i < 5.Jadi jikai masih
Lebih kecil dari 5 maka statement akanterus
Diproses berulang, dan proses akan berhenti
setelahi tidak lagi lebih besar dari 5 (i > 5).
Maka dari itu di dalam statement ada i:=i+1; yang akan menambahkan nilaii satu
Persatu supaya i >5. Lihat code berikut yang mebaca input dan mengoperasi-kannya.
Kemudian adapenyeleksian input jika memenuhiakan diulangi jika tidak akan berhenti.
programcel_to_fah; uses wincrt;
varcel,fah:real; lagi:char;
begin
lagi:=’y’;
while lagi=’y’ do
begin
clrscr; {proseduruntukmenghapuslayar}
write(‘Nilaicelcius ? ‘);
readln(cel);
fah:=1.8 * cel + 32;
writeln(‘Fahrenheit = ‘,fah:5:2);
write(‘Menghitunglagi (y/t) ? ‘);
readln(lagi);
end;
end.
Di dalam looping while-do juga terdapat while-do tersarang (nested while-do). Dan
Pada prinsipnya adalah sama dengan nested for-do.
Artikel keren lainnya:
Belum ada tanggapan untuk "looping perulangan while-do"
Post a Comment