diff --git a/LaTeX/prog.pas b/LaTeX/prog.pas new file mode 100644 index 0000000..d69df20 --- /dev/null +++ b/LaTeX/prog.pas @@ -0,0 +1,74 @@ +unit Unit10; // MONTE-CARLO + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, + Controls, Forms, Dialogs, StdCtrls, ExtCtrls, math; + +type + TForm10 = class(TForm) + Panel1: TPanel; + Button1: TButton; + Button2: TButton; + Button5: TButton; + Button6: TButton; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + procedure Button6Click(Sender: TObject); + procedure Button5Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure kezdet(Sender: TObject); + procedure Button2Click(Sender: TObject); +private + { Private declarations } + procedure Torles; + procedure TengelyX; + procedure TengelyY; + procedure BeosztasX(i:real); + procedure PirosPont(a,b:real); + procedure KekPont(a,b:real); + procedure fuggvenyabra; + function fuggveny(t:real):real; + function primitivfgv(t:real):real; + procedure ertekkeszlet; +public + { Public declarations } +end; + +var + Form10: TForm10; + x1,x2,y1,y2:real; + pontszam,gyak:integer; + +implementation +uses + Unit1, Unit11; + +{$R *.dfm} + +// BEGIN +procedure TForm10.kezdet(Sender: TObject); +begin + panel1.Left:=trunc((screen.Width-panel1.Width)/2); + button1.Top:=screen.Height-30; + button2.Top:=screen.Height-30; + button5.Top:=screen.Height-30; + button6.Top:=screen.Height-30; + label1.Top:=5; + label2.Top:=label1.Top+label1.height+5; + label3.Top:=label2.Top+label2.height+5; + label4.Top:=screen.Height-25; + button1.Enabled:=true; + button2.Enabled:=false; + button5.Enabled:=true; + button6.Enabled:=true; +end; +// CLOSE +procedure TForm10.Button6Click(Sender: TObject); +begin + form1.Close; +end; +end.