Problème dans prog de mon prof !!
Djilali
-
Djilali -
Djilali -
Salut, je suis actuellement en 1ere année de licence info et j'ai un TP à rendre, prochainement, qui est le jeu du pendu! Mais dans le fichier Dico.pas(génère un mot au hazard) que notre prof nous a fourni il semble avoir une erreur:
26/14------Dico.pas------ Fatal: Syntax error, [ expected but OF found.
Voilà le programme :
unit dico;
interface
function mot_au_hasard : STRING;
implementation
const nb_max_mot = 70000;
var
t : array Xof STRING; {X endroit de l'erreur}
n : CARDINAL;
procedure initialiser(const nom_fichier_dictionnaire : STRING);
var
f : TEXT;
i : CARDINAL;
begin
i:=0;
assign(f,nom_fichier_dictionnaire);
reset(f);
setlength(t,nb_max_mot);
while not eof(f) do begin
readln(f,t[i]);
i:=i+1;
end (*while*);
n:=i;
close(f);
end (*initialiser*);
function mot_au_hasard : STRING;
begin
mot_au_hasard:=t[random(N)];
end (*mot_au_hasard*);
initialization
randomize();
initialiser('dico.txt');
end.
Est ce que vous auriez une idée sur le problème ?
26/14------Dico.pas------ Fatal: Syntax error, [ expected but OF found.
Voilà le programme :
unit dico;
interface
function mot_au_hasard : STRING;
implementation
const nb_max_mot = 70000;
var
t : array Xof STRING; {X endroit de l'erreur}
n : CARDINAL;
procedure initialiser(const nom_fichier_dictionnaire : STRING);
var
f : TEXT;
i : CARDINAL;
begin
i:=0;
assign(f,nom_fichier_dictionnaire);
reset(f);
setlength(t,nb_max_mot);
while not eof(f) do begin
readln(f,t[i]);
i:=i+1;
end (*while*);
n:=i;
close(f);
end (*initialiser*);
function mot_au_hasard : STRING;
begin
mot_au_hasard:=t[random(N)];
end (*mot_au_hasard*);
initialization
randomize();
initialiser('dico.txt');
end.
Est ce que vous auriez une idée sur le problème ?
Configuration: Windows XP Internet Explorer 6.0
9 réponses
-
c'est quoi le language ?
-
-
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
je pense k'il ya pa d"erreur, en plus t : array of STRING; c une declaration normal, une table de string..
je sai pa, il m'apparai normal -
Bah c'est ce que je pense, comme c'est mon prof qu'il la fait mais quand je compile mon programme avec dev-Pascal, il me signal une erreur !
-
haaaa, dsl
alors l"erreur 26/14------Dico.pas------ Fatal: Syntax error, [ expected but OF found. ??
ok il te di ke [ manque,
ben, tu connai comment declarer un tableau en pascal, verifie si c vrai . -
déclaration array[binf..bsup] of ....
binf= indice borne inferieure, bsup= indice borne supérieure.
essaye donc avec array [1..100] of string par exemple -
J'ai essayé mais là il me dit :
38 / 14 dico.pas
Error: Incompatible type for arg no. 1: Got Array[1..5] Of SHORTSTRING, expected OPENSHORTSTRING
pour; setlength(t,nb_max_mot);