Вопрос № 146266: Здравствуйте, уважаемые эксперты! Помогите реализовать следующую задачу: y=1 + (x^2 / 2!) + (x^4 / 4!) + ... + (x^2N / (2N)! ). Вводится 2 значения: Е и х. Е - это предел у (т. е. необходимо проверять, насколько (x^2N / (2N)! ) мало по отношени...
Вопрос № 146.266
Здравствуйте, уважаемые эксперты! Помогите реализовать следующую задачу: y=1 + (x^2 / 2!) + (x^4 / 4!) + ... + (x^2N / (2N)! ). Вводится 2 значения: Е и х. Е - это предел у (т. е. необходимо проверять, насколько (x^2N / (2N)! ) мало по отношению к Е; как я понимаю, (x^2N / (2N)! ) должно быть меньше, чем Е, тогда можно прервать цикл). В общем, алгоритм и решение кода трудностей не вызывает, за исключением одного: факториал. Не могу реализовать цикл нахождения факториала. Лаборант сказала, что функции
факториала в страндартных юнитах не существует. Если не очень хочется писать решение всей задачи, то хотя бы помогите реализовать нахождение факториала (подключение других модулей, кроме math естественно, исключается). Премного благодарен. P. S. В Дельфи есть функция, позволяющая решить данную задачу, но этот вариант исключается.
Отвечает: Шичко Игорь
Здравствуйте, Silent_Control! Сделайте свою функцию для нахождерния факториала и используйте. Что-то примерно того (функция factorial(n:integer): integer описана в приложении): procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= IntToStr(factorial(7)); end;
Приложение:
Ответ отправил: Шичко Игорь (статус: 8-ой класс)
Ответ отправлен: 07.10.2008, 08:43 Оценка за ответ: 5 Комментарий оценки: Большое спасибо! Оказалось гораздо легче, чем я думал.