Question

Задача 2: Скласти програму на мові Паскаль для обчислення значення функції:​

Answer 1

Примечание: код написан под данное условие. Но повторюсь еще раз, оно некорректное. Если ввести, к примеру, число 1, то оно будет отвечать сразу обоим условиям. Поэтому в закомментированных строчках я предложил исправленные условия.

begin

 var x:=ReadReal('Введите x: ');

 var y:real;

 if (x > 0) then     //if (x < 1) then....

   begin

     y:=2 * sqr(x) * x;

     write('--------------', #10, 'x = ', x, #10, 'y = ', y, #10, '--------------');

   end

 else if (x <= 1) then    //if (x >= 1) then...

   begin

     y:=abs(3 * x - 7);

     write('--------------', #10, 'x = ', x, #10, 'y = ', y, #10, '--------------');

   end;

end.