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

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

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

program Proga1forMargo;

{$APPTYPE CONSOLE}

const Xb=-2.4; Xe=2.8; Xs=0.4;
Yb=-2.5; Ye=3.0; Ys=0.5;

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 ((sqr(X) + sqr(Y))<=4) and (Y>=X+2)then
writeln (X:2:1,' ',Y:2:1);

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

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

if (Y<X+2) and (X<=0) and (Y>=1) 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.

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