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 menggunakan array versi 3 di program pascal- Cara Membuat bintang versi 2 menggunakan program pascal
- Contoh pascal program pengurutan data
- program pascal hitung kata dan program pascal hitung NG
- Contoh program pencarian beruntun bagi dua
- Program pascal Pengurutan gelembung
- Cara menggunakan array versi 2 di program pascal
- Pascal Program mencari penjumlahan
- Cara Membuat perulangan for anak ayam menggunakan program pascal
- Cara menggunakan array versi 1 di program pascal
0 Response to "Cara Membuat bintang versi 2 menggunakan program pascal"
Posting Komentar