Цитата:
Сообщение от dmitriy_e
кто поможет
|
Я. Но только по очень большому блату. Обычно с такими ясельными запросами мы посылаем куда подальше. Ну да ладно:
Код:
VAR
x,n:REAL;
Function f(Xf:Real):Real;
begin
f:=1/Xf+(Xf*3-SQR(Xf))/(1-Xf);
end;
BEGIN
Write('x= ');
ReadLn(x);
Write('n= ');
ReadLn(n);
Writeln('f(',x:4:2,')=',f(x):8:3);
Writeln('f(',x-n:4:2,')=',f(x-n):8:3);
Writeln('f(',x+n:4:2,')=',f(x+n):8:3);
ReadLn;
END.