Как решить задачю в паскале?
Помогите пожалуйста кто сможеть написать задачю в паскале! Очень надо!!!
Надо бесплатно!
Wurgengel, протокол работы не тот получается! Другие циферки ))
Как я тебе благодарен!!!
Program f;
function fx(x:real):real;
begin
fx:=1/x+(3*x-x*x)/(1-x);
end;
var
x, n:real;
begin
write('Введите x='); readln(x);
write('Введите n='); readln(n);
writeln('f(',x-n:6:2,')=',fx(x-n):6:4);
writeln('f(',x:6:2,')=',fx(x):6:4);
writeln('f(',x+n:6:2,')=',fx(x+n):6:4);
end.
Лови.. . Проверял лично, "циферки" те которые нужно :)
program p1;
function f(x:real):real;
begin
f:=1/x+((3*x-x*x)/(1-x));
end;
var x,n:real;
begin
write('x='); readln(x);
write('n='); readln(n);
writeln('f(',x:1:1,')=',f(x):2:3);
writeln('f(',x+n:1:1,')=',f(x+n):2:3);
writeln('f(',x-n:1:1,')=',f(x-n):2:3);
end.
Удачи!
Сделаю за 200 WMR
Стучи в агент