ені, автор дізнався, що таке MathCAD, Delphi.
Список використаних джерел
Методичні посібники по MathCAD.
Конспект лекцій з інформатики.
Конспект лекцій з механіки матеріалів
Збірник завдань для курсових робіт з теоретичної механіки: Навчальний посібник для технічних вузів.- 5-е вид.
Додаток 1.
unit Unit1 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, StdCtrls, Grids, Buttons, jpeg, TeEngine, Series ,, Chart;=class (TForm): TStringGrid ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TRadioGroup ;: TImage ;: TImage ;: TImage ;: TLabel ;: TLabel ;: TEdit ;: TLabel ;: TLabel ;: TEdit ;: TButton ;: TLabel;:TEdit ;: TLabel ;: TLabel ;: TButton ;: TEdit ;: TLabel ;: TChart ;: TLineSeries ;: TButton; FormCreate (Sender: TObject); Button1Click (Sender: TObject); Image2Click (Sender: TObject); Image3Click ( Sender: TObject); Button2Click (Sender: TObject); Edit3Change (Sender: TObject); Button3Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TForm1;, i: integer;
{$ R * .dfm} TForm1.FormCreate (Sender: TObject);:=0; .ItemIndex:=1; .ItemIndex:=1; .ItemIndex:=0; .ItemIndex:= 0; .ItemIndex:=1; .Cells [0,0]:=Номер ходу; .Cells [1,0]:='К-сть грошей у гравця ;; TForm1.Button1Click (Sender: TObject); a, b , c, n, z, k, d, v, m, chet, chet1: integer;
chet1:=3;//к-ть програшів поспіль після якого повертаються до початкового значення
i:=i + 1; chet=chet1 then k:=strtoint (edit3.Text);// повернення до початкової ставки:=0;:=strtoint (edit1.Text);:=strtoint (edit2.Text);:=strtoint (edit4.Text); k gt; b then k:=strtoint (edit3.Text) ; b lt;=0 then ShowMessage (Пора йти додому)) ') else//при проігришеradiogroup1.ItemIndex=0 then//при мартінгейлеradiogroup2.ItemIndex=0 then//перевірка чи вибраний ліміт казіноk gt;=a then k:=strtoint ( edit3.Text);// дії при відповіді так;:=1 + random (36);// генерація ігри.Caption:=inttostr (c);:=c mod 2; d=0 then d:=1 d:=- 1;// визначення випав сектора
if d=f then//дії у разі виграшу
begin
b:=b + k;
if radiogroup3.ItemIndex=0 then f:=- 1 * f;// Зміна сектора у разі виграшу
k:=strtoint (edit3.Text); chet gt; 0 then chet:=chet - 1; //:=bk;:=k * 2;:=chet + 1; radiogroup4.ItemIndex=0 then f: =- 1 * f ;;. Cells [0, i]:=inttostr (i);// запис результатів в табліцу.Cells [1, i]:=inttostr (b) ;. RowCount:=i; .Text:=inttostr (b); 3.Text:=inttostr (k);
end
else//дії при антімартінгейле логіка побудови аналогічно само як і в мартінгейл
beginradiogroup2.ItemIndex=0 thenk gt;=a then k:=strtoint (edit3.Text) ;;:=1 + random (36) ;. Caption:=inttostr (c);:=c mod 2; d= 0 then d:=1d:=- 1; d=f then:=b + k;:=k * 2; chet gt; 0 then chet:=chet - 1; radiogroup3.ItemIndex=0 then f:=- 1 * f;:=bk;:=strtoint (edit3.text); radiogroup4.ItemIndex=0 then f:=- 1*f;:=chet+1;;.Cells[0,i]:=inttostr(i);.Cells[1,i]:=inttostr(b);.Text:=inttostr(b);.Text:=inttostr(k);.RowCount:=i;;;;TForm1.Image2Click(Sender: TObject);
f:=- 1;// функції вибору кольору початкового сектора
image2.Transparent:=true ;; TForm1.Image3Click (Sender: TObject);:=1; .Transparent:=True ;; TForm1.Button2Click (Sender: TObject);// функція скидання даних для подальшої ігриz: integer; .Transparent:=false; .Transparent:=false; StringGrid1 doz:=0 to ColCount - 1 do [z] .Clear;:=0; .Cells [0,0] :=Номер ходу; 1.Cells [1,0]:=К-сть грошей у гравця;
edit4.Text:=edit3.Text; .Caption:= raquo ;;. Clear ;; TForm1.Edit3Change (Sender: TObject) ;. Text:=edit3.Text ;; TForm1.Button3Click (Sender: TObject );// функція промальовування графікаhod, ksh, i: integer; .Clear; i:=1 to stringgrid1.RowCount do:=strtoint (stringgrid1.Cells [0, i]);:=strtoint (stringgrid1.Cells [1, i] ) ;. AddXY (hod, ksh) ;;
end;.
