pb de declaration

**babou54** · 29/11/2006, 17h56

bonjour,
j'ai fait programme mais veut pas marcher

mais je vois pas l'erreur que j'orai pu commettre;
le compilateur me dit que un declaration est attendu mais fin de fichier trouvé
j'ai remuer le pb ds tous les sens mais j'y arrive pas.
Et je suis persuadé que c'est super con

**pinson** · 29/11/2006, 18h03

Merci de mettre le code ou de préciser car là on peut pas t'aider ...

**babou54** · 29/11/2006, 18h04

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
function hasard(max: Integer):real;
 
 
begin
 
  randomize;
  result:=random(max)+1;
 
end;

dsl

**defluc** · 29/11/2006, 18h32

Ce n'est certainement pas le code de cette seule fonction qui provoque l'erreur.
Regardes quelle est l'instruction qui t'est renseignée par le compilateur.

**Guile** · 29/11/2006, 18h40

Salut, as tu bien déclaré ta fonction dans la partie Interface ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Interface
 
function hasard(max: Integer):real;
 
Implementation
 
function hasard(max: Integer):real; 
begin
  randomize;
  result:=random(max)+1;
end;

**babou54** · 29/11/2006, 18h49

a marche po ca non plu

me met plus d'erreur a cause d'implatation et d'interface

**defluc** · 29/11/2006, 18h54

Envoies ta source complète.

**babou54** · 29/11/2006, 19h06

oups j'ai donner le mauvais dsl voila le bon :

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
43
44
45
46
47
48
49
 
program jeudedes;
{$APPTYPE CONSOLE}
uses
  sysutils;
 
var
nbjoueur,totjoueur,maxde1:integer;
de1,de2,score:real;
nomjoueur:string;
function hasard (max:integer):real;
 
 
begin
 write ('combien de joueurs participent à la partie ?:');
 read (nbjoueur);
 
 totjoueur:=0;//cumul mis à 0
 
 if nbjoueur >=2
    then begin write ('nom du joueur:');
               read (nomjoueur);
               while totjoueur<>nbjoueur do // debut de la boucle
               begin
               totjoueur:= totjoueur+1;      // cumul du nombre de joueur
 
               de1:= hasard(6);                // fonction pour le 1er dé
               de2:= hasard(6);               // fonction pour le 2eme dé
 
               if de1<>de2
                   then score:=de1+de2
                   else if de1=de2
                            then score:=(de1+de2)*2
                            else if de1=6
                                    then score:=de1+de2*2
                                    else if de2=6
                                            then score:=de1*2+de2;
 
                  write ('nom du joueur:');
                  read (nomjoueur)
               end
          end
 
    else write ('nombre de joueurs insufisant pour commencer une partie'); // si il y à moins de 2 joueurs
 
 
    write('le score est de :');
    readln(score);
end;

**OutOfRange** · 29/11/2006, 19h19

Salut

Il manque le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

end.

final

Si tu as copié l'intégralité de ton code, le pb vient de là

**flash_math** · 29/11/2006, 19h30

C'est pire que ça encore.

Voila le code exact :

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
43
44
45
46
47
48
49
50
51
52
53
program jeudedes;
{$APPTYPE CONSOLE}
uses
  sysutils;
 
var
nbjoueur,totjoueur,maxde1:integer;
de1,de2,score:real;
nomjoueur:string;

function hasard (max:integer):real;
begin
  result:=random(max)+1;
end;
 
begin
 randomize; //Pour initialiser le gestionnaire aléatoire !

 write ('combien de joueurs participent à la partie ?:');
 read (nbjoueur);
 
 totjoueur:=0;//cumul mis à 0
 
 if nbjoueur >=2
    then begin write ('nom du joueur:');
               readln (nomjoueur);
               while totjoueur<>nbjoueur do // debut de la boucle
               begin
               totjoueur:= totjoueur+1;      // cumul du nombre de joueur
 
               de1:= hasard(6);                // fonction pour le 1er dé
               de2:= hasard(6);               // fonction pour le 2eme dé
 
               if de1<>de2
                   then score:=de1+de2
                   else if de1=de2
                            then score:=(de1+de2)*2
                            else if de1=6
                                    then score:=de1+de2*2
                                    else if de2=6
                                            then score:=de1*2+de2;
 
                  write ('nom du joueur:');
                  writeln (nomjoueur)
               end
          end
 
    else write ('nombre de joueurs insufisant pour commencer une partie'); // si il y à moins de 2 joueurs
 
 
    write('le score est de :');
    writeln(score);
end.

En rouge tous les changements. De plus tu vas avoir un probleme car j'imagine que tes dés doivent donner des résultats en entier ! pour l'instant tu aura des résultats de type réel et non entier. Le code ainsi corrigé devrait passer

**babou54** · 29/11/2006, 19h45

merci beaucoup ca fait une semaine que je suis dessus

**flash_math** · 29/11/2006, 20h47

Faut dire, tu as l'air d'apprendre du pascal de base en faisant une application console avec Delphi !

Je penses qu'on te réponds tous en pensant aux structures objets et aux unités ce que tu n'utilises pas.

Pour en revenir au cas du real si tu veux que de1=de2 un jour, ben bonne chance ! tu dois avoir 1 chance sur plus de 10^32 !

Je te conseille de regarder du côté de Integer et de Round !

Ca me fait penser que je faisais créer un jeu de Yams à mes élèves de collège dans mon club Info. Si ça peut t'aider je retrouverais les sources.

**Pedro** · 29/11/2006, 22h19

Envoyé par flash_math

Je te conseille de regarder du côté de Integer et de Round !

Ou alors remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if de1=de2 then

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if SameValue(de1, de2) then

PS: si le sujet est résolu, merci de cliquer sur le bouton

**flash_math** · 29/11/2006, 22h24

Vu l'étendue de real pour avoir la même valeur accroche toi ! En fait je epnses qu'il essaye de tirer un de à 6 faces donc il vaudrait mieux utiliser des variables de type Integer que de type real.