турбо паскаль составье програму

[hawk197]

можеш плз составить чтобы не такая сложная то мы ещё её не проходили а с основами то унас 5 урок всего лиш

[whatever]

Проще - только ручками, на бумажном листике. Серьезно, там даже при желании ничего не выкинешь.

[Hacker19_90]

Серьезно, там даже при желании ничего не выкинешь.

ХМ.... попробуем!

Program GV_1;
Uses
    Crt;
const
    x = 5.1;
    n = 0.6;
Begin
   ClrScr;
   Writeln('f(',x:3:1,')=',(x+sin(x))/(x-sin(x)):5:3);
   Writeln('f(',(x+n):3:1,')=',((x+n)+sin(x+n))/((x+n)-sin(x+n)):5:3);
   Writeln('f(',(x-n*2):3:1,')=',((x-n*2)+sin(x-n*2))/((x-n*2)-sin(x-n*2)):5:3);
   ReadKey;
end.

Вот помоему!

[whatever]

Ну да, разве что x & n запрашивать надо. Кстати, если прошлый вариант показался сложным, не думаю, что этот проще, "многа буков" в одной строке :D