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

1 ответ

Посмотреть ответы

Megamozg

2205

может быть так:
var x1,x2,y1,y2:integer;
a,b:real;
begin
write ('Введите x1 и x2: ');
readln (x1,x2);
write ('Введите y1 и y2: ');
readln (y1,y2);
a:=sqrt (sqr (x1) + sqr (y1));
b:=sqrt (sqr (x2) + sqr (y2));
if a>b then writeln ('1-я точка ближе')
else writeln ('2-я точка ближе');
end.

Хороший ответ

29 декабря 2022 02:48

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Сколько гигабайтов в сообщении, содержащем 33554432 битов?... Алгоритм вычисления значения функции F(n), где n — натуральное число, задан следующими соотношениями: F(n) = 1, при n = 0; F(n) = 4 * F(n – 1), если... Pascal функция exp(ln(a)*n), возводящая в степень, как это работает? Я понимаю, что такое натуральный логарифм, но что за exp и как они взаимодействую... В папке с лабораторной работой находится файл, который называется « Документ для создания оглавления ». Откройте этот файл и отметьте стилем «Заголов... Cколько единиц в двоичной записи числа 2^333 + 2^222 - 2^111 - 2?...