Aide en pascal svp :(

Fermé
mora08 - 3 janv. 2012 à 14:32
 mora08 - 4 janv. 2012 à 20:24
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
A voir également:

2 réponses

Profil bloqué
4 janv. 2012 à 19:21
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
2
merci ça ma beaucoup aidé
0
Pierrecastor Messages postés 41473 Date d'inscription mercredi 5 novembre 2003 Statut Modérateur Dernière intervention 30 mai 2024 4 144
3 janv. 2012 à 14:34
Salut

Peut tu nous montrer ce que tu à tenté de faire ?
1
mercii pour votre reponse monsieur mais mon pire probleme consiste au fait que e ne sais pas par ou commencer exacte pour resoudre un tel probleme --"
0