Opérations sur un tableau de chaînes de caractères

Version imprimable

1 pièce(s) jointe(s)

Bonjour.
J'ai essayé de faire les questions 1 et 2 en pascal mais je n'ai pas réussi. SVP j'ai beson de votre aide pour que mon programme fonctionne.

Pièce jointe 302812

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
45
46
47
48
program palindrome_complet;
uses wincrt;
type     tab=array[1..50]of string;
var
t:tab;n:integer;i:integer;
 
 
procedure saisie( n:integer);
begin
repeat
writeln('saisir taille du tableau');
readln(n);
until (n>=2) and (n<=50);
 
end;
 
procedure chargement(var t:tab;n:integer);
begin
for i:=1 to n do
repeat
writeln('saisir t[',i,']');
readln(t[i]);
until (length(t[i]<=5));
end;
 
procedure elimin(var t:tab;n:integer);
begin
var j:=integer;
for i:=1 to n do
t1:=t[i];j:=1;
repeat
if not upcase(t1[j]) in ['A'..'z'] then
  begin
  delete(t[i],j,1);
  j:=j+1;
  end
  else
  j:=j+1;
until (j=length(t[i]);
end;
 
begin
saisie(n);
chargement(t);
elimin(t);
for i:=1 to n do
writeln(t[i]);
end.

Bon j'ai trouvé quelques fautes mais c'est encore insuffisant :

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
45
46
47
48
49
50
51
52
53
program palindrome_complet;
uses wincrt;
type     tab=array[1..50]of string;
var
t:tab;n:integer;i:integer;
 
 
procedure saisie( n:integer);
begin
repeat
writeln('saisir taille du tableau');
readln(n);
until (n>=2) and (n<=50);
 
end;
 
procedure chargement(var t:tab;n:integer);
begin
for i:=1 to n do
repeat
writeln('saisir t[',i,']');
readln(t[i]);
until (length(t[i])=5);
end;
 
procedure elimin(var t:tab;n:integer);
 
var
 
j:integer;
t1:tab;  
begin
for i:=1 to n do
t1:=t[i];
j:=1;
repeat
if not upcase(t1[j]) in ['A'..'z'] then
  begin
  delete(t[i],j,1);
  j:=j+1;
  end
  else
  j:=j+1;
until (j=length(t[i]);
end;
 
begin
saisie(n);
chargement(t);
elimin(t);
for i:=1 to n do
writeln(t[i]);
end.

:calim2:

Bonjour !

Il faudrait remplacer
Code:

1 2 for i:=1 to n do t1:=t[i];
par
Code:

1 2 3 4 5 for i:=1 to n do begin t1:=t[i]; ... end;

14/08/2017, 10h17
erico552

encore ne marche pas
14/08/2017, 18h09
Roland Chastain

Citation:

Envoyé par erico552

encore ne marche pas

Peut-on voir la modification que vous avez faite ?