end.

Код додатково модуля

unit Unit4;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm4 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form4: TForm4;

implementation

{$R *.dfm}

end.

1.1       Опис тексту програми

Змінна i типу integer використовується як лічильник в циклах (процедура TForm1.Button1Click). Змінні l,c,r,e,t,t1,t2,tsh,b,w0,i,Uc,a1,a2,a,g,w1 типу real використані як коефіцієнти які розраховуються в процесі роботи програми.