Perulangan While Do adalah statement perulangan akan terus
melakukan suatu proses selama kondisi/syarat yang ditentukan bernilai benar.
ini adalah contoh perulangan manggunakan while do
pertama kita buka dulu Borland Delphi 7 dulu,,
kalau nggak tau caranya klik disini
berikut ini penulisan perintah dan hasilnya:
lalu klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,
tekan 'enter'
'enter' lagi sampai 9x
hasilnya berulang sampai 10x,,
intinya
var
i:integer;
begin
i:=1;
while i<=10 do
begin
writeln(i,'yadika');
i:=i+1;
readln;
end;
end.
___________________________________________________________________________________
While do dengan menjumlahkan hasil perulangan
cara buka delphi seperti diatas,,,
berikut contoh perulangannya :
jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,
intinya
var
jum,a,i:integer;
begin
i:=1; jum:=0;
while i <=10 do
begin
a:=i;
jum:=jum+a;
writeln(a);
i:=i+1;
end;
writeln('jumlah=',jum);
readln;
end.
___________________________________________________________________________________
While do dengan memunculkan bilangan ganjil
cara buka delphi seperti diatas,,,
berikut contoh perulangannya :
jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,
intinya
var
A,i:integer;
begin
i:=1;
while i <=10 do
begin
A:=i*2-1;
writeln(A);
i:=i+1;
end;
readln;
end.
___________________________________________________________________________________
While do dengan memunculkan bilangan genap
cara buka delphi seperti diatas,,,
berikut contoh perulangannya :
jangan lupa klik 'play' atau tekan F9 pada keyboard,, muncul seperti gambar dibawah ini,,,
intinya
var
A,i:integer;
begin
i:=1;
while i <=10 do
begin
A:=i*2;
writeln(A);
i:=i+1;
end;
readln;
end.
itulah hasil percobaan perulang While Do dengan menggunakan delphi 7
keterangan perintah-perintah delphi 7 klik disini
selamat mencoba
