X^5/5! – ... + (–1)^N X^(2N+1)/(2N+1)! (N! = 1·2·...·N). Полученное число
является приближенным значением функции sin в точке X.
эта программа для вычисления простого факториала, соответственно в Button1 нужно подписать
Код: Выделить всё
unit unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var R, I, N:integer;
begin
N:=StrToInt(Edit2.Text) ;
if N<=0 then R := 0 else begin {условный оператор,
который проверяет корректность значения параметра}
R:=1;
for i:=1 to N do
R := R*i;
Form1.Edit3.Text:=IntToStr(R);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
Edit3.Text:=' ';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
initialization
{$I unit1.lrs}
end.
