Курсовая работа: Дослідження методів інтерполяції

a1 [i]: = ( (u [i+1] -u [i]) / (t [i+1] -t [i]));

{writeln (a1 [i]: 3: 6); } end;

{ROZPODILENI RIZNUCI 2 PORIADKY}

for i: =0 to 3 do begin

a2 [i]: = ( (a1 [i+1] -a1 [i]) / (t [i+2] -t [i]));

{writeln (a2 [i]: 3: 7); } end;

{ROZPODILENI RIZNUCI 3 PORIADKY}

for i: =0 to 2 do begin

a3 [i]: = ( (a2 [i+1] -a2 [i]) / (t [i+3] -t [i]));

{writeln (a3 [i]: 3: 16); } end;

{ROZPODILENI RIZNUCI 4 PORIADKY}

for i: =0 to 1 do begin

a4 [i]: = ( (a3 [i+1] -a3 [i]) / (t [i+4] -t [i]));

{writeln (a4 [i]: 3: 16); } end;

{ROZPODILENI RIZNUCI 5 PORIADKY}

for i: =0 to 0 do begin

a5 [i]: = ( (a4 [i+1] -a4 [i]) / (t [i+5] -t [i]));

{writeln (a5 [i]: 3: 16); } end;

clrscr; tabluca;

P1: =u [0] +a1 [0] * (t1-t [0]) +a2 [0] * (t1-t [0]) * (t1-t [1]) +a3 [0] * (t1-t [0]) * (t1-t [1]) * (t1-t [2]);

P2: =a4 [0] * (t1-t [0]) * (t1-t [1]) * (t1-t [2]) * (t1-t [3]) +a5 [0] * (t1-t [0]) * (t1-t [1]) * (t1-t [2]) * (t1-t [3]) * (t1-t [4]);

PP: =P1+P2;

Z1: =u [0] +a1 [0] * (t2-t [0]) +a2 [0] * (t2-t [0]) * (t2-t [1]) +a3 [0] * (t2-t [0]) * (t2-t [1]) * (t2-t [2]);

Z2: =a4 [0] * (t2-t [0]) * (t2-t [1]) * (t2-t [2]) * (t2-t [3]) +a5 [0] * (t2-t [0]) * (t2-t [1]) * (t2-t [2]) * (t2-t [3]) * (t2-t [4]);

ZZ: =Z1+Z2;

writeln; GoToXY (25,17);

writeln ('Pru T=75C U=',PP: 2: 6,'mV');

Writeln; GoToXY (25,18);

writeln ('Pru T=93C U=',ZZ: 2: 6,'mV');