Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
1
Добавлен:
26.04.2015
Размер:
979 б
Скачать
unit factor_;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

// рекурсивная функция
function factorial(n: Int64): Int64;
begin
if n > 1
then factorial := n * factorial(n-1) // функция вызывает сама себя
else factorial:= 1; // факториал 1 равен 1
end;

procedure TForm1.Button1Click(Sender: TObject);
var
k:integer; // число, факториал которого надо вычислить
f:Int64; // значение факториала числа k
begin
k := StrToInt(Edit1.Text);
f := factorial(k);
label2.caption:='Факториал числа '+Edit1.Text
+' равен '+IntToStr(f);
end;

end.
Соседние файлы в папке Факториал_Рекурсия
  • #
    26.04.2015190 б1factor.dpr
  • #
    26.04.2015876 б1factor.res
  • #
    26.04.20154.37 Кб1factor_.dcu
  • #
    26.04.201551 б1factor_.ddp
  • #
    26.04.2015815 б1factor_.dfm
  • #
    26.04.2015979 б1factor_.pas