3_теориЛеготкина / выч методы / Лаба №1 / SPLAIN

{$N+}
program Spline;
uses crt,graph,Uspline;
Var d,mode,i:integer;
u:extended;
a,b:longint;
begin
clrscr;
m[0]:=0;m[n]:=0;
{Enter x,y}
for i:=0 to n do
begin
write('Enter x[',i,'],y[',i,']: ');readln(x[i],y[i]);
end;
MakeData;

D:=vga;mode:=2;
initgraph(d,mode,'m:\bgi');

u:=1;
repeat
putpixel(round(u*10),240-round(getSpY(u)*10),10);
u:=u+0.001;
until u>5;

readkey;
end.