Школа программиста

Забыли пароль?
[задачи] [курсы] [олимпиады] [регистрация]
Логин:   Пароль:    
Скрыть меню
О школе
Правила
Олимпиады
Фотоальбом
Гостевая
Форум
Чат
Архив олимпиад
Архив задач
Состояние системы
Рейтинг
Курсы
Новичкам
Работа в системе
Алгоритмы
Курсы ККДП
Дистрибутивы
Ссылки

HotLog


 
{ попадает ли точка M(x,y) в круг с центром O(Xc,Yc) и радиусом R }
var xc,yc,mx,my,d,r:real;
begin
     writeln('введите M(X,Y), O(Xc,Yc) и R');
     readln( mx,my,xc,yc,r );
     d:=sqrt(sqr(xc-mx)+sqr(yc-my));
     if d<=r then writeln ('точка M лежит в круге')
             else writeln ('точка M лежит вне круга');
end.


Красноярский краевой Дворец пионеров, (c)2006 - 2017, ICQ: 151483