Question

решить уравнение по турбо паскаль

Answer 1

uses System;
var x: real;
{ процедура функция }
function y( x: real): real;
var a,b,c: real;
begin
  a:=2.8;  b:= -0.3; c:=4;
  if x<1.2 then Result:=a*Sqr(x)+b*x+c 
  else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1)
  else Result:=a/x+Sqrt(x*x+1);
end;
{ основная программа }
begin  write('Задайте значение x  ');
  readln(x);
  writeln('Значение функции y = ',y(x));
end.