Turbo Pascal : help - Delphi/Pascal - Programmation
Marsh Posté le 14-05-2002 à 22:42:40
héhé Pascal attire pas les foules, ce message a même pas été lu 1 fois, j'aurais dû mettre un titre plus accrocheur, dans le genre "Turbo Pascal et le sexe"
Plus sérieusement, une petite aide pliize
Marsh Posté le 14-05-2002 à 22:57:00
X := random(3);
if (X = 0) and (A = 0) then A := 1 else
if (X = 0) and (A = 1) then A := 0 else
if (X = 1) and (B = 0) then B := 1 else
if (X = 1) and (B = 1) then B := 0 else
...;
WriteLn(A, B);
Ta ligne avec un else me semble très bizarre... tu voulais y faire quoi ?
Marsh Posté le 14-05-2002 à 23:15:08
je croyais que qd il y avait un if, fallait tjs mettre un else après. Faut donc mettre un else à chaque fois à la fin et pas de ; ?
Marsh Posté le 14-05-2002 à 23:18:32
??
non d'après mes souvenir, tu mets un else si tu veux et tu mets un ";" quand il n'y a pas de else qui suit!
Marsh Posté le 14-05-2002 à 23:26:13
Il n'y a que devant un else qu'il n'y a pas de ";"
Mais t'es pas obligé de mettre un else (je sais pas pourquoi j'en ai foutu à chaque ligne d'ailleurs, c'était utile qu'une ligne sur deux.
Enfin tes tests sont quand même bizarres
Marsh Posté le 14-05-2002 à 23:32:13
je vous avoue que je galère là
avec ou sans, ça marche pas...
je sais plus quoi essayer
if .. and..
c'est correct ?
Marsh Posté le 14-05-2002 à 23:39:53
- quel message met le compilateur ?
- pour quel code à quelle ligne ?
Marsh Posté le 14-05-2002 à 23:40:44
antp a écrit a écrit : - quel message met le compilateur ? - pour quel code à quelle ligne ? |
pareil
Marsh Posté le 14-05-2002 à 23:56:08
erreur 57, Then expected
dès la 1ère ligne de if, le curseur pointe le = du and A=0
je suis sous Turbo Pascal MSDOS... (j'espère que je dis pas une connerie là )
Marsh Posté le 15-05-2002 à 00:03:20
montre le code...en entier tel qu'il est maintenant!
A mon avis, c'est les parenthèse genre elles sont obligatoires...
pas if X=0 and A=0 then
mais if (X=0) and (A=0) then
(comme antp l'a écrit quoi!)
Marsh Posté le 15-05-2002 à 00:18:37
merciiii !! j'avais oublié les parenthèses, sorry !
ça marche now !
enfin mnt c'est le début devrais-je dire, car ça c'est juste la structure, mnt je dois intégrer ça dans une boucle, l'utilisateur définit le nbre de lancers (de couples A-B), et au hasard (random), j'ai X=0,1,2
ce qui fait que le couple change à chaque fois; et je dois tout afficher...
merci pr votre aide, et si vous avez des idées pr la suite
Marsh Posté le 14-05-2002 à 22:25:45
Comment on code 2 conditions ?
par exemple
X:=random(3);
if X=0 and A=0 then A:=1;
if X=0 and A=1 then A:=0;
if X=1 and B=0 then B:=1;
if X=1 and B=1 then B:=0;
else {if X=2} A:=A and B:=B;
writeln(A, B);