Exercice corrigé: extraction des chiffres d'une chaine de caractères

Code:

program extraction;

uses wincrt;     

function extraire(ch: string):longint;
var
 x: longint;
 i,m,e:integer;
 ch2: string;
begin

  ch2 := '';

  for i:=1 to length(ch) do
  begin
      val(ch[i],m,e);
      if (e=0) then
          ch2 := ch2 + ch[i];
  end;

  if (length(ch2)=0) then
      extraire := -1
  else
  begin
      val(ch2,x,e);
      extraire := x;
  end;           

end;


var
  ch: string;
  X: longint;

begin

  write('Donner une phrase: ');
  readln(ch);
  x := extraire(ch) ;
  writeln('Le nombre trouvé est: ',X);

end.


naoufelbz a écrit:merci pour l'exercice et pour la correction des exercices