Ф. Лагранжа, начертить график по формуле лагранжа на отрезке

[Астасья]

Начертить график на отрезке а,в???помогите...вроде всё есть вот только график не получается

program gf;uses crt;
const n=5;v=10;
var x,y,ak:array [0..n] of real;
    Pnx,xx,a,b,c,w:real;k,j:integer;
begin
x[0]:=10; y[0]:=45;
x[1]:=20; y[1]:=56;
x[2]:=30; y[2]:=78;
x[3]:=40; y[3]:=23;
x[4]:=50; y[4]:=20;
x[5]:=60; y[5]:=10;

    a:=x[0];
    for j:=0 to n do
    if x[j]<a then a:=x[j];
    writeln('min=',a);

    b:=x[0];
    for j:=0 to n do
    if x[j]>b then b:=x[j];
    writeln('max=',b);

c:=(b-a)/v;writeln('шаг=',c);
for k:=0 to n do
 begin
 ak[k]:=1;
  for j:=0 to n do
  if (j<>k)then ak[k]:=ak[k]*(x[k]-x[j]);
 ak[k]:=1/ak[k];
 end;
xx:=a;
Pnx:=0;
while (xx<=b) do
begin
 for k:=0 to n do
 begin
 w:=1;
for j:=0 to n do
if (j<>k) then w:=w*(xx-x[j]);
Pnx:=Pnx+y[k]*ak[k]*w;
end;
writeln('Pnx(',xx,')=',Pnx );
xx:=xx+c;
end;
end.

[wital1984]

можете полностью написать условие?

[Астасья]

начертить график по формуле лагранжа на отрезке а,b ,где а -min ,b-max

[Астасья]

График получился=)))))Надо поставить крестики на графике по которым он был построен??ПОМОГИТЕ!!!!!!!!!


program lagr;
uses graphabc;
const n=5;m=10;
var x,y,ak:array [0..n] of real;p:array [0..m] of real;xx,pn,w,a,b,x1,x2,h,h1,f_max,kx,ky:real;i,j,k,l:integer;

begin
x[0]:=-5;y[0]:=20;
x[1]:=0.3;y[1]:=0.09;
x[2]:=0.8;y[2]:=0.64;
x[3]:=2.3;y[3]:=5.3;
x[4]:=1;y[4]:=1;
x[5]:=8;y[5]:=68.9;

for k:=0 to n do
 begin
   ak[k]:=1;
     for j:=0 to n do
      if j<>k then ak[k]:=ak[k]*(x[k]-x[j]);
   ak[k]:=1/ak[k];
 end;
for k:=0 to n do
  begin
   w:=1;
   for i:=0 to n do
      if i<>k then w:=w*(xx-x);
   pn:=pn+ak[k]*y[k]*w;
  end;
a:=x[0];
b:=x[0];
for i:=1 to n do
 begin
   if x<a then a:=x;
   if x>b then b:=x;
 end;
writeln;
h:=(b-a)/m;
x1:=a;
for l:=0 to m do
begin
x1:=a+l*h;
  pn:=0;
   for k:=0 to n do
     begin
        w:=1;
       for i:=0 to n do
         if i<>k then w:=w*(x1-x);
         pn:=pn+ak[k]*y[k]*w;
     end;
p[l]:=pn;
end;

kx:=600/(b-a);
line(0,200,600,200);
f_max:=p[m];
ky:=200/f_max;
moveto(0,round(200-ky*p[0]));
for i:=0 to m do
lineto(round(i*kx*h),round(200-ky*p));
line(0,195,0,205);
h1:=600/m;
x2:=0;
for i:=0 to m do
   begin
     line(round(x2),195,round(x2),205);
     textout(round(x2),210,floattostr(a+(b-a)/m*i));
     x2:=x2+h1;
   end;
end.

[Астасья]

кто-нибудь поможет??