Построить аналитическую зависимость для заданной функции - Pascal ABC

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

Для функции y = y(x), заданной графически, построить аналитическую зависимость. Составить программу вычисления величины y при заданном значении аргумента. Заранее спасибо.

Решение задачи: «Построить аналитическую зависимость для заданной функции»

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

var c,d,x,y:real;
    k:byte;
begin
repeat
writeln('Введите положительные значения c,d');
readln(c,d);
until(c>0)and(d>0);
write('Введите x=');
readln(x);
k:=0;
if abs(x)>=c then y:=0
else if (x>-c)and(x<0)then y:=d/c*x+d
else if (x>0)and(x<c)then y:=d/c*x-d
else k:=1;
if k=0 then writeln('y=',y:0:2)
else writeln('y1=',d:0:2,'  y2=',-d:0:2);
end.

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

Создаются переменные c, d, x, y типа real.
Создается переменная k типа byte.
В цикле повторяется следующее:
- Выводится сообщение 'Введите положительные значения c,d'.
- Читаются значения c, d с помощью функции readln().
- Проверяется условие: c > 0 и d > 0.
- Если условие выполняется, то переменная y присваивается значение 0.
- Если условие не выполняется, то проверяется следующее:
  - x > -c.
  - x < 0.
  - x >= c.
  - Если хотя бы одно из этих условий выполняется, то переменная y присваивается значение выражения (d/c)*x + d.
  - Если ни одно из этих условий не выполняется, то переменная y присваивается значение выражения (d/c)*x - d.
- Если ни одно из условий не выполняется, то переменная y присваивается значение 1.
Если значение переменной k равно 0, то выводится значение переменной y с точностью до двух знаков после запятой.
Если значение переменной k не равно 0, то выводятся значения переменных y1 и y2 с точностью до двух знаков после запятой.