Jeu du Compte est bon

Oui, mais ce n'était qu'un exemple de l'auteur qui fonctionne.

Si on prend des nombres au hasard, il faut mettre un message si le compte n'est pas bon et donner le résultat le proche. Voilà le code légèrement modifié :


{ ====================================================================== }
procedure TForm1.operations(t: tab; max: integer);
var i, j1, j2: integer;
a : longint;
t1 : tab;
begin
for i := 1 to 4 do
for j1 := 1 to max - 1 do
for j2 := j1 + 1 to max do
begin
case i of
1: a := t + t;
2: a := t - t;
3: a := t * t;
4: begin
a := t div t;
if t * a <> t then a := 0;
end;
end;
if a > 0 then
begin
if a = t then
begin
//gotoxy(1,8-max);write(t,signe,t,'=',a);
Form1.ListBox1.Items.Add(inttostr(t) + signe + inttostr(t) + '=' + inttostr(a));
trouve := true ;
exit;
end
Else
Begin
If (Abs(a - t) < Proche) Then
Begin
Proche := Abs(a - t) ;
Voisin := a ;
End ;
End ;
move(t, t1, 28);
t1 := a; t1 := 0;
repeat
echange := false;
for ii := 1 to max - 1 do
if t1 < t1[ii + 1] then
begin
aa := t1; t1 := t1[ii + 1]; t1[ii + 1] := aa;
echange := true;
end;
until not echange;
operations(t1, max - 1);
if trouve then
begin
//gotoxy(1,8-max);write(t,signe,t,'=',a);
Form1.ListBox1.Items.Add(inttostr(t) + signe + inttostr(t) + '=' + inttostr(a));
exit;
end
Else
Begin
If (Abs(a - t) < Proche) Then
Begin
Proche := Abs(a - t) ;
Voisin := a ;
End ;
End ;
end;
end;
end;
{ ========================================================================= }
Procedure TForm1.Button1Click(Sender: TObject);
Var
Texte : String ;
Maxi : Integer ;
i : Integer ;
Begin
Maxi := 6 ;
Randomize;
Nombres := Random(1000) ;
For i := 1 to Maxi do begin
Nombres := Random(99) + 1 ;
End;
Screen.Cursor := crHourGlass;
Trouve := false;
Proche := 100000000 ;
Voisin := 0 ;
ListBox1.Clear;
Form1.ListBox1.Items.Add('Nombre à trouver : '+ IntToStr(Nombres)) ;
Texte := 'Tirage : ' ;
For i := 1 to Maxi Do
Texte := Texte + IntToStr(Nombres) + ' - ' ;
Form1.ListBox1.Items.Add(Texte) ;
Form1.ListBox1.Items.Add('') ;
Application.ProcessMessages;
Operations(Nombres, Maxi);
If Trouve Then
Form1.ListBox1.Items.Add('Le compte est bon --')
Else
Begin
Form1.ListBox1.Items.Add('Le compte n''est pas bon --');
Form1.ListBox1.Items.Add(' Valeur la plus proche : '+ IntToStr(Voisin));
End ;
Screen.Cursor := crDefault;
End;


A+
Charly