Bonjour à tous, j'ai un petit problème avec mon Random, voici mon programme :
Citation :
with ap12;
use ap12;
procedure Dichotomie is
Valeur : Integer;
Fini : Boolean := False;
Aleatoire : Integer;
Compteur : Integer := 0;
begin
Aleatoire := Integer(99 * Random(0, 1) + 1);
while not Fini loop
Print("Proposition ? (entre 1 et 100)" );
Read(Valeur);
if Valeur = Aleatoire then
Fini := True;
elsif Valeur < Aleatoire then
Println("Plus grand !" );
else
Println("Plus petit !" );
end if;
Compteur := Compteur + 1;
end loop;
Println("Gagné en " & Compteur & " coups" );
end Dichotomie;
|
Et lors de la compilation, voici l'erreur :
Citation :
Dichotomie.adb:3:11: warning: file name does not match unit name, should be "dichotomie.adb"
Dichotomie.adb:9:28: too many arguments in call to "Random"
gnatmake: "/home/patate/ap12/Dichotomie.adb" compilation error
patate@patate-laptop:~/ap12/Programmation$
|
Que dois-je faire svp ? J'ai essayé avec un G : Generator; et puis Random(G) mais ça ne marche pas non plus...
Message édité par lesinintelligens le 24-10-2008 à 20:28:37
