Javaxsource Membuat Persegi Bintang Pascal dengan Perulangan

Javaxsource Membuat Persegi Bintang Pascal dengan Perulangan

Sering kali kita bertemu dengan penggunaan perulangan pada pascal, kali ini javaxsource akan memberi penjelasan tentang perulangan yang bisa digunakan untuk membuat suatu persegi panjang.

Dibawah ini tersedia Coding untuk membuat persegi bintang dengan perulangan dalam pascal

uses crt;

var i,j,k:integer;
n:char;
begin
clrscr;
write('Masukkan Karakter :');readln(n);

for i:=1 to 2 do
begin
     for j:=1 to 10 do
     begin
     textcolor(4+i);
     write(n);
     end;
writeln();
end;
 


readkey;
end.