Алгоритм для вычисления значений функции f(x) при любых значениях аргументов - Pascal ABC

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

Что я делаю не так?
VAR G,X,F,H:REAL;
    BEGIN
         WRITE('Ввести X=');
              READLN(X);
                         if(x<0)THEN
                         F:=G;
                         if(x>1)THEN
                         G:=2*X+1
                         else
                         G:=5*x;
 
                         if (x<5)THEN
                         H:=10*x-1
                         else
                         H:=x+1;
         WRITE('ВЫВОД F=');
       WRITE(F:2:1);
       READLN;
    END.
при значениях функций:


textual

Код к задаче: «Алгоритм для вычисления значений функции f(x) при любых значениях аргументов - Pascal ABC»

var x, g, h, f: double;
begin
  write('x = ');
  readln(x);
  if x > 1
    then g := 2 * x + 1
    else g := 5 * x;
  if x < 5
    then h := 10 * x - 1
    else h := x + 1;
  if x < 0
    then f := g
    else f := h;
  write('f(x) = ', f);
  readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.214 из 5

Источник