Perulangan bintang versi 1 menggunakan bahasa pemrograman pascal

            Selamat datang sebelumnya dan terima kasih telah berkunjung keblog yang sederhana ini. Berikut adalah codingan perulangan bintang versi 1 :

program Bintang_perulangan;

uses crt;

var     i,j,n:integer;

begin

        clrscr;

        writeln('+=====<>====<>===<>====<>=====+');

        writeln('|Masukkan Jumlah Bintang :    |');

        writeln('+=====<>====<>===<>====<>=====+');

        gotoxy(28,2);readln(n);

        for i :=1 to n do

        begin

                writeln('');

                for j:=1 to i do

                begin

                        write('*');

                end;

        end;

        readkey;

end.

          Berikut adalah hasil dari codingan tadi:

Terima kasih telah berkunjung dan membaca postingan ini semoga bermanfaat.