Question

Составить программу вычисления значений функции F(x) на отрезке [a,b] с шагом h. Результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции:F(x)=sin(1/x)+2. Для Turbo Pascal желательно. Спасибо

Answer 1

uses Crt;
Var a,b,h:real;
Begin
ClrScr;
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('h = ');ReadLn(h);
Repeat
WriteLn('F(',a,') = ',Sin(1/a)+2);
a:=a+h;
Until a > b;
ReadKey
End.