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

while ch+i*m<=getmaxx-6 do

begin

line(ch+i*m,cv+2,ch+i*m,cv-2);

line(ch-2,cv+i*m,ch+2,cv+i*m);

line(ch-i*m,cv+2,ch-i*m,cv-2);

line(ch-2,cv-i*m,ch+2,cv-i*m);

i:=i+1;

end;

end;

begin

writeln;

writeln;

writeln ('Крива регресii описуэться рiвнянням y=g(x), де');

writeln ('g(x)=a[0] + a[1]*x + ... + a[k]*x^k');

writeln ('Введiть cтепiнь k (k < = 4):');

readln (k);

for i:=k+1 to 5 do

a[i]:=0;

for i:=1 to 6 do

begin

sx[i]:=0;

for j:=1 to n do

sx[i]:=sx[i] + stepin (xn[j], i);

end;

for i:=1 to 2 do