Question

Решите задачу 3 под буквой а и б программа на языке паскаль. Заранее спасибо

Answer 1

а)

var x, y :integer;

begin

 write ('x = ');

 readln(x);

 if (x<=0)

   then y:=x

   else if (x>=5)

          then y:=4

          else y:=sqr(x)*x;

 write ('y = ',y);

end.

б)

var x, y, xtreugA, ytreugA, xtreugB, ytreugB, xzentrokr, yzentrokr, radokr :integer;

begin

 write ('x = ');

 readln(x);

 write ('y = ');

 readln(y);

 xtreugA:= -4;

 ytreugA:= 0;

 xtreugB:= 0;

 ytreugB:= -5;

 

 xzentrokr:= 10;

 yzentrokr:= 7;

 radokr:=3;

 if ((((x-xtreugA)*(ytreugB-ytreugA)-(y-ytreugA)*(xtreugB-xtreugA))<=0) and (x<=0) and (y<=0))

   then writeln('Popadanie v treugolnik')

   else writeln('Ne popadanie v treugolnik');

 if (sqrt(sqr(xzentrokr-x)+sqr(yzentrokr-y)) <= radokr)

   then writeln('Popadanie v okruznost')

   else writeln('Ne popadanie v okruznost');

end.