Меню сайта
Форма входа
Категории раздела
Учебник по Паскалю [13] Практика [23]
примеры программ
Главная » Статьи » Pascal » Практика
Определить попадает ли точка M(x,y) в круг радиусом R с центром в начале координат.
Определить попадает ли точка M(x,y) в круг радиусом R с
центром в начале координат.



Program N2;

Var x,y,r:Real;

begin

write('Введите координату x: ');readln(x);

write('Введите координату y: ');readln(y);

write('Введите радиус r: ');readln®;

if abs(x)<=r then

if abs(y)<=r then

if sqr(x)+sqr(y)<=sqr® then writeln('Точка в окружности')

else writeln('Точка вне окружности');

write('Нажмите Enter');

readln;

end.

Категория: Практика | Добавил: nazgull (09.02.2012)
Просмотров: 8382 | Теги: центром в начале координат паскаль, попадает ли точка примеры, центром в начале координат, попадает ли точка pascal, попадает ли точка паскаль | Рейтинг: 1.2/4
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Ссылки