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

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

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

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

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

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

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

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

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

1
Puporev
Модератор
54132 / 41765 / 28875
Регистрация: 18.05.2008
Сообщений: 98,294
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
Привет! Вот еще темы с решениями:

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

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

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

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


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

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

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