Question

Pascal. Составить программу для вычисления значений функции F(x) на отрезке [а, Ь] с шагом /г. Результат представить в виде таблицы, первый столбец которой — значения аргумента, второй — соответствующие значения функции. 24.F(x)= tg2x-3.

Answer 1

begin

 var (a, b, h) := ReadReal3();

 var F: Func<real, real> := x -> Tan(2 * x) - 3;

 var x := a;

 repeat

   Writeln(x:3:1, F(x):10:6);

   x += h;

 until x > b;

end.