hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
Exercice corrigé: extraction des chiffres d'une chaine de caractères
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mar 8 Fév - 15:20 (2011)    Sujet du message: Exercice corrigé: extraction des chiffres d'une chaine de caractères Répondre en citant

PublicitéSupprimer les publicités ?
ENONCE

Écrire un programme qui saisit une chaine de caractères et copie tous les chiffres de cette chaine
vers un nombre X. Si la chaine ne contient aucun chiffre, X sera égal -1.


EXEMPLE


CH = 'Nous sommes le 20 Avril 2009';
X = 202009;

CH = '1 + 3 = 4'
X = 134;

CH = 'Je suis Nabil'
X = -1;

solution


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,m,e);
if (e=0) then
ch2 := ch2 + ch;
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.


 
Revenir en haut
r.nsiri
recent membre
recent membre

Hors ligne

Inscrit le: 09 Jan 2009
Messages: 262
Masculin
Point(s): 304
Moyenne de points: 0

Posté le: Dim 27 Mar - 07:47 (2011)    Sujet du message: Exercice corrigé: extraction des chiffres d'une chaine de caractères Répondre en citant

Okay Okay Okay Okay
_________________
Cordialement


 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 20:19 (2016)    Sujet du message: Exercice corrigé: extraction des chiffres d'une chaine de caractères

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation