Aide en pascal svp :(
mora08
-
mora08 -
mora08 -
Bonjour,
ecrire un programme permettant de :
- saisir une chaine de caractère( " ch ")
- saisir un caractere ("car")
-afficher le nombre d'apparition de "car" dans "ch"
Exemple :
ch := "informatique"
car :=" i"
le nbre d'apparition de "i" dans "informatique" est 2
on me demande de faire un algorithme et de le traduire en pascal mais je n'arrive pas malheureusement !
aidez moi s'il vous plait
ecrire un programme permettant de :
- saisir une chaine de caractère( " ch ")
- saisir un caractere ("car")
-afficher le nombre d'apparition de "car" dans "ch"
Exemple :
ch := "informatique"
car :=" i"
le nbre d'apparition de "i" dans "informatique" est 2
on me demande de faire un algorithme et de le traduire en pascal mais je n'arrive pas malheureusement !
aidez moi s'il vous plait
A voir également:
- Aide en pascal svp :(
- Turbo pascal - Télécharger - Édition & Programmation
- My pascal - Télécharger - Édition & Programmation
- Dev pascal - Télécharger - Édition & Programmation
- Le protocole assure que la communication entre l'ordinateur de pascal et le serveur de visiodoct est car les informations seront avant d'être envoyées. - Forum Pascal
- Probleme en pascal - Forum Pascal
2 réponses
program Nbre_Apparition;
var Ch : String;
Car : char;
I, L, NbreApparition : Integer;
begin
WriteLn('Saisir une chaine de caractères');
ReadLn(Ch);
WriteLn('Saisir un caractère');
ReadLn(Car);
L := Length(Ch);
{ la fonction Length renvoie le nombre de caractères de la chaine
passée en parametre, dont le premier indice est 1}
{La variable L recoit le nombre de caracteres de la chaine Ch }
NbreApparition := 0;
{ Initialisation du compteur de comptage }
for I := 1 to L do begin
{ On parcoure les caracteres un à un }
if Ch[I] = Car then
{ On compare si le caractere d'indice I à la meme representation
que le caractere Car }
NbreApparition := NbreApparition + 1;
{ Si Oui en incremente le compteur de comptage de 1 }
end;
WriteLn;
WriteLn('Le caratere ','" ', Car, ' "', ' est apparu ', NbreApparition, ' fois');
{ On affiche le nombre d'apparition du caractere Car dans la chaine Ch }
ReadLn;
end.
A toi de faire le reste
Bonne chance
var Ch : String;
Car : char;
I, L, NbreApparition : Integer;
begin
WriteLn('Saisir une chaine de caractères');
ReadLn(Ch);
WriteLn('Saisir un caractère');
ReadLn(Car);
L := Length(Ch);
{ la fonction Length renvoie le nombre de caractères de la chaine
passée en parametre, dont le premier indice est 1}
{La variable L recoit le nombre de caracteres de la chaine Ch }
NbreApparition := 0;
{ Initialisation du compteur de comptage }
for I := 1 to L do begin
{ On parcoure les caracteres un à un }
if Ch[I] = Car then
{ On compare si le caractere d'indice I à la meme representation
que le caractere Car }
NbreApparition := NbreApparition + 1;
{ Si Oui en incremente le compteur de comptage de 1 }
end;
WriteLn;
WriteLn('Le caratere ','" ', Car, ' "', ' est apparu ', NbreApparition, ' fois');
{ On affiche le nombre d'apparition du caractere Car dans la chaine Ch }
ReadLn;
end.
A toi de faire le reste
Bonne chance
mora08
merci ça ma beaucoup aidé
