вот что у меня получилось.
Program Andreev_Kursovaya_Rabota;
Const N = 9; {количество экспериментов}
Q : array [1..N] of real = (14.9, 20.5, 35.3, 45.0, 53.8, 62.0, 68.3, 75.2, 82.0);
H : array [1..N] of real = (3.05, 4.90, 10.4, 15.3, 20.1, 25.4, 29.8, 34.6, 40.0);
Var a,b : real;
Procedure ProcAB(n: integer; var a,b: real); {процедура нахождения a и b}
var SumX, SumY, SumXX: real; {сумма Q[i], сумма H[i], сумма Q[i]^2}
i: integer;
begin
for i:=1 to n do SumX:=SumX + Q[i];
for i:=1 to n do SumY:=SumY + H[i]/Q[i];
for i:=1 to n do SumXX:=SumXX + Q[i]*Q[i];
a:=((SumY * SumX) - n*(SumX-SumY)) / (Sqr(SumX) - n*SumXX);
b:=((SumY*SumX)*SumX - SumXX*SumY) / (Sqr(SumX) - n*SumXX);
end;
Begin
ProcAB(N,a,b);
Write('a: ');
Writeln(a:0:4);
Write('b: ');
Writeln(b:0:4);
End.
Ссылки удалены. Перезалейте картинки на форум через расширенный режим. Ваш модератор.