Tableau à une dimension : erreur "illegal expression"

Version imprimable

Bonsoir,

Bonne année tout d'abord.
J'aimerais solliciter votre aide à propos d'un message d'erreur sur une procédure !

:pc:

Voilà j'ai voulu créer une procédure ECRIT1D pour écrire un tableau à une dimension et puis du coup il me dit "illegal expression" ; voici le source du programme test avec la procédure en module interne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 program test; type TAB=array[1..1000]of longint; Var T:TAB; L:longint; {$i C:\ALGO\MODULES\procedures\LECT1DE.pas} procedure ECRIT1D(Var Tbl:TAB; Var Taille:longint); var i:longint; begin for i:=1 to Taille do Write(Tbl[i]); end; begin LECT1DE(T,L); ECRIT1D(T,L); end.

02/01/2013, 14h12
EtherOS

Proposition

Source d'erreurs:
============
=> Vérifier si le répertoire du fichier inclut est valide
=> la taille L = ? (pas initialisé)
=> mettre un readln à la fin pour afficher vos procédures lors de l'éxécution.

Bonne Année 2013

Pourquoi faire un include ?

utilise Uses.

Code:

Uses LECT1DE.pas;

ensuite essaye de ne pas nommer tes unités comme tes fonctions :

ULect1D <- U pour unité
TLect1D <- T pour type
vLect1D <- v pour variable (voir vl (locale) et vg (globale))
cLect1D <- c pour constante
Lect1D <- fonction/procedure

exemple :

fichier UArray1D.pas

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
 
unit UArray1D;
 
interface
 
const
  cArray1DMax = 1000;
 
type
  TArray1D = array[0..cArray1DMax-1] of LongInt;
 
procedure Array1DInitialize(var aArray1D: TArray1D; aDefault: LongInt);
procedure Array1DRead(var aArray1D: TArray1D);
procedure Array1DWrite(aArray1D: TArray1D);
 
implementation
 
procedure Array1DInitialize(var aArray1D: TArray1D; aDefault: LongInt);
var X: LongInt:
begin
  for X := 0 to cArray1DMax-1 do
    aArray1D[X] := aDefault;
end;
 
procedure Array1DRead(var aArray1D: TArray1D);
var X: LongInt:
begin
  for X := 0 to cArray1DMax-1 do
  begin
    write('Entrez le nombre numero ', X,' : ');
    readln(aArray1D[X]);
  end;
end;
 
procedure Array1DWrite(aArray1D: TArray1D);
var X: LongInt:
begin
  for X := 0 to cArray1DMax-1 do
  begin
    write(aArray1D[X],' ');
  end;
end;
 
end.

Le programme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
program Test;
 
uses UArray1D;
 
var 
  a1d : TArray1D;
 
begin
  Array1DInitialize(a1d, 0);
  Array1DRead(a1d);
  Array1DWrite(a1d);
end.

Bon code et bon néné :)