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.
Partager