prosze was o pomoc w przy narysowaniu schematu blokowego do tego zadania. Będę bardzo wdzięczny.:
program tdwuwymiarowa;
uses crt;
var a1,b1,i,j,n,pot: integer;
a:array[1…10,1…10] of integer;
begin
writeln;
writeln(‘rozwiniecie sumy dwumianu podniesionego do potegi n do postaci wielomianu n-tego stopnia’);
writeln(‘podaj potege’);
read(n);
for i:=1 to n+1 do
begin
for j:=1 to n+1 do
begin
pot:=i;
if j<=pot then
begin
if j=1 then a[i,j]:=1 else
if i=j then a[i,j]:=1 else
a[i,j]:=a[i-1,j]+a[i-1,j-1];
write(’’,a[i,j]);
end;
end;
writeln;
end;
writeln;
write(’ (a+b)^’,n,’=’);
a1:=0;
b1:=n;
for j:=1 to n+1 do
begin
a1:=a1;
b1:=b1;
write(’+’,a[n+1,j],‘a^’,n-a1,’*b^’,n-b1);
a1:=a1+1;
b1:=b1-1;
end;
readkey;
end.
źródło: