Помогите с условием математической задачи
Определить попадает ли точка з координатами X,Y,до заштрихованной области которая изображена на рисунку. Саму программу я написал а условия до конца дописать не могу. Помогите пожайлуста кто чем может,заранее спасибо.
program3;
uses crt ;
var
x,y:real;
Target: boolean;
begin
clrscr;
write ( ' x= ' ); readln (x);
write (' y= ');readln(y);
Target:=( sqr(x)+sqr(y)<=1) and _?_?_?_?_?_;
writeln ( 'umova potrapliansqrnia:',Target);
readln;
end.
program3;
uses crt ;
var
x,y:real;
Target: boolean;
begin
clrscr;
write ( ' x= ' ); readln (x);
write (' y= ');readln(y);
Target:=( sqr(x)+sqr(y)<=1) and _?_?_?_?_?_;
writeln ( 'umova potrapliansqrnia:',Target);
readln;
end.
4 квадранта, 2 формулы - попадание в прямоугольник и попадание в круг. Вперед на поиски!
Я понимаю что надо 2 формулы, одну я написал ето уравнения круга
а от 2 квадрата не знаю как задать
а от 2 квадрата не знаю как задать
Target:=( sqr(x)+sqr(y)<=1) and (x*y>=0) or (abs(x)<=1) or (abs(x)<=1) and (x*y<0);
Немного извратно, но, по-моему, правильно.
Немного извратно, но, по-моему, правильно.
Target:=( sqr(x)+sqr(y)<=1) and (x*y>=0) or (abs(x)<=1) or (abs(у)<=1) and (x*y<0);
Спасибо хоть за какуюто подсказку но все равно ето условие не работает правильно.Програма почемуто не воспринимает первое условие,
тоесть уравнения круга. У нас получаеться квадрат за етим условием.Какие значения не ввожу в пределах 1 и -1 по Х и У программа пишет TRUE.
Спасибо хоть за какуюто подсказку но все равно ето условие не работает правильно.Програма почемуто не воспринимает первое условие,
тоесть уравнения круга. У нас получаеться квадрат за етим условием.Какие значения не ввожу в пределах 1 и -1 по Х и У программа пишет TRUE.
Можете Wanja пожайлуста обяснить как исполняеться то уловие которое ви записали а то я чтото не пойму как через модули задавать квадраты? Заранее спасибо.
Target:=( sqr(x)+sqr(y)<=1) and (x*y<=0) or (x<=1) and (у<=1) and (x>0)and(y>0)or(x>=-1) and (у>=-1) and (x<0)and(y<0);