IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Зависимость роста от веса, даже не знаю с чего начать
сообщение
Сообщение #1


ыыыыщщщщщщыыыы
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Иван

Репутация: -  0  +


все условие в прикрепленном файле. Подскажите хотябы с чего начать....

Сообщение отредактировано: Feagor -


Эскизы прикрепленных изображений
Прикрепленное изображение

--------------------
Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
Подскажите хотябы с чего начать....
Удалить DOC-файл (этот формат запрещен, читаем правила) и привести условие либо прямо здесь, либо снять скриншот и присоединить условие в виде изображения...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


ыыыыщщщщщщыыыы
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Иван

Репутация: -  0  +


Исправил


--------------------
Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


ыыыыщщщщщщыыыы
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Иван

Репутация: -  0  +


который раз перечитываю - немогу понять что от меня хотят....все что смог написать(до того момента пока я понимаю что делать)
uses crt;
type Trv=record
h,w:integer;
end;
var i,n:integer;
a:array[1..100] of trv;
begin
clrscr;
writeln('Insert count');
readln(n);
for i:=1 to n do
begin
writeln('Insert ',i,' height');
read(a[i].h);
writeln('Insert ',i,' weight');
read(a[i].w);
end;
end.


--------------------
Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


насколько я помню матстатистику, надо решить систему линейных уравнений:
n*a+b*sum(x)=sum(y)
a*sum(x)+b*sum(x^2)=sum(x*y)

sum(z) - сумма всех значений признака z
n - количество значений признаков

реши ее математически для начала. то есть запиши в виде
a = f(x,y)
b = f(a,x,y)


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


ыыыыщщщщщщыыыы
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Иван

Репутация: -  0  +


Всё спасибо, оказывается решается тупо методом наименьших квадратов Гауса.
Листинг:
uses crt;
type Trv=record
h,w:real;
end;
var i,n:integer;
a:array[1..100] of trv;
x1,x2,xy,y1,k,x:real;
begin
clrscr;
writeln('Insert count');
read(n);
for i:=1 to n do
begin
writeln('Insert ',i,' height');
read(a[i].h);
writeln('Insert ',i,' weight');
read(a[i].w);
end;
for i:=1 to n do
begin
x1:=x1+a[i].h;
x2:=x2+sqr(a[i].h);
xy:=xy+a[i].h*a[i].w;
y1:=y1+a[i].w;
end;
{writeln(x1:2:2,' ',x2:2:2,' ',xy:2:2,' ',y1:2:2);}
x:=(-1)*(x2*y1-xy*x1)/(sqr(x1)-n*x2);
k:=(x1*x-xy)/x2;
k:=(-1)*k;
writeln(k,' ',x);
readkey;
end.


тока не пойму что я вот здесь
  x:=(-1)*(x2*y1-xy*x1)/(sqr(x1)-n*x2);
k:=(x1*x-xy)/x2;
k:=(-1)*k;
накосячил, ибо пришлось на -1 умножать, иначе работаtт криво...

Сообщение отредактировано: Feagor -


--------------------
Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


ты бы х1, х2... обнулил лучше перед суммированием...
и, по-моему, ты взял формулы для получения квадратичного многочлена y=ax^2+bx+c
хотя насчет этого не уверена

Сообщение отредактировано: мисс_граффити -


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


ыыыыщщщщщщыыыы
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Иван

Репутация: -  0  +


обнулить то можно, а вот насчет формул тут все правильно


--------------------
Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 19.09.2020 19:33
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name