Comptage du nombre d'occurences

Version imprimable

Bonjour à tous,
Je suis étudiant en alternance et on m'a chargé de créer un programme en pascal qui doit compter le nombre d'occurences d'un nombre dans un tableau (de nombres) (le programme doit comporter une fonction)

Je vous montre mon début, qui doit etre faux..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
(*taille physique du tableau*)
CONST IMIN = 1;
CONST IMAX = 20;
 
TYPE TabEntiers = ARRAY[IMIN..IMAX] of integer;
 
Function recherche(tab:ARRAY of integer;deb,fin,elnt : integer):boolean;
 
VAR
        i:integer=deb;
        trouve:boolean=false,fin boucle : boolean=false;
        n : 23;
BEGIN
        WHILE finboucle=false do
        BEGIN
                IF i>fin then finboucle:=true
                ELSE    if tab[i]=elnt then
                        BEGIN
                        trouve:=true;
                        finboucle:=true
                        END
                        else i:=i+1
        END;
        recherche := trouve
end;

Merci beaucoup pour votre aide!!!

13/10/2010, 19h33
slim_java

Salut,
as tu bien lu la doc et la syntaxe pascal ?
14/10/2010, 16h35
czardan

Salut, merci de ta réponse, mais en fait mon plus gros problème c'est la fonction qui recherche le nombre, une fois trouvé je veux quelle continue a chercher sur tout les termes du tableau
et est ce que ma fonction peux fonctionner comme ça?

Citation:

Envoyé par czardan

Salut, merci de ta réponse, mais en fait mon plus gros problème c'est la fonction qui recherche le nombre, une fois trouvé je veux quelle continue a chercher sur tout les termes du tableau
et est ce que ma fonction peux fonctionner comme ça?
Code:

1 2 3 4 5 6 7 8 9 10 function fn_occurence(var t: tab;taille_tab,element:integer): integer; var i ,nb_occurence :integer; begin nb_occurence := 0; for i:=1 to taille_tab do if t[i] = element then inc(nb_occurence); fn_occurence := nb_occurence; end;

+1 slim_java

Une petite touche sur le code de depart.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
function recherche(tab:ARRAY of integer; deb, fin, elnt : integer) : boolean;
   VAR
        i : integer;
        trouve : boolean;
        finBoucle : boolean;
BEGIN
        trouve := false;
        finBoucle := false;
        WHILE (not finBoucle and not trouve) do
        BEGIN
                IF (i>fin) then 
                   finboucle:=true
                ELSE    if (tab[i]=elnt) then
                BEGIN
                  trouve:=true;
                END;
                i:=i+1
        END;
   recherche := trouve
end;