16.07.2020, 16:48 [+3 UTC]
в нашей команде: 4 669 чел. | участники онлайн: 1 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
10.07.2020, 10:13

Последний вопрос:
16.07.2020, 12:49
Всего: 152739

Последний ответ:
16.07.2020, 16:21
Всего: 260334

Последняя рассылка:
16.07.2020, 15:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
28.02.2010, 20:05 »
JayK
Очень ценный совет, я например про короткие имена и забыл уже давно, эпоха доса давно канула в лету..... [вопрос № 176947, ответ № 259798]
25.10.2009, 13:42 »
Kom906
Спасибо! И отдельное спасибо за возможность предоставления исходников. [вопрос № 173643, ответ № 255811]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 359
puporev
Статус: Профессор
Рейтинг: 93
Gluck
Статус: 1-й класс
Рейтинг: 2

Перейти к консультации №:
 

Консультация онлайн # 146266
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Silent_Control
Отправлена: 06.10.2008, 21:45
Поступило ответов: 1

Здравствуйте, уважаемые эксперты! Помогите реализовать следующую задачу:
y=1 + (x^2 / 2!) + (x^4 / 4!) + ... + (x^2N / (2N)! ).
Вводится 2 значения: Е и х. Е - это предел у (т. е. необходимо проверять, насколько (x^2N / (2N)! ) мало по отношению к Е; как я понимаю, (x^2N / (2N)! ) должно быть меньше, чем Е, тогда можно прервать цикл).
В общем, алгоритм и решение кода трудностей не вызывает, за исключением одного: факториал. Не могу реализовать цикл нахождения факториала. Лаборант сказала, что функции факториала в страндартных юнитах не существует.
Если не очень хочется писать решение всей задачи, то хотя бы помогите реализовать нахождение факториала (подключение других модулей, кроме math естественно, исключается).
Премного благодарен.
P. S. В Дельфи есть функция, позволяющая решить данную задачу, но этот вариант исключается.

Состояние: Консультация закрыта

Ответ # 231388 от Шичко Игорь

Здравствуйте, Silent_Control!
Сделайте свою функцию для нахождерния факториала и используйте.
Что-то примерно того (функция factorial(n:integer): integer описана в приложении):
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:= IntToStr(factorial(7));
end;

Приложение:


Консультировал: Шичко Игорь
Дата отправки: 07.10.2008, 08:43

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 146266
Дмитрий С.

# 1

= общий = | 06.10.2008, 21:53

© Цитата: Silent_Control
нахождение факториала

Так пойдёт?
function fakt(var n: integer): integer;
var 
  i, rez: integer;
begin
  rez := 1;
  for i:=1 to n do
   rez := rez * i;
  fakt := rez;
end;

Markedone

# 2

= общий = | 06.10.2008, 22:21

С рекурсией:

 function fact(n:word):longint;
  begin
    if n<=1 then begin
      fact:=1;
      exit;
    end;
    fact:=fact(n-1)*n;
  end;


Без рекурсии:
 function factorial(n:word):longint;
  var
    i:word;
    f:longint;
  begin
    if n<=1 then begin
      factorial:=1;
      exit; 
    end;
    f:=1;
    for i:=1 to n do f:=f*i;
    factorial:=f;
  end;

Silent_Control

# 3

= общий = | 07.10.2008, 21:26

Спасибо всем, кто помог!

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.15275 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39