С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
Dimonbiz
0 / 0 / 0
Регистрация: 28.12.2011
Сообщений: 14
1

Определить ближайшую точку к началу координат из трех заданных

26.01.2012, 18:26. Просмотров 2115. Ответов 2
Метки нет (Все метки)

Помогите решить задачу: Определить ближайшую точку к началу координат из трех заданных. Заранее спасибо!
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2012, 18:26
Ответы с готовыми решениями:

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

Определить, какая из точек находится ближе к началу координат
Хакеры и программисты данного ресурса. Взываю к Вашему милосердию. Помогите с...

Определить, которая из точек находится ближе к началу координат
(23)Напишите программу согласно следующего условия: даны две точки A(xl, yl) и...

Среди точек, заданных координатами, найти точку, наименее удаленную от начала координат
Буду благодарен если сделаете Последовательность из n точек плоскости задана...

Определить, какая по счету точка находится ближе всего к началу координат
с клавиатуры вводятся координаты точек на плоскости.определить какая по счету...

2
urukhi1
12 / 12 / 16
Регистрация: 27.12.2011
Сообщений: 33
26.01.2012, 23:12 2
Лучший ответ Сообщение было отмечено Dimonbiz как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
 x1,x2,x3:real;
 y1,y2,y3:real;
 g1,g2,g3:real;
begin
write('Введите координаты 1 точки через пробел:');
readln(x1,y1);
g1:=sqrt((x1*x1)+(y1*y1));
write('Введите координаты 2 точки через пробел:');
readln(x2,y2);
g2:=sqrt((x2*x2)+(y2*y2));
write('Введите координаты 3 точки через пробел:');
readln(x3,y3);
g3:=sqrt((x3*x3)+(y3*y3));
if ((g1<g2) and (g1<g3)) then write('Блеже к началу координат 1-я точка')
else if ((g2<g1) and (g2<g3)) then write('Блеже к началу координат 2-я точка')
else if ((g3<g1) and (g3<g2)) then write('Блеже к началу координат 3-я точка');
end.
1
Dimonbiz
0 / 0 / 0
Регистрация: 28.12.2011
Сообщений: 14
27.01.2012, 15:46  [ТС] 3
Спасибо большое за помощь, но уже написал сам.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2012, 15:46

Даны три точки на плоскости. Определить, какая из них ближе к началу координат
Номер теста Данные Результат xA yA xB yB xC yC Otvet...

Даны две точки А(х1, у1) и В(х2, у2). Определить, которая из точек находится ближе к началу координат
Даны две точки А(х1, у1) и В(х2, у2). Определить, которая из точек находится...

Определить среднюю из трех заданных дату рождения
даны 3 календарные даты, которые представляют собой даты рождения трех друзей:...


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

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

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