Discussion :

[erico552]

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.

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

[erico552]

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

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

[Roland Chastain]

Bonjour !

Il faudrait remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[erico552]

encore ne marche pas

[Roland Chastain]

encore ne marche pas

Peut-on voir la modification que vous avez faite ?