Membuat Deret Bintang Pada Pascal

Pada kali ini saya akan memberikan source code untuk membuat deret bintang pada pascal.
agar tidak bertele-tele, langsung saja kepada programnya ya ^^
uses crt;
var
a,b,c,d,e,f:integer;
begin
clrscr;
writeln('=======Deret Bintang=======');
writeln;
write('masukan nilai yang ingin di jadikan deret = ');readln(a);
for b:= 1 to a do begin
for c:= 1 to b do
write('*');
writeln;
end;
begin
c:= a - 1;
for d:= c downto 1 do begin
for e:= 1 to d do
write('*');
writeln;
end;
readln;
end;
end.

jika anda ingin outputnya bukan bintang, maka ubah pada bagian write('*);
sekian postingan kali ini, semoga bermanfaat.

mari kita belajar bersama ^^

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

Tags: Komputer