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.
Partager