Application
manchester united
-
elhou80 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
elhou80 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Application
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Desinstaller application windows - Guide
- Comment supprimer une application préinstallée sur android - Guide
- Windows application démarrage - Guide
- Miroir application - Guide
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.
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.
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.