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.

Answer 2

Для составления программы на языке Pascal, которая вычислит значения функции F(x) = tg^2(x) - 3 на заданном отрезке [a, b] с заданным шагом h, следуйте этим шагам:

1. Объявите переменные для хранения значений a, b и h, а также переменную для хранения текущего значения аргумента x и значения функции F(x).

2. Создайте цикл для перебора значений аргумента x на отрезке [a, b] с заданным шагом h.

3. Внутри цикла вычислите значение функции F(x) = tg^2(x) - 3 для текущего значения аргумента x.

4. Выведите значения аргумента и соответствующее значение функции F(x) в виде таблицы.

Ниже приведен код программы на Pascal:

pascalCopy code
program FunctionTable;

uses
  Math;

var
  a, b, h, x: real;
  fx: real;

begin
  { Введите значения границ отрезка [a, b] и шаг h }
  writeln('Введите границы отрезка [a, b] и шаг h:');
  readln(a, b, h);

  { Вывод заголовка таблицы }
  writeln('Аргумент  |   Значение F(x)');
  writeln('--------------------------');

  { Цикл для перебора значений аргумента x на отрезке [a, b] с шагом h }
  x := a;
  while x <= b do
  begin
    { Вычисление значения функции F(x) }
    fx := Power(tan(x), 2) - 3;

    { Вывод значений аргумента и функции F(x) в таблицу }
    writeln(x:8:2, '  |   ', fx:8:2);

    { Увеличение значения аргумента x на шаг h }
    x := x + h;
  end;
end.

При запуске программы она запросит у пользователя значения границ отрезка [a, b] и шаг h. Затем программа вычислит и выведет в таблицу значения аргумента и функции F(x) на этом отрезке с указанным шагом.