Methode de recherche d'occurences
Résolu/Fermé
fouz93
Messages postés
2
Date d'inscription
mardi 21 janvier 2014
Statut
Membre
Dernière intervention
31 juillet 2019
-
1 févr. 2014 à 01:08
Profil bloqué - 2 févr. 2014 à 22:36
Profil bloqué - 2 févr. 2014 à 22:36
A voir également:
- Methode de recherche d'occurences
- Recherche musique - Guide
- Google recherche par image - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche adresse - Guide
- Recherche de personne par nom et prénom - Forum Mail
1 réponse
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
