bastilio

вот что у меня получилось.
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.


Ссылки удалены. Перезалейте картинки на форум через расширенный режим. Ваш модератор.

Vladimir_S

Во-первых, выложите нормальные картинки, желательно без ссылок на Вконтакты. На тех, что Вы дали, я не в состоянии разглядеть толком формулы: что знак вычитания, что умножения отображаются в виде какой-то расплывчатой точки даже при максимальном увеличении. Во-вторых, одну ошибку я вижу сразу: в числителе величины b стоит сумма произведений Xi*Yi, а Вы заменяете ее произведением сумм, что АБСОЛЮТНО неверно! Рассмотрим простейший пример:
Пусть x1=2, y1=3, x2=4, y2=5. Тогда сумма произведений есть
(x1*y1) + (x2*y2) = 2*3 + 4*5 = 26,
а произведение сумм есть
(x1+x2)*(y1+y2) = (2+4)*(3+5) = 48.
Как говорится - почувствуйте разницу!