Problème de Random pour Dichotomie
Problème de Random pour Dichotomie - Ada - Programmation
Marsh Posté le 25-10-2008 à 14:39:01
La cat. ADA est plutôt déserte chez nous.
Mais une rapide recherche sur la question me donne cette page, qui me semble intéressante pour ton problème :
http://www.csupomona.edu/reference [...] 05-02.html
Sujets relatifs:
- Problème MCD
- ptit probleme pour afficher du contenu sql en PHP
- [Resolu] Problème d'include et de connexion à une database avec MDB2
- Problème balises bbcode...
- VBS & ADSI Probléme de création de "dossier de base"
- Problème lié à l'utilisation d'une variable globale
- problème snmp et php
- problème de compilation avec le main
- javascript : problème de "replace"
- Problème Boost & STLPort sous Mingw (sous wxDev-C++)
Marsh Posté le 24-10-2008 à 20:27:32
Bonjour à tous, j'ai un petit problème avec mon Random, voici mon programme :
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 :
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