nb d'apparence d'un caractère dans une chaîne de caractères

Aller en bas

nb d'apparence d'un caractère dans une chaîne de caractères

Message  Admin le Dim 1 Mai - 17:16

ÉNONCÉ
On veut écrire un programme pascal permettant de :
• Saisir une chaîne de caractères Ch puis un caractère car
• Parcourir la chaîne Ch et afficher l'occurrence de car dans Ch.
N.B:
La solution doit comporter au moins deux modules.

PASCAL
program chaine;
uses wincrt;
var
ch:string;
car:char;
app:integer;
procedure saisie(var ch:string;var car:char);
begin
write('saisir une chaine: ');
readln(ch);
write('saisir un caractére: ');
readln(car);
end;
function apparition(ch:string;car:char):integer;
var
nap:integer;
begin
nap:=0;
while (pos(car,ch)<>0) do begin
nap:=nap+1;
delete(ch,pos(car,ch),1);
end;
apparition:=nap;
end;
begin
saisie(ch,car);
app:=apparition(ch,car);
writeln('le nombre d''apparition du caractère ',car, ' dans la chaîne ',ch, ' est= ',app);
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