Bonsoir,

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



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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.