Morlulak 3 ноября 2019 в 10:09

Помогите составить программу вычисления в Pascal функции F(X), график которой имеет следующий вид:
Получить значения функции при : 1)Х= -0,7; 2)Х= 0,3; 3)Х= 2,46; 4)Х= 3,6

displaystyle  F(x)=left{begin{matrix}amp;#10; -x, amp;  amp;x leq 0\ amp;#10; x,amp;  amp;0 textless  x leq 1 \ amp;#10; 1amp;  amp;1 textless  x leq 3 \ 4-xamp;  amp;x textgreater  3 amp;#10;end{matrix}right.

function f(x:real):real;
  begin
  if xlt;=0 then f:=-x
  else
    if xlt;=1 then f:=x
    else
      if xlt;=3 then f:=1
      else f:=4-x
  end;

begin
  Writeln(F(-0.7)=,f(-0.7));
  Writeln(F(0.3)=,f(0.3));
  Writeln(F(2.46)=,f(2.46));
  Writeln(F(3.6)=,f(3.6))
end.

Результаты
F(-0.7)=0.7
F(0.3)=0.3
F(2.46)=1
F(3.6)=0.4
Для комментирования необходимо зарегистрироваться на сайте