Kamis, 13 September 2012

Membuat Program Bintang di Pascal



Program Belah_Ketupat;
uses wincrt;

var
N,i,j,k : integer;

begin
writeln('=========== PROGRAM BINTANG =============');
writeln;
write ('Masukkan Batas : ');readln(N);
writeln;
for i := 1 to N do
begin
     for k := (N-1) downto i do
     begin
          write (' ');
     end;
     for j:= 1 to i do
     begin
          write('* ');
     end;
     writeln;

end;
end.





Tidak ada komentar:

Posting Komentar