pb de declaration

Version imprimable

29/11/2006, 17h56
babou54

pb de declaration

bonjour,
j'ai fait programme mais veut pas marcher:pleure:
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 :mouarf:
29/11/2006, 18h03
pinson

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

Code:

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

dsl :oops:

29/11/2006, 18h32
defluc

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.

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

Code:

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;

;)

29/11/2006, 18h49
babou54

a marche po ca non plu :cry:
me met plus d'erreur a cause d'implatation et d'interface
29/11/2006, 18h54
defluc

Envoies ta source complète.

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

Code:

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;

29/11/2006, 19h19
OutOfRange

Salut

Il manque le

Code:

end.

final

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

C'est pire que ça encore.

Voila le code exact :

Code:

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

29/11/2006, 19h45
babou54

merci beaucoup ca fait une semaine que je suis dessus :king:
29/11/2006, 20h47
flash_math

:D 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.:mouarf:

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.
29/11/2006, 22h19
Pedro
Citation:

Envoyé par flash_math

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

Ou alors remplacer
Code:

1 2 if de1=de2 then
par
Code:

1 2 if SameValue(de1, de2) then
;)

PS: si le sujet est résolu, merci de cliquer sur le bouton :resolu:
29/11/2006, 22h24
flash_math

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.
29/11/2006, 22h28
Pedro

Citation:

Envoyé par flash_math

Vu l'étendue de real pour avoir la même valeur accroche toi !

+1

Citation:

Envoyé par flash_math

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.

Ah ben si c'est vraiment le cas, c'est sur que ce serait beucoup plus simple :P

[Edit]
J'avais mal compris :P