Cara Membuat Gambar Segitiga Pada Turbo Pascal

Setelah dah lama-lama ngombrol dengan Om Google, ternyata menghasilkan juga.. inilah dia.

Cara membuat Gambar segitiga di Turbo Pascal.

Inilah sintaknya :

es crt;
var i,j,jum :integer;
begin
clrscr;
write(‘masukkan banyak data: ‘);
readln(jum);
for i:=1 to jum do
begin
for j:=1 to jum-i do
begin
write(‘ ‘);
end;
for j:=1 to i do
begin
write(‘* ‘);
end;
writeln;
end;
readln;
end.