Помогите пожалуйста составить программу на Паскале, Использовать неравенства x^2 y^2 < = R^2 если точка принадлежит кругу и x^2 y^2 > R^2 в противном случае
var x, y, x1, y1, r: real; begin write('Введите координаты точки X, Y: '); read(x, y); write('Введите координаты центра окружности X, Y: '); read(x1, y1); write('Введите радиус окружности R: '); read(r); if sqr(x-x1) sqr(y-y1) <= r*r then writeln('Точка принадлежит кругу') else writeln('Точка не принадлежит кругу') end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
