srzontmp
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.
Answers & Comments
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.