Блок-схема к программе

[amerten]

Блок-схема к программе

Помогите составить блок-схему и алгоритм по исходному коду программы.

program polinom;
uses crt;
var
i,j,n,k: integer;
q: char;
t:real;
x,y: array [1..50] of real;
a: array [1..50,1..50] of real;

function Pow (A,B: real):real;
Var t:real;
begin
t:=abs(a);
if a<0 then
Pow:=(-1)*exp(B*Ln(t))
else
pow:=exp(B*Ln(t));
end;

Begin
repeat
clrscr;

writeln ('Введите кол-во пар значений');
readln ;
writeln('Введите пары значений "x" и "y"');
for i:=1 to n do
begin
writeln('Введите x',i);
readln (x);
writeln('Введите y',i);
readln (y);
end;

for i:=1 to n do
for j:= 1 to n do
a[i,j]:=pow(x,j-1);

for i:=1 to n do
a[i,n+1]:=y;

for k:=1 to n-1 do
for i:=k+1 to n do
begin
t:=a[i,k]/a[k,k];
for j:=k to n+1 do
a[i,j]:=a[i,j]-a[k,j]*t;
end;

x[n]:=a[n,n+1]/a[n,n];
for i:=n-1 downto 1 do
begin
t:=0;
for j:=n downto i+1 do
t:=t+a[i,j]*x[j];
x:=(a[i,n+1]-t)/a[i,i];
end;

writeln;

writeln ('Исходная функция');
if x[1]<>0 then
write (x[1]:7:2);
for i:=2 to n do
if x<>0 then
write ('+',x:7:2,'*X^',i-1);
writeln ('=Y');

writeln ('Производная функции');
for i:=2 to n do
y:=x*(i-1);

if y[2]<>0 then
write (y[2]:7:2);
for i:=3 to n do
if y<>0 then
write ('+',y:7:2,'*X^',i-2);
writeln ('=Y');

writeln('Закончить работу?'); {завершение работы}
writeln('если да - нажмите "q"');
writeln('если нет - любую другую клавишу');
q:=readkey;
until q='q';
End.

 

[AlexZir]

Что значит составить алгоритм? А приведенный листинг разве не является одним из способов записи алгоритма? Или вам нужно пседокод написать?