Вариант 03, задание 1

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

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

program Proga1;

{$APPTYPE CONSOLE}

const Xb=-2.4; Xe=2.8; Xs=0.2; //Объявляем константы
Yb=-3; Ye=2.5; Ys=0.5; //Индексы 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>=0) and (sqr(X)+sqr(Y)<=4) and (X<=0)
then writeln (X:2:1,' ',Y:2:1);

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

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

if (sqr(X)+sqr(Y)>=4) and (Y>=-3) and (X>=-2) and (Y>=X-2)
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.

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