Определить n-й член последовательности - Turbo Pascal

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

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

Доброго времени суток) Пишу лабу с рекурсией, только вот не могу запустить, т.к. выдает ошибку на 3-й строке о том, что ожидается begin, без этой строки естественно не работает возведение в степень) пробовала запустить это в Paskal ABC, там работало но мне нужно в турбопаскале) Обясните пожалуйста в чем разница и что надо менять что бы работало в ТП) Задача: Отримати n-й член послідовності: (-1)n *(n+1))/n! . Что я нарешала:

Решение задачи: «Определить n-й член последовательности»

textual
Листинг программы
  function power(x: real; n: integer): real;
  var 
    i: integer;
    p: real;
  begin
    p:=1;
    for i:=1 to n do p:=p*x;
    power:=p; 
  end;

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

В данном коде на языке Turbo Pascal реализована функция power, которая вычисляет n-й член арифметической прогрессии. Код начинается с объявления переменной power типа real, которая будет хранить результат вычисления. Затем объявляются две переменные типа integer - i и n, которые будут использоваться для цикла и определения номера члена последовательности соответственно. Далее идет цикл for, который выполняется n раз. На каждой итерации значение переменной i увеличивается на 1, а переменная p умножается на x (значение переменной x не указано в задании, но предполагается, что это аргумент функции). Значение переменной p затем присваивается переменной power. В конце функция завершается и результат вычисления сохраняется в переменной power.

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

7   голосов , оценка 4 из 5
Похожие ответы