Senin, 27 Februari 2012

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.