Определить, лежит ли точка (x, y) внутри круга с центром в начале координат и радиусом 5.
Answers & Comments
SystemNickНужно: 1. Получить х, у; 2. Проверить не превышают ли они значения 5; 3. Вернуть значение проверки.
Pascal code (проверяет выход за координаты (5; 5)):
var x, y: integer; beginreadln(x, y); if (abs(x)<=5) and (abs(y)<=5) then writeln('true') else if ((abs(x)<=5) and (abs(y)>5)) or ((abs(y)<=5) and (abs(x)>5)) then writeln('false') else writeln('false'); end.
Answers & Comments
1. Получить х, у;
2. Проверить не превышают ли они значения 5;
3. Вернуть значение проверки.
Pascal code (проверяет выход за координаты (5; 5)):
var x, y: integer;
beginreadln(x, y);
if (abs(x)<=5) and (abs(y)<=5) then writeln('true')
else if ((abs(x)<=5) and (abs(y)>5)) or ((abs(y)<=5) and (abs(x)>5)) then writeln('false')
else writeln('false');
end.