Discussion :

[booba16]

Ecrire un programme qui saisit une chaîne puis en extraire les chiffres de gauche à droite et de droite à gauche. Exemple : ch=e58t9df26g4 -> ça donne 589264 et 462985.

J'ai reussi l'extraction de gauche à droite mais pas de droite à gauche. Si quelqu'un peut m'aider à compléter le programme, merci.

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
program extraction;
uses wincrt ;
var
ch:string;
ch2:string;
i:integer;
begin
write('EnTREZ Une CHaiNe De CaraCteRe ');
read(ch);
for i:=1 to length(ch) do
if ch[i] in['0'..'9'] then
repeat
ch2:=  copy(ch,i,1) ;
write(ch2) ;
until
ch[i] in ['0'..'9']  ;
end.

[Alcatîz]

Bonjour et bienvenue !

Un indice pour t'aider : il est possible de décrémenter un compteur dans une boucle for :

Code :

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

for i := length(ch) downto 1 do

[booba16]

Bon voilà, j'ai essayé un nouveau truc mais cette fois je n'arrive qu'à faire apparaître un seul chiffre de gauche à droite. N'oublie pas que je suis débutant.

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
program extraction;
uses wincrt ;
var
ch:string;
ch2:string;
ch3:string;
i:integer;
i1:integer;
begin
   write('EnTREZ Une CHaiNe De CaraCteRe ');
 
   read(ch);
for
   i:=1 to length(ch) do
if
   ch[i] in['0'..'9'] then
repeat
   ch2:=  copy(ch,i,1) ;
   write(ch2) ;
until
   ch[i] in ['0'..'9']  ;
 
   begin
   for
    i1:=length(ch2) downto  1 do
 
   repeat
    ch3:=copy(ch2,i1,1);                                            
    write('     ',ch3);
   until
    ch[i1] in ['0'..'9'];
 
end;
end.

[Alcatîz]

Il faut absolument que tu indentes correctement ton code sinon tu vas avoir beaucoup de difficultés à t'y retrouver.

Tout d'abord, ta méthode est inutilement compliquée : dans un sens ou dans un autre, ton exercice consiste à regarder chaque caractère : si c'est un chiffre alors tu l'affiches. Donc, tu n'as pas besoin de boucle repeat à l'intérieur de la boucle for.

Ensuite, il n'est pas utile de déclarer des variables différentes pour les deux traitements.

Voici ce que ça pourrait donner :

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
program extraction;
uses wincrt;
var ch:string;
    ch2:string;
    i:integer;
begin
  write('EnTREZ Une CHaiNe De CaraCteRe ');
  read(ch);
  for i:=1 to length(ch) do
    if ch[i] in['0'..'9'] then
      begin
        ch2:= copy(ch,i,1) ;
        write(ch2) ;
      end;
  write('    ');
  for i:=length(ch) downto 1 do
    if ch[i] in['0'..'9'] then
      begin
        ch2:= copy(ch,i,1) ;
        write(ch2) ;
      end;
end.

[booba16]

merci alkatiz.