Отправляет email-рассылки с помощью сервиса Sendsay

Delphi. Уроки

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 8.314 RSS
←   Июнь 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 19-12-2001

Автор
Алексеев Игорь

Статистика

8.314 подписчиков
0 за неделю
←   Все выпуски   →

Delphi. Уроки


Информационный Канал Subscribe.Ru

Delphi. Object Pascal. Уроки с сайта http://progs.biz

Рассылка №32

Delphi. Object Pascal. Урок 13. Рекурсивные функции.
Полные версии уроков (с картинками) можно найти по адресам:
Урок 13. Рекурсивные функции.
А. Хомоненко, В. Гофман и др. Delphi 7. Наиболее полное руководство
А. Хомоненко, В. Гофман, Е. Мещеряков, В. Никифоров. Delphi 7. Наиболее полное руководство
Заказать на Озоне

Подробнее
Рассылки сайта progs.biz через subscribe.ru
Уроки по Visual C++ (MFC, платформа .NET)
Уроки по Visual C++.NET. Программирование для Windows (библиотеки MFC, ATL) и для платформы .NET. Каждый урок содержит информацию только по существу и расчитан на 10-20 минут. Уроки по каждой теме независимы.

Delphi. Pascal. Урок 13. Рекурсивные функции

Функция может вызывать саму себя. Ниже приведен классический пример такой функции - она подсчитывает факториал числа (факториал целого положительного числа n - это произведение всех целых от 1 до n. Факториал обозначается восклицательным знаком. Например, 5!=1*2*3*4*5=120).

//Объявление функции.
function fact(X: Integer): Integer;
begin
  if X>1 then
    //Функция fact вызывает саму себя.
    fact:=X*fact(X-1)
  else
    fact:=1;
end;
var
  r: Integer;
begin
  //Вызов функции.
  r:=fact(4);
  Writeln(r);
  Readln;
end.

Тут мы смогли вызвать функцию из самой себя, так как имеет место формула n!=n*(n-1)!.

Указанный фрагмент выведет, разумеется, 24.

Наверх
Copyright Алексеев Игорь, 2002-2003
Copyright Шмидт Отто, 2002-2003
Copyright сайт progs.biz, 2002-2003
Распространение материалов без разрешения владельцев авторских прав запрещено.
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное