| 0,0 → 1,78 |
|---|
| 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; |
| end; |
| |
| end. |