Program SegitigaPascal;
Program SegitigaPascal;
uses crt;
var num:array[1..100] of longint;
i,j,n,batas:integer;
begin
clrscr;
Writeln('-----------------------------------------------------------');
Writeln('* *');
Writeln('* Program Segitiga Pascal *');
Writeln('* *');
Writeln('-----------------------------------------------------------');
Writeln;
write('Masukkan nilai n : ');
readln(n);
num[1]:=1;
writeln(1);
for i:=1 to n do
begin
batas:=(i+1) div 2;
if not odd(i) then
num[batas+1]:=num[batas]*2;
for j:=batas downto 2 do
num[j]:=num[j]+num[j-1];
for j:=1 to batas do
write(num[j],' ');
if not odd(i) then write(num[batas+1],' ');
for j:=batas downto 1 do
write(num[j],' ');
writeln;
end;
Writeln;
Writeln;
Writeln(' -----------------------------------------------------------');
readln;
end.
Seja o primeiro a comentar
Posting Komentar