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

[hawk197]

составьте программу котороя запрашивает значение переменной х и n выводит значение функции f(x)=(x+sinx)/(x-sinx) в точках x, x+n, x-n
Протокол работы программы
x=5.1
n=0.6
f(5.1)=0.693
f(5.7)=0.824
f(4.5)=0.643

[TorrentTor]

Что за это будет?

[hawk197]

благодарность

[TorrentTor]

Такое можно и за спасибо.

Program GV_1;
Uses Crt;
Var x,n,f: Real;
Begin
ClrScr;
  Write('x=');
  Readln(x);
  Write('n=');
  Readln(n);
  f:=(x+sin(x))/(x-sin(x));
  Writeln('f(',x:3:1,')=',f:5:3);
  f:=0;
  x:=x+n;
  f:=(x+sin(x))/(x-sin(x));
  Writeln('f(',x:3:1,')=',f:5:3);
  f:=0;
  x:=x-n*2;
  f:=(x+sin(x))/(x-sin(x));
  Writeln('f(',x:3:1,')=',f:5:3);
ReadKey;
end.

[hawk197]

блин я ошибся это free pascal а не турбо или это тоже подойдёт??

[TorrentTor]

А куда оно денется!

[hawk197]

всё правильно Спасибо большое

[whatever]

Проверил на FPC, все работает.

[TorrentTor]

Вот и славненько.

[Vanta11a]

ошибку выдает(

Всегда убивало, что тех, кто помогает, считают телепатами и не указывают, на что жалуется компилятор.