Задача 70256 Написать программу паскаль: Выяснить,...

636e8d16d76a3129d5d1b1b1

11 ноября 2022 г. в 20:59

Написать программу паскаль:
Выяснить, принадлежит ли точка с координатами (x,y) пересечения кольца (центр в начале координат, наружный радиус 10, внутренний радиус 1,5) (Центр в точке (a, b), радиус R).

admin

29 марта 2023 г. в 12:00

★

program PointInRing;

var
x, y, a, b: real;
R, r: real;

begin
writeln('Введите координаты точки (x,y):');
readln(x, y);
writeln('Введите координаты центра кольца (a,b):');
readln(a, b);
writeln('Введите внешний радиус кольца:');
readln(R);
writeln('Введите внутренний радиус кольца:');
readln(r);

if (sqr(x – a) + sqr(y – b) >= sqr(r)) and (sqr(x – a) + sqr(y – b) <= sqr(R)) then
writeln('Точка принадлежит кольцу')
else
writeln('Точка не принадлежит кольцу');
end.