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 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 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...
Contoh pascal program pengurutan dataprogram pengurutan data; uses wincrt; const NilaiMaksimum = 1000; type Larik = array[1..NilaiMaksimum] of integer; var L : Larik; batas : in… Read More...
program pascal hitung kata dan program pascal hitung NGdapat tugas pascal ni kemaren cara buat program pascal hitung kata dan program pascal hitung NG , izinkan saya berbagi..hehehhe program Hit… Read More...
Contoh program pencarian beruntun bagi duauses wincrt; var L : array [1..100] of integer; n1,x1,m,hasil :integer; function BinarySearch2(n :integer; x : integer) : integer; var i,… Read More...
Program pascal Pengurutan gelembungProgram Pengurutan_gelembung; uses wincrt ; type Larik = array [1..1000] of integer; Var H : Larik; stop : integer; Procedure Input ( Var H… Read More...
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...
Pascal Program mencari penjumlahana. Baiklah saya akan mulai membahas yang namanya program pascal,yuk mari kita belajar pascal sama2...teman2 harus p… 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 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...
0 Response to "Cara Membuat bintang versi 2 menggunakan program pascal"
Posting Komentar