Определение факта попадания точки в закрашенную область

@Ychenick · Регистрация: 09.01.2011

Author24 — интернет-сервис помощи студентам

помогите написать программу определения факта попадания точки в закрашенную область

@Даня98 · 09.01.2011, 20:03

У меня получилось такое:

Pascal

var x,y: longint;
    r: real;
begin
readln (x,y);
r:= sqrt (sqr(x-0)+sqr(y-0));
if (round(r)<=4) and (round(r)>=2) and (x<0) and (y>0) then writeln ('IN')
else if (round(r)<=2) and (x>0) and (y>0) then writeln ('IN')
else writeln ('OUT');
end.

@Ychenick 5 / 5 / 5 Регистрация: 09.01.2011 Сообщений: 105
		1
	Определение факта попадания точки в закрашенную область 09.01.2011, 12:14. Показов 2161. Ответов 1 Метки нет (Все метки) помогите написать программу определения факта попадания точки в закрашенную область Изображения 0

	09.01.2011, 20:03

Определение факта попадания точки в закрашенную область

Решение