понедельник, 12 декабря 2011 г.

19v

program ka;
uses crt;
var x1,y1,x2,y2,x3,y3,x4,y4,a,b,c,d,s: real;
begin
writeln ('вводим координаты точки'); read (x,y);
a=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
b=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
c=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
d=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));

if ( x>=1.57) and (x<=1.57) and ( y>=0) and (y<= cos(x) )
then writeln ('внутри') else writeln ('не внутри');
readkey;
end.