Application

manchester united -  
elhou80 Messages postés 5 Statut Membre -
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

  1. manchester united
     
    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
  2. elhou80 Messages postés 5 Statut Membre
     
    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