Segitiga
bintang di pascal dengan for dan procedure adalah salah satu tugas yang pernah
saya kerjakan di kampus,tapi sekarang akan posting ini semoga saja ada manfaatnya bagi teman-teman yang
lagi mengeerjakan tugas pascalnya
program
bintang1;
uses wincrt;
var
x,y,z : integer;
begin
clrscr;
write
(‘masukan jumlah baris: ‘);
readln(x);
for y:=1 to
x do
begin
for z:=1 to
x-y do
begin
write(‘ ‘);
end;
for z:=1 to
y do
begin
write(‘* ‘);
end;
writeln;
end;
readln;
end.
kalau yang
ini menggunakan procedure, sebenarnya perintahnya dengan fanction, tetapi saya
lupa jadi ya pakek procedure deh. Di ganti sendiri ya kalau mau di rubah ke
fanction :D
program
bintang2;
uses wincrt;
procedure bintang(m,n:integer);
var
i:integer;
begin
if n>1
then bintang(m,n-1);
for i:=1 to
n do begin
gotoxy(m+1+n-2*i,n+1);
write(‘* ‘);
end;
writeln;
end;
procedure
bin(m,n:integer);
var i:
integer;
begin
for i:=1 to
n do begin
gotoxy(m-1+i*2-n,m*2+2-n);
end;
end;
var
n:integer;
begin
clrscr;
write(‘Masukan
Tinggkatan Bintang : ‘); readln(n);
writeln;
bintang(n,n);
bin(n,n);
readln;
end.
*
**
***
****
