Лабораторная работа 8. Упражнение 11

Пример интерфейса

Пример программы

type

 { TForm1 }

 TForm1 = class(TForm)

   Button1: TButton;

//...

 private

   { private declarations }

 public

   { public declarations }

 end;

// Объявление функции.

 function iter_f(a_n : Byte) : Integer;

var

 Form1: TForm1;

implementation

function iter_f(a_n : Byte) : Integer;

var

   x : Integer;

   k : Byte;

begin

   x := 1;

   for k := 2 to a_n do begin

       x := x * k;

   end;

   iter_f := x;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

   n : Byte;

   p : Integer;

begin

   n := SpinEdit1.Value;

   p := iter_f(n);

   Label6.Caption := #10#13 + IntToStr(p);

end;

procedure TForm1.Button2Click(Sender: TObject);

const

   W = 10;

   D = 0;

var

   n, m : Byte;

   a    : double;

begin

   n := SpinEdit1.Value;

   m := SpinEdit2.Value;

   a := iter_f(n)/iter_f(n - m);

   Label7.Caption := #10#13 + FloatToStrF(a, ffFixed, W, D);

end;

procedure TForm1.Button3Click(Sender: TObject);

const

   W = 10;

   D = 0;

var

   n, m : Byte;

   c    : double;

begin

   n := SpinEdit1.Value;

   m := SpinEdit2.Value;

   c := iter_f(n)/iter_f(n - m)/iter_f(m);

   Label8.Caption := #10#13 + FloatToStrF(c, ffFixed, W, D);

end;