Question

Задание в паскале Для заданной функции k=... вывести на экран значения функции, которые лежат в диапазоне a до b и соответствующие им значения аргумента на отрезке d=[-3,3]с шагом h.

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var h := ReadReal('Задайте шаг h:');

 var (a, b) := (-3.0, 3.0);

 for var i := 0 to Trunc((b - a) / h) do

 begin

   var d := a + i * h;

   var k := 4.3 + Sin(Exp(1 / d) + 2) / (2.1 + d) - 6.7 * d;

   Writeln(d:18:15, k:24:15)

 end

end.

Answer 2

Для выполнения данного задания в Pascal, нам потребуется написать программу, которая будет рассчитывать значения функции k и выводить только те, которые лежат в диапазоне [a, b], соответствующие значения аргумента на отрезке [-3, 3] с шагом h.

Вот пример программы на Pascal, реализующей это задание:

pascalCopy code
program FunctionValuesInRange;

const
  a = ...; // Нижний предел диапазона
  b = ...; // Верхний предел диапазона
  h = ...; // Шаг

function k(x: real): real;
begin
  // Здесь необходимо определить функцию k(x) в соответствии с вашими требованиями.
  // Замените "..." на формулу вашей функции.
end;

var
  x: real;

begin
  // Выводим заголовок таблицы
  writeln(' x | k(x)');

  // Итерируемся по значениям аргумента в диапазоне [-3, 3] с шагом h
  for x := -3 to 3 step h do
  begin
    // Вычисляем значение функции k(x)
    // и проверяем, если оно лежит в диапазоне [a, b], то выводим на экран
    if (k(x) >= a) and (k(x) <= b) then
      writeln(x:4:2, ' | ', k(x):8:4);
  end;

end.

Примечание:

1. Вам нужно заменить ... на формулу вашей функции k(x) в процедуре k(x: real): real;.
2. Значения a, b и h должны быть заменены на ваше желаемое значение.

Пожалуйста, замените многоточия на конкретные значения функции k(x) и диапазона [a, b] в вашем конкретном задании.