menggunakan looping for dan
procedure
saya membuat dua procedure naik dan turun jika kita pisah sendiri-sendiri maka
procedure naik akan menghasilkan output
procedure turun akan menghasilkan output
Dibawah adalah source code dari program ini
Kali ini saya menggunakan Turbo Pascal
{Program Segitiga Mengecil}
uses wincrt;
procedure naik (n,y:integer);
var
a,b,c,d,m:integer;
begin
for a:= 1 to n do
begin
for m:= 1 to y do
begin
write(' ');
end;
for b:= n downto a do
write(' ');
for c:= 1 to a do
begin
if (c=1) or (c=a) then
write(' 0')
else
write(' ');
end;
writeln;
end;
end;
procedure turun (f,s:integer);
var b,c,d,a,n:integer;
begin
a:= f-1;
for b:=1 to a do
begin
for n:= 1 to s do
begin
write(' ');
end;
write(' ');
for c:= 1 to b do
begin
write(' ');
end;
for d:= a downto b do
begin
if (d=a) or (d=b) then
write(' 0')
else
write(' ');
end;
writeln;
end;
end;
var
v,g,w:integer;
begin
w:=0;
write('masukkan jumlah maksimum 0 :');
read(v);
for g:= v downto 1 do
begin
if g>=4 then
begin
writeln('supaya setiap perubahan terlihat tekan enter');readln;
w:= w+1;
naik(g,w);
turun(g,w);
writeln;
end
else
begin
w:= w+1;
naik(g,w);
turun(g,w);
writeln;
end ;
end;
end.
Hasil Tampilannya jika kurang jelas klik gambarnya
Jika Inputannya lebih Dari 4 maka akan tampil seperti ini
ya maklum masih pemula jadi scriptnya agak ribet, Nah kalau ada dari teman-teman yang kurang jelas atau mungkin ingin menambah informasi ,silahkan anda komentari.
