Problème dans prog de mon prof !!

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

  • Votes
  • Date
  • Date décroissante
  1. Non non, le x c'est moi qui l'ai rajouter pour indiquer l'endroit ou est l'erreur !
    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
      1. 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 !
        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 .
          1. 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
            1. 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);