Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.87/55: Рейтинг темы: голосов - 55, средняя оценка - 4.87
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
1

Известны координаты двух точек. Найти расстояния от начала координат до этих точек.

09.09.2011, 22:07. Просмотров 10649. Ответов 11
Метки нет (Все метки)

Известны координаты двух точек A(x1,y1) и B(x2,y2). Найти расстояния от начала координат до этих точек.
Не знаю как высчитать расстояние для каждой точки.
Прошу помощи у тех кто сталкивался с такими задачами, заранее спасибо!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.09.2011, 22:07
Ответы с готовыми решениями:

У квадрата ABCD на плоскости известны координаты двух противоположных вершин - точек A и C. Найти координаты точек B и
У квадрата ABCD на плоскости известны координаты двух противоположных вершин - точек A и C. Найти...

Известны координаты на плоскости двух точек. Составить программу вычисления расстояния между ними
Известны координаты на плоскости двух точек. Составить программу вычисления расстояния между ними

Отпечатать расстояния от начала координат для тех точек,которые принадлежат кругу с заданным радиусом, и число таких точек.
1)Значение f(k) заключено между значениями t1= -a - √(b+m), t2=√(a+b+m),но не равно нулю. 2)Дана...

Даны координаты двух точек Определить какая из них находится дальше от начала координат
Даны координаты двух точек Определить какая из них находится дальше от начала координат

11
Уничтожитель печенек
280 / 208 / 49
Регистрация: 07.02.2010
Сообщений: 724
09.09.2011, 22:18 2
Pascal
1
sqrt((Exp((2)*Ln(a - c)))+(Exp((2)*Ln(b - d))))
0
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
09.09.2011, 22:31  [ТС] 3
Цитата Сообщение от ITZver Посмотреть сообщение
Pascal
1
sqrt((Exp((2)*Ln(a - c)))+(Exp((2)*Ln(b - d))))
Проблема в том что мы еще логарифмы не проходили, ректор не примет, не поверит

Знаю есть вот такая формула, но как ей вертеть не додумался, вот.
Pascal
1
sqrt(x1-x2)^2+(y1-y2)^2
Естественно не в такой записи в Паскале, а просто формула. Но как высчитать точки, ума не приложу.
0
Уничтожитель печенек
280 / 208 / 49
Регистрация: 07.02.2010
Сообщений: 724
09.09.2011, 22:33 4
Pascal
1
sqrt(((a - c)*(a - c))+((b - d)*(b - d)))
Вот без логарифмов
0
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
09.09.2011, 22:40  [ТС] 5
Цитата Сообщение от ITZver Посмотреть сообщение
Pascal
1
sqrt(((a - c)*(a - c))+((b - d)*(b - d)))
Вот без логарифмов
Ок, это так для обоих точек одинаковые формулы, или как из этой формулы высчитать точки А и B?
0
Уничтожитель печенек
280 / 208 / 49
Регистрация: 07.02.2010
Сообщений: 724
09.09.2011, 22:47 6
VALIDOL4IK, прошу прощения, не внимательно прочитал задание , это вычисление расстояния между ними. Ну, а до начала координат еще проще. sqrt(((0 - x)*(0 - x))+((0 - y)*(0 - y)))
1
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
09.09.2011, 22:58  [ТС] 7
Цитата Сообщение от ITZver Посмотреть сообщение
VALIDOL4IK, прошу прощения, не внимательно прочитал задание , это вычисление расстояния между ними. Ну, а до начала координат еще проще. sqrt(((0 - x)*(0 - x))+((0 - y)*(0 - y)))
Вот спасибо, удружили, неделю над этой задачей бился, ха, а ректор все таки не правильно мне подсказала, дала формулу для нахождения между точками!

Вот если кто-то будет искать код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program P1_1_1;
(*Известны координаты двух  точек  A(x1,y1) и B(x2,y2). Найти расстояния от начала координат до этих точек.*)
var
  Da,Db,x1,x2,y1,y2:real; (*Da и Db расстояние от точек до начала координат*)
begin
  Writeln ('Введите координаты x1');
  Readln (x1);
  Writeln ('Введите координаты y1');
  Readln (y1);
  Writeln ('Введите координаты x2');
  Readln (x2);
  Writeln ('Введите координаты y2');
  Readln (y2);
  Da:=sqrt(((0-x1)*(0-x1))+((0-y1)*(0-y1)));
  Db:=sqrt(((0-x2)*(0-x2))+((0-y2)*(0-y2)));
  Writeln (' Da = ', Da:4:2);
  Writeln (' Db = ', Db:4:2);
End.
Вот проверка:
x1 = 1, y1 = 2, x2 = -2, y2 = 3, Da = 2.24, Db = 3.61
0
Zverit
09.09.2011, 23:01
  #8

Не по теме:

Цитата Сообщение от VALIDOL4IK Посмотреть сообщение
а ректор все таки не правильно мне подсказала, дала формулу для нахождения между точками!
Ну точка с координатой ноль тоже точка :)

0
1335 / 986 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
09.09.2011, 23:08 9
ITZver, только я не понимаю, зачем число из нуля отнимать можно же просто
Pascal
1
sqrt(x1*x1 + y1*y1);
1
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
09.09.2011, 23:13  [ТС] 10
Цитата Сообщение от ITZver Посмотреть сообщение
Pascal
1
sqrt(((x1 - x2)*(x1 - x2))+((y1 - y2)*(y1 - y2)))
Она мне вот так сказала, чем еще больше меня запутала!
0
1335 / 986 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
09.09.2011, 23:17 11
VALIDOL4IK, ну так это и есть полная правильная формула, чо
1
11 / 2 / 7
Регистрация: 09.09.2011
Сообщений: 60
09.09.2011, 23:28  [ТС] 12
Добавлено через 6 минут
Вот исправленный более точный вариант, спасибо iama!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program P1_1_1;
(*Известны координаты двух  точек  A(x1,y1) и B(x2,y2). Найти расстояния от начала координат до этих точек.*)
var
  Da,Db,x1,x2,y1,y2:real; (*Da и Db расстояние от точек до начала координат*)
begin
  Writeln ('Введите координаты x1');
  Readln (x1);
  Writeln ('Введите координаты y1');
  Readln (y1);
  Writeln ('Введите координаты x2');
  Readln (x2);
  Writeln ('Введите координаты y2');
  Readln (y2);
  Da:=sqrt(x1*x1+y1*y1);
  Db:=sqrt(x2*x2+y2*y2);
  Writeln (' Da = ', Da:4:2);
  Writeln (' Db = ', Db:4:2);
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.09.2011, 23:28

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

Вывести расстояния точек от начала координат
Дана матрица с 2 строками и 10 столбцами. Первый элемент каждого столбца представляет абсциссу, а...

Найти координаты максимально и минимально удаленных точек в каждой четверти от начала координат
На координатной плоскости заданы 20 точек. Найти координаты максимально и минимально удаленных...

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

Найти координаты точек С, если известны координаты точек А
в треугольнике ОАВ проведена медиана ОС. Найти координаты точек С, если известны координаты точек А...


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

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

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