aide en pascal svp :( Fermé

Question

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

metarefsalem · Accepted Answer

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

Pierrecastor · Answer

Salut

Peut tu nous montrer ce que tu à tenté de faire ?

Aide en pascal svp :(

2 réponses

Discussions similaires

Newsletters