Побудова кривих регресій методом парабол

a0 = 1.2250; a1 = -0.1381; a2 =-0.0495; a3 =0.090; a4 =-0.0002; d= 0.7906

Текст програми (Borland Pascal 7.0):

uses crt, graph;

var xn,yn:array[1..30] of real; n:integer; chr:char; a: array [1..5] of real;

function stepin (x:real; i:integer):real;

var j:integer; temp:real;

begin

temp:=1;

for j:=1 to i do

begin

temp:=temp*x;

inc (i);

end;

stepin:=temp;

end;

procedure xyread;

var fl:text; i:integer;

begin

TextBackground(3);

TextColor(0);

clrscr;

assign (fl,'3.txt');

reset (fl);

writeln ('Програма знаходження кривих регресiй методом парабол');

writeln ('Шевчук А., Ковальський Д. ПМП-32, 1998');