uses wincrt;
var
i,j :integer;
begin
for i := 5 downto 1 do
begin
for j := 1 to i do
var
i,j :integer;
begin
for i := 5 downto 1 do
begin
for j := 1 to i do
write (' ');
begin
for j := i to 5 do
write ('*');
end;
writeln;
end;
end.
begin
for j := i to 5 do
write ('*');
end;
writeln;
end;
end.
You May Like :
Related Posts :
Cara Membuat perulangan for anak ayam menggunakan program pascal- Contoh program pencarian beruntun bagi dua
- Cara menggunakan array versi 1 di program pascal
- Program C++ Mencari Luas Lingkaran
- Cara menggunakan array versi 2 di program pascal
- program pascal hitung kata dan program pascal hitung NG
- Contoh pascal program pengurutan data
- Cara menggunakan array versi 3 di program pascal
- Program pascal Pengurutan gelembung
- Pascal Program mencari penjumlahan
0 Response to "Cara Membuat bintang versi 1 menggunakan program pascal"
Posting Komentar