A voir également:
- Pb de prog avec mastermind en turbopascal
- Turbopascal - Télécharger - Édition & Programmation
- Robot prog - Télécharger - Édition & Programmation
- Prog dvb - Télécharger - Télévision
- Technique mastermind ✓ - Forum Java
- Mastermind chiffre - Forum C
3 réponses
BmV
Messages postés
90585
Date d'inscription
samedi 24 août 2002
Statut
Modérateur
Dernière intervention
10 mai 2024
4 687
14 mai 2003 à 10:29
14 mai 2003 à 10:29
Salut.
Faudrait donner quelques détails, là .....
Sûr qu'il y a des gens qui sont prêts à t'aider, mais à quoi ?
T'en es où ?
A+
-=O(_BmV_)O=-
|| ||
Faudrait donner quelques détails, là .....
Sûr qu'il y a des gens qui sont prêts à t'aider, mais à quoi ?
T'en es où ?
A+
-=O(_BmV_)O=-
|| ||
lof.
Messages postés
689
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
11 juin 2007
44
14 mai 2003 à 10:50
14 mai 2003 à 10:50
Le dernier que j'ai fait était en python je crois ....
ensuite j'ai fait un snake ;-)
ensuite j'ai fait un snake ;-)
Be en fait voici mon prog qui ne marche pa bien avec turbo pascal 5.5 et 7.0 :
Program Mastermind;
uses crt;
var n,np,i,result1,result2,result3,result4 : integer ;
Begin
ClrScr;
Randomize;
i:=1;
N:=1498;
Writeln('Entre une proposition de quatre chiffres');
Readln(np);
While np<>n do
Begin
If (Np div 1000)<>(n div 1000) then
Begin
Result1:=0;
If ((Np div 100) mod 10)<>((n div 100) mod 10) then
Begin
Result2:=0;
If ((Np div 10) mod 10)<>((n div 10) mod 10) then
Begin
Result3:=0;
If (np mod 10)<>(n mod 10) then Result4:=0
else Result4:=1
End
else Result3:=1
End else Result2:=1
End
else Result1:=1;
I:=I+1;
Writeln(Result1,Result2,Result3,Result4);
Writeln('entrer une proposition');
Read(np)
End;
If np=n then writeln('vous avez trouv‚ en : ',i,' coups');
Readln
End.
Voila le topo. Je voi pa vrement keski kloch...mai bon!
Merci pour vos conseils.
Program Mastermind;
uses crt;
var n,np,i,result1,result2,result3,result4 : integer ;
Begin
ClrScr;
Randomize;
i:=1;
N:=1498;
Writeln('Entre une proposition de quatre chiffres');
Readln(np);
While np<>n do
Begin
If (Np div 1000)<>(n div 1000) then
Begin
Result1:=0;
If ((Np div 100) mod 10)<>((n div 100) mod 10) then
Begin
Result2:=0;
If ((Np div 10) mod 10)<>((n div 10) mod 10) then
Begin
Result3:=0;
If (np mod 10)<>(n mod 10) then Result4:=0
else Result4:=1
End
else Result3:=1
End else Result2:=1
End
else Result1:=1;
I:=I+1;
Writeln(Result1,Result2,Result3,Result4);
Writeln('entrer une proposition');
Read(np)
End;
If np=n then writeln('vous avez trouv‚ en : ',i,' coups');
Readln
End.
Voila le topo. Je voi pa vrement keski kloch...mai bon!
Merci pour vos conseils.
