Курсовая работа: Численные методы решения типовых математических задач
end;
setcolor(5);
for i:=0 to kolvo do
begin
xt:=uzlbl[i];
yt:=funktsiya[i];
putpixel(round(320+xt*32),round(240-yt*24),5);
end;
moveto(round(320+uzlbl[0]*32),round(240-funktsiya[0]*24));
setcolor(11);
for i:=0 to kolvo do
begin
xt:=uzlbl[i];
yt:=0;
for j:=0 to kolvo do yt:=yt+c[j]*vozvedenie_v_stepenb(uzlbl[i],j);
lineto(round(320+xt*32),round(240-yt*24));
moveto(round(320+xt*32),round(240-yt*24));
end;
readln;
closegraph;
end;
end;
{Основная часть программы}
BEGIN
CLRSCR;
Writeln('Программа осуществляет интерполирование функции, заданной в узлах');
Vvod(N,X,Y);
writeln(‘введите значение промежуточной точки’);
readln(d1);