Вариант 05 задание 1

Вывести на экран координаты точек, попадающих в заштрихованную фигуру, если координата х изменяется от –2.5 до 3.0 с шагом Dх=0.5, а координата у меняется от –3.2 до 0.2 с шагом Dу=0.2.

//Вот тут начало программы.

program Proga1;

{$APPTYPE CONSOLE}

const Xn=-2.5; Xk=3; Xs=0.5;
Yn=-3.2; Yk=0.2; Ys=0.2;

var
x,y:Real;

Begin
Writeln ('Write rezultat: ');
Writeln;

x:=Xn;
y:=Yn;

Writeln('');
while X<=Xk do
begin
while Y<=Yk do
begin

if (Y<=-X-2) and ((sqr(X)+sqr(Y))<=4)
then writeln (X:2:1,' ',Y:2:1);

if ((sqr(X)+sqr(Y))>=4) and (Y>=-3) and(X>=-1) and (X<=0)
then writeln (X:2:1,' ',Y:2:1);

if ((sqr(X)+sqr(Y))<=4) and (X>=0) and (Y<=0)
then writeln (X:2:1,' ',Y:2:1);

if ((sqr(X)+sqr(Y))>=4) and (X<=3) and (Y<=-X+2)
and (Y>=-X) then writeln (X:2:1,' ',Y:2:1);

Y:=Y+Ys;
end;

y:=Yn;
X:=X+Xs;
end;

Writeln;
Writeln ('Press Enter for Exit');
readln;

end.

//Вот тут конец программы