Pascal, вычислить таблицу значений функции

[SOft1k]

Помогите с кодом пожалуйста.
Задание к работе. Вычислить таблицу значений функции
задания.PNG

Множества которые были заданы Снимок2.PNG
Функции которые были заданы Снимок4.PNG по порядку F1,F2,F3,F4

Пример выполнения задания

Type arg = –2..10;
Var x:arg; z:real;
Begin
for x := -2 to 10 do begin
case x of
0..3: z := sin(x)+1;
4..10: if x mod 2 = 0 then z := sqr(ln(x)) else z := exp(x-4);
else z := 2*cos(x)
end; {case}
writeln ('При x =',x:3,' z =',z:6:2)
end
End.

[digitalis]

И что - есть готовая прога, заменить в ней условия и функции - мегапроблема ? Где собственная попытка, а не сдутый откуда-то образец?

[SOft1k]

Сообщение от digitalis

И что - есть готовая прога, заменить в ней условия и функции - мегапроблема ? Где собственная попытка, а не сдутый откуда-то образец?

Почему так сложно помочь если просто заменить? У меня постоянно разные ошибки поэтому я и обратился сюда.

[digitalis]

Хамить не надо. Вот потому.
Ну и п.5 Правил.

[BDA]

Сообщение от SOft1k

У меня постоянно разные ошибки поэтому я и обратился сюда.

Ну вот и покажите, как вы исправили пример под свое условие задачи, пусть и не до конца рабочий код.

[newerow1989]

uses Math;

function f1(x: real): real;
begin
   if (x=-1) or (x=0) then
      Result:=0 else
      Result:=Ln((x+1)/(2*x-1));
end;

function f2(x: real): real;
begin
   Result:=x/(Tan(x)+Sin(2*x));
end;

function f3(x: real): real;
begin
   Result:=x*x+Ln(x);
end;

function f4(x: real): real;
begin
   Result:=x/(1+Tan(x));
end;

var y: real;
    x, n: integer;
begin
   for x:=-10 to 10 do
   begin
      if (x>=-2) and (x<=5) then
      begin
         n:=1;
         y:=f1(x);
      end else
      if (x>=6) and (x<=10) and (x mod 2 = 0) then
      begin
         n:=2;
         y:=f2(x);
      end else
      if (x>=6) and (x<=10) and (x mod 2 = 1) then
      begin
         n:=3;
         y:=f3(x);
      end else
      begin
         n:=4;
         y:=f4(x);
      end;
      Writeln('F', n, '(', x, ') = ', y:0:8);
   end;
   Readln;
end.