uses wincrt;
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.
You May Like :
Related Posts :
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...
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 tahun kabisat menggunakan pascaluses wincrt;
var
tahun : integer;
begin
write ('masukan tahun :'); readln (tahun);
if (tahun mod 100 = 0) then
&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...
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 luas bola dengan program pascaluses wincrt;
type
bulat = integer;
desimal = real;
var
v : desimal;
r : bul… Read More...
program pascal dengan menggunakan procedureuses wincrt;
procedure ganti (ruangan1, ruangan2, ruangan3, ruangan4 : string);
var
ruangan5 : string;
begin
ruangan5 := ruangan4;
ruangan… 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 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...
0 Response to "Cara Membuat bintang versi 1 menggunakan program pascal"
Posting Komentar