Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
---
0 / 0 / 0
Регистрация: 26.05.2010
Сообщений: 41
1

Найти точку, максимально удалённую от центра координат

26.09.2010, 15:32. Просмотров 1046. Ответов 1
Метки нет (Все метки)

Дан массив X с координатами X точек координатной плоскости и массив Y с координатами y точек в координатной плоскости. Найти точку, максимально удалённую от центра координат. Найти отрезок максимальной длины.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.09.2010, 15:32
Ответы с готовыми решениями:

Модуль Graph: для N точек на плоскости найти точку, наиболее удалённую от начала координат
Всем доброй ночи.Люди добрые спасите,нужна срочно программа,а написать не...

Найти среднее отклонение (расстояние) точек от центра координат
Найти среднее отклонение (расстояние) точек от центра координат

Заданы координаты 10 точек.Найти точку самую дальнюю от начала координат и найти расстояние.
Заданы координаты 10 точек.Найти точку самую дальнюю от начала координат и...

Указать точку, наименее удалённую от точки с координатами Xc,Yc...
ПОМОГИТЕ ПОЖАЛУЙСТА решить задачу: Указать точку, наименее удалённую от...

Найти площадь сектора, ограниченного 3 и 4 координатными четвертями, и окружностью с центром в начале координат, проходящей через точку
Составить словесное (математическое) описание и блок-схему следующей задаче:...

1
Puporev
Модератор
54686 / 42104 / 29072
Регистрация: 18.05.2008
Сообщений: 99,357
27.09.2010, 14:31 2
Лучший ответ Сообщение было отмечено --- как решение

Решение

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses crt;
const nmax=15;
var x,y:array[1..nmax] of real;
    n,i,j,imx,jmx:byte;
    mxr,mxo:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=10*random-4;
  y[i]:=10*random-4;
 end;
writeln('Координаты:');
write('X');
for i:=1 to n do
write(x[i]:5:1);
writeln;
write('Y');
for i:=1 to n do
write(y[i]:5:1);
writeln;
writeln;
mxo:=sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2]));
mxr:=sqrt(sqr(x[1])+sqr(y[1]));
imx:=1;
for i:=1 to n-1 do
for j:=i+1 to n do
if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>mxo then
mxo:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))
else if sqrt(sqr(x[i])+sqr(y[i]))>mxr then
 begin
  imx:=i;
  jmx:=j;
 end;
writeln('Максимально удалена от начала координат точка ',imx);
writeln('Отрезок максимальной длины = ',mxo:0:2);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2010, 14:31

Определить самую удаленную от начала координат точку
На плоскости заданы своими координатами 5 точек. Используя вспомагательный...

Определить точку, минимально отдалённую от начала координат.
1) Действительные векторы Х(х1,х2,...,х50) и Y(y1,y2,...,y50) перетворить за...

Удалить из файла точку с максимальным расстоянием от начала координат
Компонентами типизированного файла являются записи, определяющие координаты...


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

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

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