Question

Вычислить значения двух функций в n равномерно распределенных в диапазоне а≤x≤b точках. a=1 b=3 n=12 F1(х)=√(e^(x) -1) F2(х)=x ln^2 x (Паскаль)

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,n):=(1.0,3.0,11);
  foreach var x in Range(a,b,n) do
    Writeln(x:7:5,Sqrt(Exp(x)-1):18:15,x*Ln(x)**2:18:15)
end.

Answer 2

Для вычисления значений функций F1(x) и F2(x) в n равномерно распределенных точках в диапазоне от a до b, мы сначала разобьем этот диапазон на n равных интервалов и затем вычислим значения функций в каждой точке этого разбиения. Воспользуемся языком программирования Pascal для реализации этой задачи.

Вот пример кода на Pascal для вычисления значений F1(x) и F2(x) в n точках на интервале [a, b]:

pascalCopy code
program CalculateFunctions;

const
  a = 1; // Начало диапазона
  b = 3; // Конец диапазона
  n = 12; // Количество точек

// Функции для вычисления значений F1(x) и F2(x)
function F1(x: Real): Real;
begin
  F1 := sqrt(exp(x) - 1);
end;

function F2(x: Real): Real;
begin
  F2 := x * ln(x) * ln(x);
end;

var
  i: Integer;
  x, intervalSize: Real;

begin
  // Размер интервала между точками
  intervalSize := (b - a) / (n - 1);

  // Вычисление и вывод значений функций в точках
  writeln('x    | F1(x)        | F2(x)');
  writeln('-------------------------------');

  for i := 0 to n - 1 do
  begin
    x := a + i * intervalSize;
    writeln(x:0:2, ' | ', F1(x):0:4, ' | ', F2(x):0:4);
  end;
end.

Запустив эту программу, вы получите значения функций F1(x) и F2(x) в n равномерно распределенных точках на интервале [a, b].