Главная » Delphi, Исходники, Разное » Работа с факториалами и использование функции
Янв
25

Работа с факториалами и использование функции

Условие: С помощью функции расчета n! найти a = (k!+m!+1)/n!, где k, m, n задаются пользователем, также каждое из этих чисел не должно превышать 7.

Работа с факториалами и использование функции

Работа с факториалами и использование функции

[sourcecode language=»delphi»]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Edit4: TEdit;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function pac(n:integer):integer;
var a,i:integer;
begin
a:=1;
for i:=1 to n do
a:=a*i;
pac:= a;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
k,m,n:integer;





z: real;
begin
k:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
m:=StrToInt(Edit3.Text);
if (k>7) or (n>7) or (m>7) then
begin
ShowMessage(‘Введите заново’);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
end
else
begin
z:=(pac(k) + pac(m) + 1 / pac(n));
Edit4.Text:=FloatToStr(z);
end;
end;
end.
[/sourcecode]

[download id=»23″]

P.S. Строительная компания ООО «Экспо-ЛесСтрой» предлагает деревянные дома отличного качества по доступным ценам. Ведущими направлениями деятельности нашей компании являются: строительство домов из бруса, продажа каркасных домов тут, строительство домов под ключ, продажа деревянных домов.



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.