Exercice corrigé: Extrait BAC : Boucles + Random + Simulation d'un jeu
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Exercice corrigé: Extrait BAC : Boucles + Random + Simulation d'un jeu
par Napoléon Lun 23 Fév - 0:09
EXERCICE
Ecrire un programme Pascal qui simule le jeu suivant :
- A tour de role,l'ordinateur et l'utilisateur choisissent un nombre parmi : 0,1 ou 2.
- Si la différence entre les deux nombre choisis vaut :
*2, le joueur qui a proposer le mlus grand nombre gagne un point
*1, le joueur qui a proposé le plus petit nombre gagne un point.
*0, aucun point n'est marqué.
- Le jeu se termine quand l'un des deux joueurs totalise 10 points. Ce joueur sera considéré comme gagnant.
Ecrire un programme Pascal qui simule le jeu suivant :
- A tour de role,l'ordinateur et l'utilisateur choisissent un nombre parmi : 0,1 ou 2.
- Si la différence entre les deux nombre choisis vaut :
*2, le joueur qui a proposer le mlus grand nombre gagne un point
*1, le joueur qui a proposé le plus petit nombre gagne un point.
*0, aucun point n'est marqué.
- Le jeu se termine quand l'un des deux joueurs totalise 10 points. Ce joueur sera considéré comme gagnant.
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7668
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique:
(999/1000) -
Re: Exercice corrigé: Extrait BAC : Boucles + Random + Simulation d'un jeu
par Napoléon Lun 23 Fév - 1:31
Une solution que j'ai trouvée sur le Net :
- Spoiler:
- Code:
Program JEU;
uses wincrt;
var j,O,no,nj:integer;
procedure saisie(var j,O:integer);
begin
randomize;
repeat
write('joueur=');
read(j);
until j in [0..2];
O:=random(3);
writeln('Ordinateur = ',O);
end;
procedure difference(O,j:integer,var no,nj:integer);
begin
case abs(O-j) of
2:if O>j then no:=no+1 else nj:=nj+1;
1:if O<j then no:=no+1 else nj:=nj+1
end;
end;
begin
no:=0;
nj:=0;
repeat
saisie(j,O);
difference(O,j,no,nj);
until (no = 10) or (nj = 10);
if no = 10 then write('L''ordinateur a gagné ')
else write('Vous avez gagné ');
end.
Napoléon- Admin
-
Nombre de messages : 2934
Localisation : Tunisie
Réputation : 122
Points : 7668
Date d'inscription : 19/03/2007
Feuille de personnage
Capacité linguistique: (999/1000) -
Sujets similaires» Exercice: Extrait BAC : anagramme + boucles
» Exercice: Extrait BAC : Boucles + tableaux
» Exercice : Obligatoirement positifs et négatifs + boucles
» Exercice 7 page 121: Boucle FOR + Random
» Fonction Random + Exercice Lancement de deux dès
» Exercice: Extrait BAC : Boucles + tableaux
» Exercice : Obligatoirement positifs et négatifs + boucles
» Exercice 7 page 121: Boucle FOR + Random
» Fonction Random + Exercice Lancement de deux dès
Forum INFOMATH :: Enseignement de l'informatique :: Informatique - Collège & Lycée :: Exercices Pascal
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|