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 :
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
- Contoh program pencarian beruntun bagi dua
- Cara menggunakan array versi 1 di program pascal
- Pascal Program mencari penjumlahan
- Cara menggunakan array versi 2 di program pascal
- Cara Membuat perulangan for anak ayam menggunakan program pascal
- Program C++ Mencari Luas Lingkaran
0 Response to "Cara Membuat bintang versi 1 menggunakan program pascal"
Posting Komentar