materiały

chałabała · komandor podporucznik

Program int03;
function intlin1(a,a1,a2,b1,b2:real):real;
begin
intlin1:=b1+(a-a1)*((b2-b1)/(a2-a1));
end;

type wect=array[1..30] of real;
var x,y:wect;
var x0,y0,n:real;
var plik1,plik2,plik3 : Text;
var i: integer;

begin
Assign(plik1,'d:\aj\laborki\d_int3.txt'); Reset(plik1);
Assign(plik2,'d:\aj\laborki\w_int3.txt'); Rewrite(plik2);
Assign(plik3,'d:\aj\laborki\x_int3.txt'); Reset(plik3);

Writeln(plik2,'Program int03');
Writeln(plik2,'=================');
Writeln(plik2);

for i:=1 to 4 do readln(plik1);
readln(plik3,x0);
writeln(plik2,'x0=',x0:10:4);
writeln(plik2,' Lp. x y');
while not Eof(plik1) do
begin
readln(plik1,x[i],y[i]);
if (x[i-1]=x[i]) then
Writeln(plik2,'Blad w danych: x',i-4,'=x',i-3)
else

begin
writeln(plik2,i-3:3,x[i]:10:4,y[i]:10:4);
if ((x0>=x[i-1]) and (x0<x[i])) or ((x0>x[i-1]) and (x0<=x[i])) then
y0:=intlin1(x0,x[i-1],x[i],y[i-1],y[i]);
i:=i+1;
end;
end;
if (x0<x[4]) or (x0>x[i-1]) then
writeln(plik2,'x0 poza zbiorem danych')
else
begin
writeln(plik2,'szukana wartosc to:');
writeln(plik2,'y=',y0:10:2);
end;

close(plik1); close(plik2); close(plik3);
end.

chałabała · komandor podporucznik

Plik z danymi do int 03
program
oblicza zmienna x
lezaca w zbiorze odcietych na podstawie interpolacji linowej
x y
5 5
16 3
17 34
34 7
45 4
56 76

!!!!!!! Dodatkowo trzeba stworzyć plik X_int03 z daną X0 !!!!!!!!!!