Discussion :

[czardan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!!

[slim_java]

Salut,
as tu bien lu la doc et la syntaxe pascal ?

[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?

[slim_java]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[darrylsite]

+1 slim_java

Une petite touche sur le code de depart.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;