Application

Fermé
manchester united - 15 janv. 2013 à 19:02
elhou80 Messages postés 4 Date d'inscription samedi 3 janvier 2009 Statut Membre Dernière intervention 16 juillet 2016 - 16 janv. 2013 à 00:38
Bonjour, Ecrire un programme pascal intitulé (Recherche) qui permet de chercher dans un Tableau de caractéres Les occurrences d'un caractére C donné. On demande d'afficher les indices correspondants à ces occurrences d'une façon décroissante.



2 réponses

Ecrire un programme pascal intitulé (Recherche) qui permet de chercher dans un Tableau de caractéres Les occurrences d'un caractére C donné. On demande d'afficher les indices correspondants à ces occurrences d'une façon décroissante.
0
elhou80 Messages postés 4 Date d'inscription samedi 3 janvier 2009 Statut Membre Dernière intervention 16 juillet 2016
Modifié par elhou80 le 16/01/2013 à 00:42
Bonjour,
Program recherche;
Var
T: array[1..100] of char;
TO: array[1..100] of char; /* tableau des occurrences */
i: integer;
C: char;
N: integer; /* taille du tableau */
Nb: integer; /*nombre occurrence */
Begin
Write('Donner la taille du tableau :');
Readln(N);
For i=1 To N do
Readln(T[i]);
Write('donner le caractère à rechercher :');
Readln(C);
Nb:=0;
For i=1 To N do begin
If T[i]=C then begin
Nb:=Nb+1;
TO[Nb]:=i;
End if;
End; /* fin for */
Writeln('Il y a ', Nb, ' occurrences du caractère ', C);
Writeln('Voici la table des indices :');
For i=Nb To 1 do
Writeln(TO[Nb]);

End.



Bon courage.
0