Question

Составить программу вычисления значений функции F(x) на отрезке [a;b] c шагом h. Результат представить в виде таблицы, первый столбец которой- значение аргумента, второй- соответствующее значение функции. F(x) = sin x – cos x Можно написать на паскале)

Answer 1

Ответ:

Объяснение:

var  f:real;

a,b,h:integer;

begin

Write('Введите a');

readln(a);

Write('Введите b');

readln(b);

Write('Введите h');

readln(h);

while a<b do

begin

f:=sin(a)+sin(a)/cos(a);

write('F(',a,')=');

writeln(f:4:2);

a:=a+h;

end;

readln;

end.

Answer 2

Конечно, вот пример программы на Pascal для вычисления значений функции F(x) = sin(x) - cos(x) на отрезке [a; b] с заданным шагом h и представления результатов в виде таблицы:

pascalCopy code
program FunctionTable;

uses
  SysUtils;

var
  a, b, h, x: Real;

function CalculateFunctionValue(x: Real): Real;
begin
  CalculateFunctionValue := Sin(x) - Cos(x);
end;

begin
  WriteLn('Введите начальное значение a:');
  ReadLn(a);

  WriteLn('Введите конечное значение b:');
  ReadLn(b);

  WriteLn('Введите шаг h:');
  ReadLn(h);

  WriteLn('--------------------------');
  WriteLn('|     x     |    F(x)    |');
  WriteLn('--------------------------');

  x := a;

  while x <= b do
  begin
    WriteLn('|', FormatFloat(' 0.000', x), ' |', FormatFloat(' 0.000', CalculateFunctionValue(x)), ' |');
    x := x + h;
  end;

  WriteLn('--------------------------');
end.

Эта программа сначала запрашивает начальное значение a, конечное значение b и шаг h у пользователя. Затем она использует цикл для вычисления значений функции и выводит их в виде таблицы.