uses wincrt;
var
i,j :integer;
begin
for i := 1 to 5 do
begin
for j := 1 to i do
var
i,j :integer;
begin
for i := 1 to 5 do
begin
for j := 1 to i do
begin
write ('*');
end;
writeln;
end;
end.
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 3 di program pascal
- Cara Membuat bintang versi 2 menggunakan program pascal
- Cara menggunakan array versi 1 di program pascal
- Cara menggunakan array versi 2 di program pascal
- Cara Membuat bintang versi 1 menggunakan program pascal
- program pascal hitung kata dan program pascal hitung NG
- Pascal Program mencari penjumlahan
- Contoh pascal program pengurutan data
0 Response to "Cara Membuat bintang versi 2 menggunakan program pascal"
Posting Komentar