Sabtu, 17 Januari 2009

Membuat Persegi Panjang "Bintang" Dengan Pascal 1

program kotak_bintang;
uses wincrt;
var
i,j,panjang,lebar:integer;
begin
write('Masukkan panjang bintang = ');readln(panjang);
write('Masukkan lebar bintang = ');readln(lebar);
for i:=1 to lebar do
begin
for j:=1 to panjang do
begin
write('*');
end;
writeln;
end;
readln;
end.

Tidak ada komentar:

Posting Komentar

Kirim Komentar Anda
(Send Your Comment)