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 2 di program pascaluses wincrt; type LarikInt = array [1..100] of integer; var A:LarikInt; procedure TulisLarik ( A : LarikInt; N : integer); var k : integer; … 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...
program pascal dengan menggunakan procedureuses wincrt; procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string); var ruangan5 : string; begin ruangan5 := ruangan4; ruangan… Read More...
Cara menggunakan array versi 1 di program pascaluses wincrt; type LarikInt = array [1..100] of integer; var A:LarikInt; procedure BacaLarik (var A : LarikInt; N : integer); var k : integer… 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...
Cara menggunakan array versi 3 di program pascaluses wincrt; var I : integer; X : array [1..5] of integer; begin writeln ('Masukkan 5 buah bilangan integer !'); for I := 1 to 5 do &n… 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 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...
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