Розв’язок задачі з Абрамова №58в

Всі умови | Умова: Дано дійсне число a. Функція f(x), графіки якої представлений на мал. 1, a - 1, г, обчислити f(a). (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №58)

program pr58_3;
var
  a, f : real;
begin
  write('a = '); readln(a);
  if (a <= 0) then f := abs(a + 1)
  else f := abs(a - 1);
  writeln('f = ', f:5:2);
  readln;
end.