uses wincrt;
var
i,j :integer;
begin
for i := 5 downto 1 do
begin
for j := 1 to i do
var
i,j :integer;
begin
for i := 5 downto 1 do
begin
for j := 1 to i do
write (' ');
begin
for j := i to 5 do
write ('*');
end;
writeln;
end;
end.
begin
for j := i to 5 do
write ('*');
end;
writeln;
end;
end.
You May Like :
Related Posts :
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...
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...
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...
Program C++ Mencari Luas Lingkaran bagi sobat yang mencari2 Program C++ untuk Mencari Luas keliling Lingkaran atau bertanya tanya bagaimana Program Mencari Luas keliling Ling… 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...
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 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...
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...
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...
Pascal Program mencari penjumlahana. Baiklah saya akan mulai membahas yang namanya program pascal,yuk mari kita belajar pascal sama2...teman2 harus p… Read More...
0 Response to "Cara Membuat bintang versi 1 menggunakan program pascal"
Posting Komentar