"Орел или решка"

[Владимир_Мар]

В Делфи создана игра "Орел или решка" на трех формах. 1 форма-начать игру. 2 форма- орел. 3 форма- решка.Орел и решка выпадают в произвольном порядке. как сделать так чтобы при каждом выпадании орла я выигрывал (n+2)$, а при выпадании решки проигрывал все?
Зараннее спасибо)

[bitSoft]

a otkuda znati shto ti za cod napisal, kod v studiu

[Владимир_Мар]

1 форма
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
FormCount, i: integer;

implementation
uses Unit2, Unit3;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
begin
Randomize;
FormCount:=Random(2);
case FormCount of
0: Form2.Show;
1: Form3.Show;
end;

end;
end;
end.

[Владимир_Мар]

2 форма
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;

type
TForm2 = class(TForm)
Button1: TButton;
Image2: TImage;

procedure Button1Click(Sender: TObject);


private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
FormCount, i: integer;
implementation
uses Unit1, Unit3;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin
Randomize;
FormCount:=Random(2);
case FormCount of
0: Form2.Show;
1: Form3.Show;

end;

end;

[Владимир_Мар]

3 форма
unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, StdCtrls;

type
TForm3 = class(TForm)
Button1: TButton;
Image1: TImage;

procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;
FormCount, i: integer;
implementation
uses Unit1, Unit2;
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
Randomize;
FormCount:=Random(2);
case FormCount of
0: Form2.Show;
1: Form3.Show;

end;
end;

[Человек_Борща]

создай 2 массива orel,Reshko целочисленого типа.
и Bool переменную..

рамдомно выбирай значения из массивов если поподаетсязначение из массива orel то bool-переменная равна True, если True то что-то куда-то приписываешь... если False то reshko, что-то отнимаешь...

[Владимир_Мар]

Спасибо.Будем пробовать.