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 :
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...
Cara Membuat perulangan for anak ayam menggunakan program pascaluses wincrt; var a,i : integer; begin write ('Anak ayam yang turun = '); readln (a); for i:= a downto 1 do begin if i=1 then write ('An… Read More...
Cara Membuat bintang versi 1 menggunakan program pascaluses wincrt; var i,j :integer; begin for i := 5 downto 1 do begin for j := 1 to i do &nb… Read More...
Cara Membuat bintang versi 2 menggunakan program pascaluses wincrt; var i,j :integer; begin for i := 1 to 5 do begin for j := 1 to i do begin &… 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...
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 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 luas segitiga menggunakan program pascaluses wincrt; const t = 5; var a : integer; l : real; begin write ('masukkan nilai alas… 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...
program pascal dengan menggunakan procedureuses wincrt; procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string); var ruangan5 : string; begin ruangan5 := ruangan4; ruangan… Read More...
0 Response to "Cara Membuat bintang versi 2 menggunakan program pascal"
Posting Komentar