Условный оператор

@Mishka Tedi · Регистрация: 18.03.2010

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

http://keep4u.ru/imgs/b/2010/0... dc2b95.png

@Puporev · 27.03.2010, 08:57

Pascal

uses crt;
const r=1;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки:');
write('x=');readln(x);
write('y=');readln(y);
if((x>=-4)and(x<=-r)and(y>-3*x/4-3)and(y<=0))
or((x>=-r)and(x<=0)and(y>-3*x/4-3)and(y<=-sqrt(r*r-x*x)))
or((x>=0)and(x<=r)and(y>=sqrt(r*r-x*x))and(y<=3))
or((x>=r)and(x<=3)and(y>=0)and(y<=3))
then write('Точка принадлежит данной области')
else write('Точка не принадлежит данной области');
readln
end.
{Тесты внутри  -3;0.5 -1;-2 -0.5;-1.5 0.5;1.5 2;2
       снаружи -3.5;-1 -2;-2 -0.5;-0.2 0.2;0.3 2;3.5}

@Mishka Tedi 1 / 1 / 0 Регистрация: 18.03.2010 Сообщений: 20
		1
	Условный оператор 26.03.2010, 21:13. Показов 1171. Ответов 1 Метки нет (Все метки) http://keep4u.ru/imgs/b/2010/0... dc2b95.png 0

	27.03.2010, 08:57

Опции темы

Условный оператор

Решение