точка не должна выходить за пределы треугольника

[Брутальный М.]

задание элементарное,но я в информатике полный ноль,и очень много прогулял,и вот к концу семестра надо слабать пару задачек...
там вообщем надо написать прогрмму,чтоб типа точка не выходила за пределы треугольника....
там вон картинка прилогается

[lexus_ilia]

А ведь задание неверно поставлено, должно быть примерно так: "Даны координаты точки М(х,у). Определить, принадлежит ли данная точка замкнутому множеству D "

[lexus_ilia]

Вроде так...

Program xa;
var
 x,y:real;
begin
 Writeln('BBedute koopDuHaTbl To4ku');
 Write('x=');
 readln(x);
 Write('y=');
 readln(y);
 if (x<1) and (x>=0) then
 begin
  if (y<1) and (y>-1) then
   writeln('To4ka npuHadle}l{uT')
 end
 else
  if ( ((x>0) and (x<sqrt(2)) and ((y<0) and (y>-1)) ) or ( ((x<0) and (x>-sqrt(2))) and ((y<0) and (y>-1)) ))then
   writeln('To4ka npuhadle}I{uT')
  else
   writeln('To4ka He npuHadle}l{Ut');
 readln
end.

[Брутальный М.]

наверно что-то типа того

[Брутальный М.]

Сообщение от lexus_ilia

Вроде так...

Program xa;
var
 x,y:real;
begin
 Writeln('BBedute koopDuHaTbl To4ku');
 Write('x=');
 readln(x);
 Write('y=');
 readln(y);
 if (x<1) and (x>-1) then
 begin
  if (y<1) and (y>-1) then
   writeln('To4ka npuHadle}l{uT')
 end
 else
  if ( ((x>1) and (x<sqrt(2)) and ((y<0) and (y>-1)) ) or ( ((x<0) and (x>-sqrt(2))) and ((y<0) and (y>-1)) ))then
   writeln('To4ka npuhadle}I{uT')
  else
   writeln('To4ka He npuHadle}l{Ut');
 readln
end.

можешь объяснить что такое

sqrt

?

[Sm1Le]

Корень квадратный из числа

[lexus_ilia]

А всё-таки немного не так, подправил свой код

[Брутальный М.]

Сообщение от lexus_ilia

Вроде так...

Program xa;
var
 x,y:real;
begin
 Writeln('BBedute koopDuHaTbl To4ku');
 Write('x=');
 readln(x);
 Write('y=');
 readln(y);
 if (x<1) and (x>=0) then
 begin
  if (y<1) and (y>-1) then
   writeln('To4ka npuHadle}l{uT')
 end
 else
  if ( ((x>0) and (x<sqrt(2)) and ((y<0) and (y>-1)) ) or ( ((x<0) and (x>-sqrt(2))) and ((y<0) and (y>-1)) ))then
   writeln('To4ka npuhadle}I{uT')
  else
   writeln('To4ka He npuHadle}l{Ut');
 readln
end.

спасибос огромный

[Plague]

If (y>-1)and(y<2*x+1)and(y<-2*x+1) then
writeln('Принадлежит')
else
writeln('Не принадлежит');

Причем тут корни?