salut a tous!
voila ce que je dois faire:
saisir un tableau t de n chaine de caracteres(n dans [2..20]), puis afficher pour chaque elements T[i] les i premiers caractere de la chaine.
Voila mon travail mais ca ne marche pas comme je veux!
essayer de m'aider pour trouver mon erreur svp..

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program triangle;
 
uses wincrt;
 
type tab=array[1..20] of string;
 
var
  a,t: tab;
  n: integer;
 
procedure saisie(n1:integer;var t1:tab);
var i:integer;
begin
  for i:=1 to n1 do
    repeat
      writeln('donner l''élément num ',i,' du tableau: ') ;
      readln(t1[i]);
    until length(t1[i])>i;
end;
 
procedure affichage(n1:integer;t1:tab;var t2:tab);
var k,j,l:integer;
begin
  for k:=1 to n1 do
    for j:=1 to k do
      t2[k][j]:=t1[k][j];
 
  for l:=1 to n1 do
    writeln(t2[l]);
end;
 
begin
  repeat
    write('donner la taille du tableau : ');
    readln(n);
  until n in [2..20];
  saisie(n,t);
  affichage(n,t,a);
end.