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 :
program pascal dengan menggunakan procedureuses wincrt; procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string); var ruangan5 : string; begin ruangan5 := ruangan4; ruangan… Read More...
mencari macam-macam operasi dengan program pascaluses wincrt; var x,y : integer; O1,O2,O3,O4 :real; begin write ('masukkan nilai x = '); read (x); write ('masukkan nilai y = '); read (y);… Read More...
mencari luas segitiga menggunakan program pascaluses wincrt; const t = 5; var a : integer; l : real; begin write ('masukkan nilai alas… Read More...
mencari luas lingkaran menggunakan program pascaluses wincrt; const t = 5; var spd,spa : integer; l :real; begin write ('masukkan nilai sisi pendek = '); readln (spd); write ('masukkan … Read More...
mencari tahun kabisat menggunakan pascaluses wincrt; var tahun : integer; begin write ('masukan tahun :'); readln (tahun); if (tahun mod 100 = 0) then &n… Read More...
mencari luas bola dengan program pascaluses wincrt; type bulat = integer; desimal = real; var v : desimal; r : bul… Read More...
mencari volume balok menggunakan program pascaluses wincrt; var a,b,c : integer; v : real ; begin write ('masukkan panjang balok = '); readln (a); write ('masu… Read More...
mencari nilai rata2 mahasiswa menggunakan program pascaluses wincrt; var nama,nim:string; nt,nmt,na:integer; nr :real; begin writeln (' DAFTAR NILAI MAHA… Read More...
Cara Mencari nilai rata-rata menggunakan pascalbaikalah sekarang kita coba lihat contoh mencari nilai rata2 ,,, cekedot.. uses wincrt; var nama,nim:string; nt,nmt,na:integer; nr :real; … Read More...
mencari luas trapesium menggunakan program pascaluses wincrt; const t = 5; var spd,spa : integer; l :real; begin write ('masukkan nilai sisi pendek = '); readln (spd); write ('masukkan n… Read More...
0 Response to "Cara Membuat bintang versi 2 menggunakan program pascal"
Posting Komentar