Определить значение функции - PascalABC.NET (24641)

Формулировка задачи:

Пусть D - заштрихованная часть плоскости (см. рис. 3) и пусть задана точка своими координатами (X,Y). Запись (X,Y) D означает, что точка с координатами X, Y лежит внутри заштрихованной области D. Определить значение функции U следующим образом: Задача под буквой г, хотелось бы понять, как реализовать эту дырку в 1 четверти полуокружности

Решение задачи: «Определить значение функции»

Листинг программы

var x,y,u:real;
    k:byte;
begin
writeln('Введите координаты точки');
readln(x,y);
if y>0 then
 begin
  if x*x+y*y<=1 then
  if(x<0)or((x>=0)and(x*x+y*y>=0.09))then k:=1
  else k:=0;
 end
else k:=0;
if k=1 then
 begin
  writeln('Точка принадлежит области D');
  u:=x*x-1
 end
else
 begin
  writeln('Точка не принадлежит области D');
  u:=abs(x-1);
 end;
write('U=',u:0:2);
end.

Объяснение кода листинга программы

Ввод координат точки с помощью функции readln(x,y).
Проверка значения y. Если y > 0, то выполняется блок кода внутри, иначе k := 0.
Проверка условия (xx+yy<=1). Если условие выполняется, то выполняется блок кода внутри, иначе k := 0.
Проверка условия (x<0)or((x>=0)and(xx+yy>=0.09)). Если условие выполняется, то k := 1, иначе k := 0.
Вывод сообщения в зависимости от значения k. Если k = 1, то выводится сообщение Точка принадлежит области D и значение u присваивается выражение x*x-1. Если k = 0, то выводится сообщение Точка не принадлежит области D и значение u присваивается расстояние от точки до линии x = 1 с помощью функции abs(x-1).
Вывод значения u с помощью функции write(u:0:2).