Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:лаба №1 крэс-05 / splain
.pas{$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.
Соседние файлы в папке лаба №1 крэс-05