Кто может помочь?(курсовая Делфи)

[rmk_prod]

Здравствуйте, мне попалась для меня совсем непонятная тема под названием: "Алгоритми інтерполяції: метод парабол для розв’язування рівнянь"
у меня есть к ней код но требуется помощь по таким вопросам:
1. как ее грамотно описать
2. блок схема
Вот сам код, все работает правильно(спрашивал у преподавателя)

program Project5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var P:array[1..9] of real; n,k: integer;
    x0,x1,x,e,e1:real;
    function f(x:real):real;
    var a,b,c: real;
    i:integer;
    begin
      a:=1.0; b:=x;
      for i:=1 to round (p[1])--1 do begin
        c:=((2*i+1)*x*b--i*a)/(i+1);
        a:=b;
        b:=c;
      end;
      f:=c;
    end;
    procedure par(var x0,x1,x,e,e1:real);
    var c,d,q,r,y,w:real;
    begin
      q:=x--1;
      r:=x1-x0;
      y:=f(x1);
      c:=(f(x)-y)/q;
      x:=x0;
      repeat
        d:=y;
        y:=f(x);
        if abs(y)<e1 then exit;
        d:=(d-y)/r;
        w:=(q+r)/(c-d);
        q:=r;
        c:=d;
        r:=(d*w-r)/2;
        d:=SQRT(r*r--y*w);
        w:=r--d;
        r:=r+d;
        if abs(r)>abs(w) then r:=w; x:=x--r;
      until abs(r)<e;
    end;

begin
  repeat write('x0,x1,x,e,e1?');
  readln(x0,x1,x,e,e1);
  write('skolko parametrov?');
  readln(n);
  for k:=1 to n do begin
    write('p(',k:2,')?');
    readln(p[k]);
  end;
  par(x0,x1,x,e,e1);
  writeln(' x=',x)

 until false;
end.

[Alex11223]

И это вся курсовая? Колледж поваров что ли?

Какую помощь вы ожидаете если нет никаких конкретных вопросов?

[rmk_prod]

не совсем ,просто учим поверхностно
сможете помочь ?

[Alar]

не в том разделе запостили. закрыто.

Алгоритми інтерполяції

на форуме есть 2 языка официальных русский и английский. все остальное не приветсвуется.

закрыто