|
|
|
|
|
|
|
Вернуться
| 1 Mikhael, 07 сентября 2012 г. 3:33:35 | |
Нашел) Все достаточно хорошо закомментированно:
uses crt;
var x0,y0,x1,y1,r,c,b,u,s1,s2,s:real;
begin
clrscr;
writeln('Введите координаты центра круга:');
readln(x0,y0);
write('Радиус=');
readln(r);
repeat
writeln('Введите координаты точки вне круга:');
readln(x1,y1);
c:=sqrt(sqr(x1-x0)+sqr(y1-y0));{гипотенуза треугольника, образованного
центром, точкой и точкой касания}
if c<=r then write('Точка принадлежит кругу, повторите ввод');
until c>r;
b:=sqrt(c*c-r*r);{касательная=катет}
u:=arctan(r/b);{угол тругольника против радиуса}
s1:=c*b*sin(u);{площадь 4х-угольника}
u:=2*u+pi;{угол оставшегося сектора}
s2:=r*r*u/2;{его площадь}
s:=s1+s2;
write('Площадь фигуры=',s:0:6);
readln
end.
|
|
|
| 2 Мулюков Рустам, 06 сентября 2012 г. 19:21:17 | |
нашел вчера следующее:
http:// neerc.ifmo.ru /school /io/archive /20061209/ solutions -basic-06.pdf
но только оно не проходит тестовый пример ='(
А так самому интересно!
|
|
|
| 3 Беляев Сергей Николаевич, 06 сентября 2012 г. 11:51:36 | |
|
Не будут. Не только потому что задачи были несерьезными и легкими, а потому что просто нет времени. Данным сайтом занимается один человек.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
