Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
12 / 8 / 5
Регистрация: 21.09.2019
Сообщений: 155
1

Составить функцию вычисления расстояния от точки до начала координат

20.01.2020, 16:06. Просмотров 540. Ответов 2
Метки нет (Все метки)


На форуме нашел такое решение, но не пойму как записать вычисление расстояния через функцию для n-ой точки?

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.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2020, 16:06
Ответы с готовыми решениями:

Процедуры: вычисление расстояния от точки до начала координат
Заданы декартовы координаты 5 точек: X1= 25 и Y1=20, X2= -10 и Y2=15, X3= 10 и Y3=-15, X4= -20 и...

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

Заданные точки плоскости рассортировать по возрастанию расстояния от начала координат
Заданные точки плоскости рассортировать по возрастанию расстояния от начала координат. Для...

Заданные точки на плоскости рассортировать по возрастанию расстояния от начала координат
Добрый день, у меня не выводит массив, когда присутствую нужные функции. в чем проблема? Вот...

2
2121 / 987 / 393
Регистрация: 19.03.2019
Сообщений: 3,186
20.01.2020, 17:00 2
Цитата Сообщение от tara-ta-ta Посмотреть сообщение
но не пойму как записать вычисление расстояния через функцию
Pascal
1
2
3
4
function DistanceFromZero(x,y:real):real;
begin
   DistanceFromZero := sqrt(x*x+y*y)
end;
0
79 / 32 / 10
Регистрация: 14.06.2019
Сообщений: 514
21.01.2020, 17:05 3
Теорему Пифагора изучали?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2020, 17:05

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

Функция определения расстояния от начала координат до заданной пространственной точки
Разработать функцию , которая определяет и возвращает расстояние от начала координат до заданной...

Программа для вычисления координат точки максимально отдаленной от начала координат
Программа для вычисления координат точки максимально отдаленной от начала координат. Вроде все так,...

Напишите функцию, возвращающую длину отрезка от начала координат до точки, заданной своими координатами
Напишите функцию, возвращающую длину отрезка от начала координат до точки, заданной своими...

Найти расстояния от начала координат до плоскостей
Найти расстояния от начала координат до плоскостей x-2y+2z-8=0, x+z-6=0.


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

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

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