Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1
unit Unit1;
2
 
3
interface
4
 
5
uses
6
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7
  Dialogs, StdCtrls, Spin;
8
 
9
type
10
  TForm1 = class(TForm)
11
    SpinEdit1: TSpinEdit;
12
    SpinEdit2: TSpinEdit;
13
    SpinEdit3: TSpinEdit;
14
    SpinEdit4: TSpinEdit;
15
    SpinEdit5: TSpinEdit;
16
    SpinEdit6: TSpinEdit;
17
    SpinEdit7: TSpinEdit;
18
    SpinEdit8: TSpinEdit;
19
    SpinEdit9: TSpinEdit;
20
    SpinEdit10: TSpinEdit;
21
    SpinEdit11: TSpinEdit;
22
    SpinEdit12: TSpinEdit;
23
    SpinEdit13: TSpinEdit;
24
    SpinEdit14: TSpinEdit;
25
    SpinEdit15: TSpinEdit;
26
    SpinEdit16: TSpinEdit;
27
    SpinEdit17: TSpinEdit;
28
    Button1: TButton;
29
    procedure Button1Click(Sender: TObject);
30
  private
31
    { Private declarations }
32
  public
33
    { Public declarations }
34
  end;
35
 
36
var
37
  Form1: TForm1;
38
 
39
implementation
40
 
41
{$R *.dfm}
42
 
43
procedure TForm1.Button1Click(Sender: TObject);
44
var uhlopricka1 : integer;
45
    uhlopricka2 : integer;
46
    radka1,radka2,radka3 : integer ;
47
    sloupec1,sloupec2,sloupec3 : integer;
48
begin
49
  uhlopricka1:= SpinEdit1.Value*SpinEdit5.Value*SpinEdit9.Value;
50
  SpinEdit14.Value:=uhlopricka1;
51
 
52
  uhlopricka2:= SpinEdit3.Value*SpinEdit5.Value*SpinEdit7.Value;
53
  SpinEdit13.Value:=uhlopricka2;
54
 
55
// radky:
56
 
57
  radka1:= SpinEdit1.Value*SpinEdit4.Value*SpinEdit7.Value;
58
  SpinEdit10.Value:=radka1;
59
 
60
  radka2:= SpinEdit2.Value*SpinEdit5.Value*SpinEdit8.Value;
61
  SpinEdit11.Value:=radka1;
62
 
63
  radka3:= SpinEdit3.Value*SpinEdit6.Value*SpinEdit9.Value;
64
  SpinEdit12.Value:=radka3;
65
 
66
// sluopce:
67
 
68
  sloupec1:= SpinEdit1.Value*SpinEdit2.Value*SpinEdit3.Value;
69
  SpinEdit17.Value:=sloupec1;
70
 
71
   sloupec2:= SpinEdit4.Value*SpinEdit5.Value*SpinEdit6.Value;
72
  SpinEdit16.Value:=sloupec2;
73
 
74
   sloupec3:= SpinEdit7.Value*SpinEdit8.Value*SpinEdit9.Value;
75
  SpinEdit15.Value:=sloupec3;
76
end;
77
 
78
end.