Как протабулировать функцию без оператора цикла - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Как это сделать без использования оператора цикла

Решение задачи: «Как протабулировать функцию без оператора цикла»

textual
Листинг программы
program WOCycle;
 
const
  a = 3.5;
  b = 4.0;
  h = 0.08;
 
  procedure Cycle(x: real);
  var
    f: real;
  begin
    if x > b then
      exit;
    f := (a * x - exp(ln(b) / 3)) / (sqr(sin(x) / cos(x)));
    writeln(' x= ', x: 5: 3, ';  f( ', x: 5: 3, ')= ', f: 7: 3, ';');
    Cycle(x + h);
  end;
 
begin
  Cycle(a);
end.

Объяснение кода листинга программы

  1. В программе объявлены три переменные: a, b и h.
  2. Константа WOCycle не имеет значения.
  3. В процедуре Cycle объявлена одна переменная f типа real.
  4. В условии if проверяется, что значение переменной x больше значения переменной b. Если это условие истинно, то процедура завершается с помощью оператора exit.
  5. Если условие не выполняется, то вычисляется значение переменной f по формуле (a * x - exp(ln(b) / 3)) / (sqr(sin(x) / cos(x))).
  6. Значение переменной f выводится на экран с помощью функции writeln.
  7. Далее вызывается процедура Cycle с аргументом x + h.
  8. Программа заканчивается вызовом процедуры Cycle с начальным значением переменной x равным 3.5.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5