Паскаль! помогите срочно решить задачу!

0 голосов
22 просмотров

Паскаль! помогите срочно решить задачу!


image

Информатика (12 баллов) | 22 просмотров
Дан 1 ответ
0 голосов

Общее уравнение окружности в декартовой системе координат:
(x-x0)²+(y-y0)²=R²
Задаем уравнения для нашей окружности:
x²+y²=36
Закрашенные области попадают в 2, 3 и 4 четверти на плоскости, поэтому вводим дополнительные условия:
(x<=0) или (x>=0 и y<=0)<br>
Решение на Pascal'е:
var x,y: real;
begin
readln(x);
readln(y);
if ((x*x+y*y<=36) and (x<=0)) or ((x*x+y*y<=36) and (x>=0) and (y<=0)) then writeln('Попадает.') else writeln('Не попадает');<br>end.

(1.1k баллов)