Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 19.06.2015
Сообщений: 2
1

Найти сумму расстояний от начала координат до точек параболы и среднее арифметическое этих расстояний

19.06.2015, 15:16. Просмотров 1669. Ответов 1
Метки нет (Все метки)

Найти сумму расстояний от начала координат до точек параболы Y=AX^2+B, имеющих абсциссы 1,2,3,......,N сантиметров, и среднее арифметическое этих N расстояний.

Заранее спасибо за помощь )
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.06.2015, 15:16
Ответы с готовыми решениями:

Найдите расстояния от места добычи сырья до каждого завода, а также среднее арифметическое этих расстояний
Даны координаты {(xi; yi)}, (i = 1, ..., n) n заводов потребителей сырья и координаты места добычи...

Найти расстояния от домов до школы и среднее арифметическое расстояний
Помогите пожалуйста написать программу. Даны натуральное число n, действительные числа a, b, x1,...

Массив: Упорядочить точки по неубыванию их расстояний до начала координат.
Помогите пожалуйста решить задачу: Дано m точек в n-мерном пространстве. Упорядочить точки по...

Известны координаты двух точек. Найти расстояния от начала координат до этих точек.
Известны координаты двух точек A(x1,y1) и B(x2,y2). Найти расстояния от начала координат до этих...

1
Модератор
60614 / 45588 / 31471
Регистрация: 18.05.2008
Сообщений: 109,601
19.06.2015, 15:51 2
Лучший ответ Сообщение было отмечено Shamikadze как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
uses crt;
var a,b,y,r,sm,sr:real;
    x,n:integer;
begin
clrscr;
repeat
write('Введите коэффициент А, не равный 0 a=');
readln(a);
until a<>0;
write('Введите коэффициент B b=');
readln(b);
repeat
write('Введите количество точек N n=');
readln(n);
until n>0;
sm:=0;
for x:=1 to n do
 begin
  y:=a*x*x+b;
  r:=sqrt(x*x+y*y);
  sm:=sm+r;
 end;
sr:=sm/n;
writeln('Сумма расстояний=',sm:0:2);
writeln('Среднее арифметическое=',sr:0:2);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.06.2015, 15:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Среди заданного на плоскости точек найти такую, сумма расстояний от который до остальных МАКСИМАЛЬНА
Среди заданного на плоскости точек найти такую, сумма расстояний от который до остальных...

Найти сумму расстояний между точками
Известны координаты трех точек A(x1,y1), B(x2,y2), C(x3,y3). Найти сумму расстояний АВ+ВС.

Найти сумму расстояний от начала координат до точек параболы Y=AX^2+B
Найти сумму расстояний от начала координат до точек параболы Y=AX^2+B, имеющих абсциссы...

Найти сумму расстояний от начала координат до точек параболы
Найти сумму расстояний от начала координат до точек параболы y=ax 2 + b, имеющих абсциссы 1, 2, 3,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.