Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.