Problème dans prog de mon prof !!

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 ?
Configuration: Windows XP
Internet Explorer 6.0

9 réponses

  1. mype Messages postés 2459 Date d'inscription   Statut Membre Dernière intervention   437
     
    c'est quoi le language ?
    0
  2. salhi
     
    metrre un espace entre le x et le of
    0
  3. Djilali
     
    Non non, le x c'est moi qui l'ai rajouter pour indiquer l'endroit ou est l'erreur !
    0
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. naabster Messages postés 18 Statut Membre 1
     
    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
    0
  6. Djilali
     
    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 !
    0
  7. naabster Messages postés 18 Statut Membre 1
     
    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 .
    0
  8. salhi
     
    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
    0
  9. Djilali
     
    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);
    0