Contoh Repeat Until pada Delphi

Oleh sasak media sharing

Thursday, November 21, 2013

Bagikan :

Tweet

Assalamualaikum,,

Pada postingan kali ini, adalah masih pada lanjutan dari sebelumnya yaitu mengenai While Do , apabila pada postingan sebelumnya anda sudah pahami sekarang rubah kodingnya lagi, dan maish pada contoh interface yang sama, tapi coba ganti While Do nya menjadi Repeat until,

Contoh kodingnya.


procedure TForm1.Button1Click(Sender: TObject);
var
nilai,bilangan : integer;
begin
nilai:=StrToInt(edit1.Text);
bilangan :=1;
repeat
if bilangan mod 2 = 0 then
memo1.Lines.Add(IntToStr(bilangan));
inc(bilangan);
Until bilangan > nilai;
end;
end.

Nah tinggal diganti pada button prosesnya, dan sekarang jalankan,, semoga sukses.

Tag : Delphi Programing