Примечание:
Уравнение окружности имеет вид:
Решение:
Рассмотрим 3 случая:
1) <em>Точка лежит внутри окружности.
</em>Пусть даны координаты точки x и y.
Если их сумма квадратов не превышает квадрата радиуса, т.е.:
3) <em>Точка лежит вне окуржности
</em>Если точка с координатами A(x;y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е.
Программа:
program zadacha_1;
var x,y,r:real;
begin
writeln('Введите координаты точки');
readln(x,y);
writeln('Введите радиус окружности');
readln(r);
if sqr(x)+sqr(y)<sqr(r) then writeln ('Точка внутри окружности')
else if sqr(x)+sqr(y)=sqr(r) then writeln ('Точка на окружности')
else writeln('Точка вне окружности');
end.
А - голова думает
В - язык отдыхает
А↔В (Голова думает тогда и только тогда, когда язык отдыхает)
Var a,b,c,d,e:integer;
begin
d:=1;
e:=0;
writeln('введите количество учеников');
readln(a);
for b:=1 to a do begin
writeln('введите количество правильных ответов для ',d,' ученика' );
readln(c);
while (c>10) or (c<0) do begin
writeln('вы ввели неверное число, попробуйте снова');
readln(c);
end;
if c = 10 then e:=e+1;
d:=d+1;
end;
if (e>=1) then writeln('yes ')
else writeln('no');
end.