Salam Anak Nias "Ya'ahowu..!"

Selamat Datang di Blog Sederhanaku ini.

Selasa, 04 Desember 2012

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.


0 komentar: