Dalam Pemrograman Pascal, selain fot to do, terdapat bentuk perulangan lain yang dipakai untuk batas cacahan yang tidak terdefenisi secara pasti. Bentuk tersebut adalah while do.
Operator relasi yang dipakai untuk bentuk ini adalah >, <, ≥, ≤
Bentuk penulisan dari while do yaitu:
while batas awal Operator relasi batas akhir do
begin
Pernyataan_Perulangan1;
Pernyataan_Perulangan2;
Pernyataan_Perulangan3;
end;
Contoh Program
Program_Perulangan;
uses crt;
var m,ga,gk,h,f,dg:real;
no:integer;
begin
clrscr;
write ('Massa Benda : '); readln (m);
write ('Grafitasi Awal : '); readln (ga);
write ('Grafitasi Akhir : '); readln (gk);
write ('Delta Grafitasi : '); readln (dg);
write ('Tinggi Benda : '); readln (h);
no:=1;
writeln ('____________________________________');
writeln ('Nomor Tinggi Grafitasi Gaya Berat);
writeln ('____________________________________');
while ga <= gk do
f:=m*ga*h;
writeln ('no:5,' ',h:5:0,' ',ga:5:0,' ',f:5:0);
h:=h-100;
ga:=ga+dg;
no:=no+1;
end;
writeln ('____________________________________');
readln;
end.
Selamat mencoba, semoga berhasil...!!!
Jika Anda Membutuhkan File Pernyataan Perulangan while ... do (Pascal) Versi .docx Klik Download di bawah
Belum ada tanggapan untuk "Pernyataan Perulangan while ... do (Pascal)"
Post a Comment