Object Pascal

Примеры:

Факториал:

Этот пример практически полностью повторяет пример для Turbo Pascal, единственное изменение — добавление строк

{$APPTYPE CONSOLE}
uses SysUtils;

Для компиляции примера в среде Delphi 2 нужно выполнить следующие действия:

• File -> New Application
• Project -> Remove from Project -> удалить Unit1 (Form1)
• View -> Project Source -> заменить весь текст файла проекта на текст примера
• File -> Save Project As -> “factorial.dpr”
• Project -> Compile

Скомпилированный файл factorial.exe нужно запустить из командного интерпретатора Windows.

При запуске непосредственно из среды Delphi нужно добавить строчку readln; перед последней строкой (end.): таким образом программа будет ожидать нажатия “ENTER” до закрытия консольного окна.

Как и в Turbo Pascal, из-за переполнения данный пример выводит неверные значения для факториала 13 и больше:

13! = 1932053504
14! = 1278945280
15! = 2004310016
16! = 2004189184

program factorial;
{$APPTYPE CONSOLE}
uses SysUtils;

function fact(n: integer): longint;
begin
    if (n = 0) then
        fact := 1
    else
        fact := n * fact(n - 1);
end;

var
    n: integer;

begin
    for n := 0 to 16 do
        writeln(n, '! = ', fact(n));
end.