Pengulangan Dengan DELPHI7

Igin berbagi sedikit tentang program perulangan menggunakan delphi7. Dan berikut ini adalah tampilannya :

 

 Dan  inilah Source Code nya :

program Project14;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x,lagi:integer;
begin
writeln ('Seberapa Banyak ungkapan Sayang yang Kamu ingin Aku Ucapkan?');
writeln ('=================================');
readln (lagi);
    x:=1;
  while x <= lagi  do
begin
    writeln ('I     ','no.',x,' = ','Aku Sayang Kamu!!','     I');
    x:=x+1;

readln;
 end;
 writeln ('=========================================');
 writeln ('Apakah Benar Hanya Segitu?');
 writeln ('??????????????????????');
 writeln (' ');
 readln;
end.

Posted by tobi

Tweet