Subversion Repositories svnkaklik

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    SpinEdit5: TSpinEdit;
    SpinEdit6: TSpinEdit;
    SpinEdit7: TSpinEdit;
    SpinEdit8: TSpinEdit;
    SpinEdit9: TSpinEdit;
    SpinEdit10: TSpinEdit;
    SpinEdit11: TSpinEdit;
    SpinEdit12: TSpinEdit;
    SpinEdit13: TSpinEdit;
    SpinEdit14: TSpinEdit;
    SpinEdit15: TSpinEdit;
    SpinEdit16: TSpinEdit;
    SpinEdit17: TSpinEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var uhlopricka1 : integer;
    uhlopricka2 : integer;
    radka1,radka2,radka3 : integer ;
    sloupec1,sloupec2,sloupec3 : integer;
begin
  uhlopricka1:= SpinEdit1.Value*SpinEdit5.Value*SpinEdit9.Value;
  SpinEdit14.Value:=uhlopricka1;

  uhlopricka2:= SpinEdit3.Value*SpinEdit5.Value*SpinEdit7.Value;
  SpinEdit13.Value:=uhlopricka2;

// radky:

  radka1:= SpinEdit1.Value*SpinEdit4.Value*SpinEdit7.Value;
  SpinEdit10.Value:=radka1;

  radka2:= SpinEdit2.Value*SpinEdit5.Value*SpinEdit8.Value;
  SpinEdit11.Value:=radka1;

  radka3:= SpinEdit3.Value*SpinEdit6.Value*SpinEdit9.Value;
  SpinEdit12.Value:=radka3;

// sluopce:

  sloupec1:= SpinEdit1.Value*SpinEdit2.Value*SpinEdit3.Value;
  SpinEdit17.Value:=sloupec1;

   sloupec2:= SpinEdit4.Value*SpinEdit5.Value*SpinEdit6.Value;
  SpinEdit16.Value:=sloupec2;

   sloupec3:= SpinEdit7.Value*SpinEdit8.Value*SpinEdit9.Value;
  SpinEdit15.Value:=sloupec3;


  while radka2<>1000 do
    begin
      SpinEdit8.Value:=SpinEdit8.Value+1;
    end
end;

end.