Составьте программу вычисления функции:у=

Question

Составьте программу вычисления функции:

у=0}} \right. " alt=" \left \{ {{-2 x^{2} +x +1,x \leq 0} \atop {-2 x^{2} + 3, x>0}} \right. " align="absmiddle" class="latex-formula">

Answer 1

var
  x: real; //Пусть будут (почти) любые числа

begin
  readln(x); // вводим
  writeln(-2 * sqr(x) + (x <= 0 ? x + 1 : 3)</u>); //Тернары - добро, ибо код меньше:
                                                           //(условие ? вывод при истине : вывод иначе)
end.