Voilà : deux joueur lancent un dé. Le joueur qui obtient le nombre le plus grand gagne un point.
Le vainqueur est le premier arrivé à 10.
J'ai écrit mon code mais, comme d'habitude, il ne marche pa comme je veux !
Voilà la bête :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program jeu;
uses wincrt;
var ch1:string;
    c1,c2:integer;
 
procedure pointage(var j1,j2:integer);
var p1,p2:integer;
begin
j1:=0;
j2:=0;
repeat
       repeat
         p1:=random(7);   
       until (p1<>0) ;
         writeln ('joueur1: ',p1);
        repeat         
           p2:=random(7);
        until  (p2<>0); 
           writeln('joueur2: ',p2) ;
  if p1>p2 then
     j1:=j1+1
  else if  p1<p2 then
     j2:=j2+1;
     p1:=0;
     p2:=0;
until (j1=10) or (j2=10);
end;
 
function gagnant(j1,j2:integer;var ch:string):string;
 
begin
if j1=10 then
 ch:='joueur 1'
  else if j2=10 then
  ch:='joueur 2 ';
gagnant:=ch;
end;
 
begin
 pointage(c1,c2);
writeln('le gagnant est: ',gagnant(c1,c2,ch1));
end.