0,0 → 1,84 |
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. |