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

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

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

program Prog1;
{$APPTYPE CONSOLE}

const Xb=-3.5; Xe=2.5; Xs=0.5;
Yb=-3.6; Ye=2.4; Ys=0.4;
var
x,y:Real;

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

X:=Xb;
Y:=Yb;

Writeln('');
while X<=Xe do
begin
while Y<=Ye do
begin

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

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

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

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

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

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

Y:=Y+Ys;
end;

Y:=Yb;
X:=X+Xs;
end;

Writeln;
Writeln ('Press ENTER for EXIT');
readln;
end.

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