Технический форум
Вернуться   Технический форум > Программирование > Форум программистов


Ответ
 
Опции темы Опции просмотра
Старый 02.06.2011, 12:43   #1 (permalink)
bastilio
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.


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

Старый 02.06.2011, 12:43
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Ваша проблема будет решаться значительно легче, если ознакомиться с похожими темами

Помогите пожалуйста
Помогите срочно пожалуйста.
Помогите пожалуйста, не понимаю С++
Помогите пожалуйста с задачками
Помогите пожалуйста

Старый 02.06.2011, 14:26   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,226
Сказал(а) спасибо: 286
Поблагодарили 505 раз(а) в 163 сообщениях
Репутация: 91625
По умолчанию

Во-первых, выложите нормальные картинки, желательно без ссылок на Вконтакты. На тех, что Вы дали, я не в состоянии разглядеть толком формулы: что знак вычитания, что умножения отображаются в виде какой-то расплывчатой точки даже при максимальном увеличении. Во-вторых, одну ошибку я вижу сразу: в числителе величины 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.
Как говорится - почувствуйте разницу!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 19:38.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.