Question

Решите пж задачу и нарисуйте блок схему
Дано действительное x.Определить:
f(x)=6x^2+5x, если x>-2
x^2-8x+1, в остальных случаях

Answer 1

Var   x,f:real;
Begin     
Readln(x);   
If x>-2 then f:=sqr(6*x)+5*x             
          else f:=sqr(x)-8*x+1;   
Writeln('F(x) = ', f);
End.