Methode de recherche d'occurences [Résolu/Fermé]

Messages postés
2
Date d'inscription
mardi 21 janvier 2014
Statut
Membre
Dernière intervention
31 juillet 2019
- - Dernière réponse :  Profil bloqué - 2 févr. 2014 à 22:36
Bonjour,
s'ils vous plait j'aimerai avoir les differentes methodes de recherche d'une occurence dans un tableau triéé.
Mercie d'avance


Afficher la suite 

1 réponse

Meilleure réponse
1
Merci
program Occurrences;

const N = 10;
var T : Array[1 .. N] of Char;
I, NbreOcc : Integer;
Element : Char;
Existe : Boolean;

begin

T[1] := 'A';
T[2] := 'A';
T[3] := 'B';
T[4] := 'C';
T[5] := 'C';
T[6] := 'C';
T[7] := 'K';
T[8] := 'F';
T[9] := 'N';
T[10] := 'N';

NbreOcc := 1;

I := 1;
while I <= N do begin
if T[I] = T[I + 1] then
NbreOcc := NbreOcc + 1;
if T[I] <> T[I + 1] then begin
WriteLn('Le nombre d''occurrence de l''element ',
T[I], ' est ', NbreOcc);
NbreOcc := 1; end;
I := I + 1;
end;

WriteLn;

Write('Entrez l''element à rechercher ses occurrences : ');
Readln(Element);
Write('Positions dans le tableau des occurrences de l''element ', Element, ' : ');

Existe := False;
I := 1;
while I <= N do begin
if T[I] = Element then begin
Existe := True;
Write(I, ', '); end;
if (T[I] <> Element) and (Existe) then I := N;
I := I + 1;
end;

if not Existe then Write('Aucune');

Readln;

{ TODO -oUser -cConsole Main : placez le code ici }
end.

// Merci de mettre [Résolue] si la solution te convient

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63365 internautes nous ont dit merci ce mois-ci