Précédent   Forum du club des développeurs et IT Pro > Autres langages > Pascal > Free Pascal
Free Pascal Le compilateur Pascal multiplateforme
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 24/12/2012, 12h17   #1
Jijidev
Invité de passage
 
Femme
Inscription : décembre 2012
Messages : 6
Détails du profil
Informations personnelles :
Sexe : Femme

Informations forums :
Inscription : décembre 2012
Messages : 6
Points : 0
Points : 0
Par défaut Jeu qui demande de trouver le nombre entre 0 et 10 choisi par l'ordinateur et qui compte les coups

Salut,

SVP aidez-moi à comprendre quelques points dans le code d'un programme. L'exercice est de faire un jeu qui demande de trouver le nombre entre 0 et 10 choisi par l'ordinateur (en comptant les coups).
On utilisera la fonction Random(N) qui renvoie un entier entre 0 et N-1 compris, par l'instruction valeur_choisie := Random(11).
Le code de la correction est le suivant :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
PROGRAM jeu (input, output);
VAR
  choix, rep, nb : integer;
BEGIN
  nb := 0;
  choix := random(11);
  repeat
    nb := nb + 1;
    writeln('Choix ndeg. ',nb,' ? ');       { c'est quoi ndeg.?}
    readln(rep)                                 {et c'est qoi rep ?}
  until rep = choix;
  writeln('Trouvé en ',nb,' coups')
END.
Merci.
Jijidev est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/12/2012, 01h09   #2
Dr.Mimo
Invité de passage
 
Homme George Klarckson
Étudiant
Inscription : mars 2012
Messages : 10
Détails du profil
Informations personnelles :
Nom : Homme George Klarckson
Localisation : Algérie

Informations professionnelles :
Activité : Étudiant
Secteur : Tourisme - Loisirs

Informations forums :
Inscription : mars 2012
Messages : 10
Points : 3
Points : 3
Par défaut critiquer!!

Bonjour!

Désolé pour le titre mais ... ce code manque de quelque chose ...

la variable rep c'est où le jeu va stocker les valeurs que l'utilisateur va entrer

et si (rep = choix) le jeu arrête et nb compte le nombre de coup et choix ndeg veut dire "choix numero ",nb

Merci
Dr.Mimo est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 02/01/2013, 11h50   #3
Jijidev
Invité de passage
 
Femme
Inscription : décembre 2012
Messages : 6
Détails du profil
Informations personnelles :
Sexe : Femme

Informations forums :
Inscription : décembre 2012
Messages : 6
Points : 0
Points : 0
Merci. Le code se laisse s'executé quand on rajoute l'avant dérniére ligne:

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
PROGRAM jeu (input, output);
VAR
  choix, rep, nb : integer;
BEGIN
  nb := 0;
  choix := random(11);
  repeat
    nb := nb + 1;
    writeln('Choix ndeg. ',nb,' ? ');
    readln(rep)
  until rep = choix;
  writeln('Trouvé en ',nb,' coups');
READLN;READLN;
END.
Jijidev est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Cette discussion est résolue.
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 19h08.


 
 
 
 
Partenaires

Hébergement Web