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

Вывести на экран координаты точек, попадающих в заштрихованную фигуру, если координата x изменяется от –3.5 до 4.5 с шагом Dх=0.2, а координата y меняется от –3.2 до 4.0 с шагом Dу=0.4.

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

program Proga1;

{$APPTYPE CONSOLE}

const Xb=-3.5; Xe=4.5; Xs=0.2; //Объявляем константы
Yb=-3.2; Ye=4; Ys=0.4; //Индексы b - начало, e - конец, s - шаг

var //Объявляем переменные
x,y:Real; //Переменные изменения координат

Begin //Начало исходного кода программы
Writeln ('Write rezultat: ');
Writeln;

x:=Xb;
y:=Yb;

Writeln('');
while X<=Xe do
begin
while Y<=Ye do
begin
//Проверяем, входят ли координаты X,Y в заштрихованную область
if (Y<-X-3) and (sqr(X)+sqr(Y)<=9) and (Y>=X)
then writeln (X:2:1,' ',Y:2:1);

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

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

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

if (sqr(X)+sqr(Y)>9) and (Y<=X) and (Y>=0) and (X<=4)
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; //ждём нажатия "Enter" для завершения программы
end.

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