Горит дипломная работа.Нужно разобраться с программой.

[Денис М]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    UpDown1: TUpDown;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    UpDown2: TUpDown;
    UpDown3: TUpDown;
    BitBtn1: TBitBtn;
    Button1: TButton;
    Panel1: TPanel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown3Click(Sender: TObject; Button: TUDBtnType);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Lequ, Lam, b05, b2, koef : single;
  j : integer;
implementation

{$R *.DFM}

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  Form1.Label2.Caption := FloatToStr(UpDown1.Position/10)+'`';
  j := j+1;
end;

procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
  Form1.Label4.Caption := FloatToStr(UpDown2.Position)+'см';
  j := j+1;
end;

procedure TForm1.UpDown3Click(Sender: TObject; Button: TUDBtnType);
begin
  Form1.Label7.Caption := FloatToStr(UpDown3.Position)+'`';
  j := j+1;
end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    u : single;
    i : ShortInt;
begin
  if j < 3 then
    MessageDlg('Не ведены параметры.',
                mtInformation, [mbOk], 0)
  else
  begin
  Lam := UpDown2.Position;
  b05 := UpDown1.Position/10;
  Lequ := 50.5*Lam/b05;
  koef := (pi/Lam)*Lequ;
  with Form1.Image1.Canvas do
  begin
    MoveTo(20,410); LineTo(620,410);
    LineTo(617,408); LineTo(617,412);
    LineTo(620,410);
    MoveTo(320,410); LineTo(320,0);
    LineTo(318,3); LineTo(322,3);
    LineTo(320,0);
    for i := 1 to 40 do
      if i mod 2 = 0 then
      begin
        MoveTo(20+i*15,413);
        LineTo(20+i*15,407);
        if i <> 40 then
          TextOut(18+i*15,415,IntToStr(i div 2-10))
        else
          TextOut(18+i*15,415,'I');
      end
      else
  begin
    MoveTo(20+i*15,411);
    LineTo(20+i*15,409);
  end;
  TextOut(280,0,'F(k)');
  for i := 1 to 10 do
  begin
    MoveTo(318,410-i*40);
    LineTo(322,410-i*40);
    if i <> 10 then
      TextOut(300,410-i*40,'0.'+IntToStr(i));
  end;
  MoveTo(20,410);
  for i := -60 to 60 do
    if i <> 0 then
    begin
      u := koef*sin((i/6)*(pi/180));
      LineTo(20+(i+60)*5,410-abs(Trunc(400*(sin(u)/u))));
      MoveTo(20+(i+60)*5,410-abs(Trunc(400*(sin(u)/u))));
    end;
  end;
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
  j := 0;
end;

end.

[FaTaL]

Вам что тут каждую строчку что ли прокоментировать надо?!

[artemavd]

Удачной службы! . Закрыто.