1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103
| --------------------------------------------------------------------------------
-- * Prog name loto.adb
-- * Project name loto
-- *
-- * Version 1.0
-- * Last update 23/05/07
-- *
-- * Created by kOrt3x on 23/05/07.
-- * Copyright (c) 2007 kOrt3x.
-- * All rights reserved.
-- * or (keep only one line or write your own)
-- * GNAT modified GNU General Public License
-- *
--------------------------------------------------------------------------------
With Ada.Text_Io, Ada.Integer_Text_Io, Ada.Numerics.Discrete_Random;
Use Ada.Text_Io, Ada.Integer_Text_Io;
Procedure Loto Is -- Debut du programme Loto
Subtype Numeros Is Integer Range 1..49;
Package Tirage_Loto Is
New
Ada.Numerics.Discrete_Random(Numeros);
Use Tirage_Loto;
Trouver : Boolean:= True;
G : Integer; -- le nombre de grille a generer
Procedure Tir_Grille Is -- Debut de Tir_Grille
Tir: Generator; -- numératation
N1,N2,N3,N4,N5,N6,N7 : Integer;
Begin
delay 0.05; -- le deal avant prochaine grille
Reset(Tir); -- mise a zero du compteur
N1 := Random(Tir);
N2 := Random(Tir);
While(N2 = N1) Loop N2 := Random(Tir); End Loop;
N3 := Random(Tir);
While(N3 = N1 OR N3=N2) Loop N3 := Random(Tir); End Loop;
N4 := Random(Tir);
While(N4 = N1 OR N4=N2 OR N4=N3) Loop N4 := Random(Tir); End Loop;
N5 := Random(Tir);
While(N5 = N1 OR N5=N2 OR N5=N3 OR N5=N4) Loop N5 := Random(Tir); End Loop;
N6 := Random(Tir);
While(N6 = N1 OR N6=N2 OR N6=N3 OR N6=N4 OR N6=N5) Loop N6 := Random(Tir); End Loop;
N7:=Random(Tir);
while (N7 = N1 or N7 = N2 or N7=N3 or N7 = N4 or N7=N5 or N7= N6) loop N7:=Random(Tir);
end loop;
Put(N1,4);
Put(N2,4);
Put(N3,4);
Put(N4,4);
Put(N5,4);
Put(N6,4);
put(" .");
put(N7,4);
End Tir_Grille; -- Fin de Tir_Grille
Begin
Put("*****************************************************************"
);
New_Line(2);
Put(" *** ********* ********* *********");
New_Line;
Put(" *** ********* ********* *********");
New_Line;
Put(" *** *** *** *** *** ***");
New_Line;
Put(" *** *** *** *** *** ***");
New_Line;
Put(" *** *** *** *** *** ***");
New_Line;
Put(" *** *** *** *** *** ***");
New_Line;
Put(" ********* ********* *** *********");
New_Line;
Put(" ********* ********* *** *********");
New_Line(2);
Put("*****************************************************************"
);
New_Line(2);
Put("Combien de Grille voulez vous generer : ");
Get(G); -- saisie du nombre de grille a g?©n?©rer
For I In 1 .. G Loop -- debut de la boucle du nombre de grille
Put("Grille numero ");
Put(I,4);
Put(" : ");
Tir_Grille;
New_Line;
End Loop; -- Fin de la boucle Tir_Grille
--Stats; -- Affichage des Stats
End Loto; -- Fin du programme Loto |
Partager