hg S’enregistrer Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Index du Forum

hg Revision tunisie scolaire 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 révision tunisie , 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    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet 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 715
Masculin
Point(s): 5 484
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

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
Publicité






Posté le: Mar 8 Fév - 15:20 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
 
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 à 19:34 (2017)    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    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet 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