Pb de prog avec mastermind en turbopascal Fermé

Question

J'essaye depuis deux jrs de programmer mastermind et ca me gonfle.Si qq_un peut m'aider...Si vous l'avez deja fé ce sera plus simple.Merci davance

BmV · Answer

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=-          ||       ||

lof. · Answer

Le dernier que j'ai fait était en python je crois ....ensuite j'ai fait un snake ;-)

panda31 · Answer

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.

Pb de prog avec mastermind en turbopascal

3 réponses

Discussions similaires