eyeofthetiger2509
Nowy
Dołączył: 04 Maj 2012
Posty: 1
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
Wysłany: Pią 10:59, 04 Maj 2012 Temat postu: Problem z interpolacją |
|
|
Mam tu program dotyczacy współczynników wielomianu interpolacyjnego. Programu nie da się skompilować, pokazuje 12 błędów. Mógłby mi ktoś pomóc, byłabym ogromnie wdzięczna. Z góry dziękuje.
program wspolczynniki_wielomianu_interpolacyjnego;
uses crt;
const
n=9;
var
i,j,k:integer;
a,il,s,p,iloczyn,x1,y1:real;
x:array [1..10] of real;
y:array [1..10] of real;
begin
clrscr;
writeln('Program wyznaczajacy wspolczynniki wielomianu interpolacyjnego oraz liczacy wartosc entropii');
writeln('Uzyskane wyniki: ');
repeat
writeln('Podaj wartosc 1/T z zakresu 200 - 4000');
readln(x1);
until (x1>=200) and (x1<=4000);
writeln(' ');
writeln('T/K Entropia');
x[1]:=200.00; y[1]:=53.3340;
x[2]:=622.00; y[2]:=66.0779;
x[3]:=1044.00; y[3]:=73.9629;
x[4]:=1466.00; y[4]:=79.7174;
x[5]:=1888.00; y[5]:=84.2490;
x[6]:=2310.00; y[6]:=87.9801;
x[7]:=2732.00; y[7]:=91.1461;
x[8]:=3154.00; y[8]:=93.8919;
x[9]:=3576.00; y[9]:=96.3132;
x[10]:=4000.00; y[10]:=98.4866;
for i:=1 to 10 do
begin
write(x[i]:2:1);
write(' ');
write(y[i]:5:5);
write(' ');
end;
a[1]:=1;
a[1]:=y[1];
for k:=2 to n+1 do
begin
il[1]:=1;
for i:=2 to k do
begin
il[i]:=il[i]*(x[k]-x[i-1]);
end;
s:=a[1];
for j:=2 to k-1 do
begin
s:=s+a[j]*il[j];
end;
a[k]:=(y[k]-s)/il[k];
end;
p:=a[1];
for i:=2 to n+1 do
begin
iloczyn:=1;
for k:=1 to i-1 do
begin
iloczyn:=iloczyn*(x1-x[k]);
end;
p:=p+a[i]*iloczyn;
end;
y1:=p;
writeln('Dla wartosci 1/T= ', x1:2:2, ' entalpia wynosi: ', y1:5:5);
readln;
end.
Post został pochwalony 0 razy
|
|