nb d’apparition d'un caractère dans une chaîne

Aller en bas

nb d’apparition d'un caractère dans une chaîne

Message  Admin le Dim 1 Mai - 17:40

ÉNONCÉ
écrire un programme permettant de :
- Saisir une chaîne de caractères (ch)
- Saisir un caractère (car)
- Afficher le nombre d'apparition de car dans ch.

PASCAL
Méthode 1
program app;
uses wincrt;
var ch:string;
car:char;
nc,n,i:integer;
begin
writeln('saisir une chaine');
readln(ch);
writeln('saisir un caractere');
readln(car);
n:=length(ch); nc:=0;
for i:=1 to n do
if ch[i]= car then nc:=nc+1;
writeln('le nombre d''apparition de ',car,' dans ',ch,' est= ', nc);
end.
Methode 2
program app;
uses wincrt;
var
ch1,ch:string;
car:char;
nc :integer;
begin
writeln('saisir une chaine');
readln(ch);
writeln('saisir un caracter');
readln(car);
nc:=0;
ch1:=ch;
while(pos(car,ch)>0) do
begin
nc:=nc+1;
delete(ch,pos(car,ch),1);
end;
writeln('le nombre d''apparition de ',car,' dans ',ch1,' est= ', nc);
end.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum