Найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга - Pascal ABC
Формулировка задачи:
Прошу помочь разобраться в данной теме. Как вообще решать данного типа задачи?
Даны координаты точки на плоскости (x; y). Надо найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга с центром в начале кординат.
Решение задачи: «Найти расстояние от точки (x; y) на плоскости до ближайшей точки единичного круга - Pascal ABC»
textual
Листинг программы
var x,y:real;
begin
write('x,y=');readln(x,y);
write('Расстояние: ');
if sqrt(x*x+y*y)<=1 then writeln(0) else writeln(sqrt(x*x+y*y)-1:0:2)
end.
Объяснение кода листинга программы
- Объявляются две переменные типа real: x и y.
- Выводится приглашение пользователю ввести значения x и y.
- Вычисляется расстояние от точки (x; y) до ближайшей точки единичного круга по формуле sqrt(xx+yy).
- Проверяется условие sqrt(xx+yy)<=1. Если оно истинно, то выводится 0, иначе выводится sqrt(xx+yy)-1:0:2), где 0:0:2 - это формат записи числа с двумя знаками после запятой.
- Конец программы.