Tutorial: Membuat Program dengan Output Tanda Tambah pada Pascal

Pada tutorial kali ini, seperti judul, saya akan membahas bagaimana cara membuat program dengan output tanda tambah pada Pascal dan Delphi 7 dengan menggunakan While Do.

Listing Program Pascal:

uses crt;
var
I: Integer;

BEGIN
clrscr;
I := 1;
WHILE I <= 2 DO
GIN
             WRITELN ('    *');
             I := I + 1;
             END;

I := 1;
WHILE I<= 5 DO

          BEGIN
               WRITE ('* ');
              I := I + 1;
              END;
writeln('');

i:=1;
while i<=2 do
      begin
      writeln('    *');
      i:=i+1;
      end;
readln;
END.
       

Output:

Listing Program Delphi:

procedure TForm1.Button1Click(Sender: TObject);

var i,j,k: integer; kata:string;

begin

listbox1.Clear;

k:=5;

j:=1;

kata:= '';

i:=(k-1) div 2;

while j<=i do

begin

kata:=stringofchar(' ',1*i)+' *';

j:=j+1;

listbox1.Items.add(kata);

end;

kata:=stringofchar('*',k);

listbox1.Items.Add(kata);

j:=1;

while j<=i do

begin

kata:= stringofchar(' ',1*i)+' *';

j:=j+1;

listbox1.Items.add(kata);

end;

end;

end.

Output Program:

Semoga bermanfaat bagi kita semua, terimakasih :) jangan lupa follow twitter :)