Exercice en pascal
Fermé
oosimooo
Messages postés
8
Date d'inscription
vendredi 28 mars 2008
Statut
Membre
Dernière intervention
1 avril 2008
-
29 mars 2008 à 20:25
safsoufa - 13 mai 2008 à 19:31
safsoufa - 13 mai 2008 à 19:31
A voir également:
- Exercice en pascal
- Turbo pascal download - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev-pascal - Télécharger - Édition & Programmation
- Exercice informatique cm2 pdf ✓ - Forum Études / Formation High-Tech
- Pascal le grand frere maud - Forum Cinéma / Télé
3 réponses
bonjour
écrire un programme pascal qui donne la position et la longueur de la plus longue sous chaine formée d'un seul caractère dans une chaine donnée
exemple:aabbbbbcaccc la réponse sera 3,4
3 est la position de la plus longue chaine
4 est la longueur de ce caractère
écrire un programme pascal qui donne la position et la longueur de la plus longue sous chaine formée d'un seul caractère dans une chaine donnée
exemple:aabbbbbcaccc la réponse sera 3,4
3 est la position de la plus longue chaine
4 est la longueur de ce caractère
slt vous peuvez médé a resourdre ce problème simple et jé trouvé presque la solution voici le probleme
saisir une chaine de caractere puis afficher le nombres de ces lettres , de ces chiffres et de ces symboles
voici ce que jé trouvé
program des;
uses wincrt ;
var
ch:string ;
l,s,c,n,i:integer ;
begin
writeln('donner le nombre de caractere de votre chaine de caractere ');
readln(n);
writeln('donner votre chaine de caractere ');
readln(ch);
for i:=1 to n do
begin
if ch[i] in ['0'..'n'] then begin
c:=1 ;
end
else if ch[i] in ([ 'a'..'z']) then begin l:=1
end
else begin s:=1 end;
end;
writeln('le nombre de lettres dans cette chaine de caractere est ',l) ;
writeln('le nombre de ces chiffres est:',c );
writeln('le nombre de symboles est ',s);
end.
saisir une chaine de caractere puis afficher le nombres de ces lettres , de ces chiffres et de ces symboles
voici ce que jé trouvé
program des;
uses wincrt ;
var
ch:string ;
l,s,c,n,i:integer ;
begin
writeln('donner le nombre de caractere de votre chaine de caractere ');
readln(n);
writeln('donner votre chaine de caractere ');
readln(ch);
for i:=1 to n do
begin
if ch[i] in ['0'..'n'] then begin
c:=1 ;
end
else if ch[i] in ([ 'a'..'z']) then begin l:=1
end
else begin s:=1 end;
end;
writeln('le nombre de lettres dans cette chaine de caractere est ',l) ;
writeln('le nombre de ces chiffres est:',c );
writeln('le nombre de symboles est ',s);
end.