traitement sur les chaînes de caractères

Aller en bas

traitement sur les chaînes de caractères

Message  Admin le Dim 1 Mai - 17:13

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

PASCAL
program occ_car;
uses wincrt;
var
ch:string;
car:char;
app,i:integer;
procedure saisie(var ch:string);
begin
writeln('saisir une chaine');
readln(ch);
end;
procedure affichage(car:char;app:integer);
begin
writeln('le nombre d''apparition de ',car, ' est= ',app);
end;
begin
saisie(ch);
repeat
car:=ch[1];
app:=0;
while (pos(car,ch)<>0) do begin
app:=app+1;
delete(ch,pos(car,ch),1);
end;
affichage(car,app);
until length(ch)=0;
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