Линейная интерполяция

[Gebbellz]

x 0.3 0.4 0.5 0.6 0.7
f(x) 0,2913 0,3799 0,4621 0,5380 0,6044 f(0.87)

Есть тут на форуме билл гейтсы, которые могут помочь в составлении программы...
1) методом линейной интерполяции
2) методом Лагранжа

[Gebbellz]

Никто не знает ?

[p51x]

В чем трудности? Там же простейшие формулы...

[Gebbellz]

Сообщение от p51x

В чем трудности? Там же простейшие формулы...

если есть возможность помогите хотя б с Лагранжем..трудности в самой составлении программы.

[raxp]

>>> тырк (там-же и интерполяция, см. исходники) + еще

[Gebbellz]

Извиняюсь за назойливость, во всём разобрался, кроме метода Лагранжа....может кто подскажет:?

[Mrudda]

1 ссылка в запросе:
http://www.cyberguru.ru/cpp-sources/...lagranzha.html
неужели настолько лень?

[Gebbellz]

товарищи, помогите окончить, пожалуйста , программу...надо с переменным и постоянным шагом.. подскажите как сделать это.. вот вообщем написал что знал...

uses crt;
const n=4
label m1;
var
x:array [1..4] of real;
y:array [1..4] of real;
i,z:integer
yy,yy1,a,xx,m:real;
begin
clrscr;
m1:
for i:=1 to n do read (x[i]);
for i:=1 to n do read (y[i]);
for i:=1 to 4 do writeln(y[i]);
write ('xx=');readln(xx);
for i:=1 to n do begin
if (xx>x[i]) and (xx<=x[i+1]) then yy:=(y[i+1]-y[i])/(x[i+1]-x[i]);
yy1:=yy*(xx-x[i])+y[i];end;
writeln(xx);
writeln(yy1);

[Gebbellz]

вот написал более-менее правильную программу....но выдаёт ошибку - boolean experession expected..помогите исправить пожалуйста(

uses crt;
const n:=5;
var
x,y:array [1..5] of real;
a,yy,xx,b,h:real;
m,i,j:integer;
begin
clrscr;
for i:=1 to 5 do read(x[i]);
for i:=1 to 5 dp read(y[i]);
write('x*=');write(xx);
h:=x[1]-x[2];
a:=x[1];write(a);readkey;
m:=trunc((xx-a)/h+1);
writeln(m);readkey;
if m:=n then m:=n-1;
yy:=((y[m+1]-y[m])/h)*(xx-a-(m-1)*h)+y[m];
writeln('ответ:',yy);readkey;
end.