Рекурсивное решение уравнения - Turbo Pascal

  1. надо решить уравнение 1+x/1!+x^2/2!+...+x^n/n! через рекурсию. Смог пока только так


textual

Код к задаче: «Рекурсивное решение уравнения - Turbo Pascal»

 P:=P*x/i;

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. Не могу понять, как задать в выражение: ((sqrt (x))+ 1)^2/(5y+1))

  1. Доброго времени суток!Задание в прикрепленном файле. Есть уравнение: Необходимо вычислить α с помощью программ ZEROIN и QUANC8. Оформила подынтегральную функцию как function (starting_fun), затем написала еще одну функцию, в которой вызывается QUANC8 (fun). Ее значением должно быть значение интеграла минус единица. В основном теле программы вызываю ZEROIN (для промежутка [0;1]) со ссылкой на функцию с QUANC8 (т.е. fun), должно получаться то самое значение alpha, которое нужно найти, но.. QUANC8 не считает значения, выводит NAN. И все решение летит к чертям. При этом, когда в function подынтегральной функции (starting_fun) заменяю alpha на число, все в порядке (но, естественно, задача состоит именно в нахождении alpha). Получается, QUANC8 не видит этой переменной, я правильно понимаю? Как правильно сделать вызов этих функций? Или что можно еще сделать, чтобы считалось значение? В интернете пыталась искать что-то похожее, не получилось. Очень надеюсь на вашу помощь. Краткое описание ZEROIN Кликните здесь для просмотра всего текста Нахождение нуля функции F(x) на интеpвале [a, b] с заданной точностью. function zeroin( a, b, tol : double; F : pointer) : float; Краткое описание QUANC8 Кликните здесь для просмотра всего текста Оценка с тpебуемой точностью опpеделенного интегpала от функции, задаваемой именем пpоцедуpы-функции, вычисляющей ее значения в пpоизвольных точках интеpвала интегpиpования. Procedure quanc8( fun : pointer; a, b, abserr, relerr : double; var result, errest : double; var nofun : longint; var flag : double); Входная информация: FUN - указатель на внешнюю функцию, реализующую вычисление подынтегральной функции. a - нижний предел интегрирования; b - верхний предел интегрирования; аbserr - абсолютная желаемая погрешность; relerr - гpаница относительной погрешности; abserr - гpаница абсолютной погpешности. Выходная информация: result - приближенное значение интеграла; errest - оценка величины действительной ошибки; nоfun - число значений функции, использованных при вычислении интеграла; flag - индикатор надежности.

  1. попытался написать, но работает некорректно может кто подсказать в чем ошибка?

  1. 1.3 синус(х+п/4)+2.3х-20=0 надо составить программу методом итераций точностью 0.0000001

  1. Помогите сделать в паскале

  1. В Pascal написать программу для решения систем из трёх уравнений с тремя переменными. Если я правильно понимаю, надо отдельно заносить переменные? И связать дальше оператором "если". Но как это на практике осуществить?

  1. Решение системы дифференциальных уравнений. На отрезке [0,3] решить задачу Коши для системыДобавлено через 42 минуты Форумчане, сжальтесь! Я в этом ни бум-бум!

  1. Помогите пожалуйста. Описать функцию y=arcсоsec(x). Составить программу решение уровнения (a/sin(bx))=c через функцию arcсоsec

  1. Добрый день! Нужно написать программу решения уравнения (задание и само уравнение вложено картинкой). Не знаю как выразить x, и в подарок ошибка "207 Ошибочная операция с плавающей запятой". Это все, на что я способен :