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;