Membuat Program Perulanagan Bintang Pada Pascal

Berikut adalah listing program yang bisa kita gunakan unutk membuat perulangan pada bahasa pemrograman pascal.

Program perulangan;

uses crt; var

   i,j,n:integer;

begin
    clrscr;

    writeln('===========================');
    writeln('     Program Perulangan    ');
    writeln('===========================');
    writeln(' NAMA  : ARIE SAGITA       ');
    writeln(' NIM   : 18171065059       ');
    writeln('===========================');
    writeln;

    write('Masukan Jumlah Bintang : ');readln(n);
          for i:=1 to n do

    begin
          for j:=1 to i do

write('*');

          writeln;
    end;

    for i:=1 to n do
    begin

          for j:= 1 to n-i do
          write('*');
          writeln;

end;

readln; end.

Dan outputnya adalah 

Bagaimana, sangat mudah bukan.

Oke cukup sekian teman-teman, jangan lupa share kalo tutorial singkat ini bermanfaat.

Terimakasih