02.06.2011, 12:43 | #1 (permalink) |
Member
Регистрация: 30.05.2011
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с курсовиком,пожалуйста.
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. Ссылки удалены. Перезалейте картинки на форум через расширенный режим. Ваш модератор. |
02.06.2011, 12:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Ваша проблема будет решаться значительно легче, если ознакомиться с похожими темами Помогите пожалуйста Помогите срочно пожалуйста. Помогите пожалуйста, не понимаю С++ Помогите пожалуйста с задачками Помогите пожалуйста |
02.06.2011, 14:26 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Во-первых, выложите нормальные картинки, желательно без ссылок на Вконтакты. На тех, что Вы дали, я не в состоянии разглядеть толком формулы: что знак вычитания, что умножения отображаются в виде какой-то расплывчатой точки даже при максимальном увеличении. Во-вторых, одну ошибку я вижу сразу: в числителе величины 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. Как говорится - почувствуйте разницу! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|