Question

Напишите программу на языке программированияPascal, вычисляющую значение функции у = f(x).у = x^2 – 2, если x > 0,y = 0, если x = 0,y = |x|, если x < 0.

Answer 1

Вот программа, основные моменты объяснены в комментариях:

Program Primer;

Var x,y:real;     {вводим  2 переменные}

Begin

   Write('Введите x:');

   Readln(x);    {вводим значение аргумента функции}

   If x>0             {если x>0}

       then y:=x*x-2      {то значение y вычисляем по формуле у = x^2 – 2 }

       else If x=0         {если x=0}

                 then y:=0          {то значение y вычисляем по формуле у = 0 }

                else y:=abs(x);   {в оставшемся случае, т.е.x

  Writeln('y=',y);   {выводим значение y на экран}

End.