Discussion :

[mathieu94600]

Bonjour je dois écrire un programme LARP (algorithme) qui calcule le nombre d'entier pairs et le nombre d'entier impairs d'un tableau d'entiers.

et l'exercice 2 soit T un tableau de N réels écrire un programme larp qui permet de calculer le nombre des occurrences d'un nombre X (c'est a dire combien de fois ce nombre X figure dans T).

Merci de m'aider je ne comprend pas grand chose.

[brickower]

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
 
algo:nbr_entier_paire(tableau:entier):entier
variable compteur=0
Pour i allant de 0 à n-1
|Si tableau[i] % 2 == 0
||compteur<-compteur+1
retourner compteur
 
algo:nbr_entier_impaire(tableau:entier):entier
variable compteur=0
Pour i allant de 0 à n-1
|Si tableau[i] % 2 == 1
||compteur<-compteur+1
retourner compteur
 
algo:occurence(tableau:entier; x:entier):booléens
Pour i allant de 0 à n-1
|Si tableau[i] == x
||compteur<-compteur+1
retourner compteur

[mathieu94600]

merci

[wiwaxia]

Bonjour,

On peut ne parcourir qu'une seule fois le tableau en utilisant plusieurs compteurs:

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
CONST Ne = 10000;
VAR k, n, N1, N2: Word;   // N1, N2: Nombres de termes impairs/pairs
    ListeE: ARRAY[0..Ne - 1] OF Word;
 
N1:= 0; N2:= 0;
 
FOR k:= 0 TO (Ne - 1) DO BEGIN
                           n:= ListeE[k];
                           IF Odd(n) THEN Inc(N1)          // Odd(n)=True ssi (n) impair
                                     ELSE Inc(N2);         // Réponse à l'ex. 1
                         END;
 
WriteLn('Nombre de termes impairs:     N1 = ', N1:5);
WriteLn('Nombre de termes pairs:       N2 = ', N2:5)
WriteLn('Vérification du dénombrement: N1 + N2 = Ne = ', Ne:5);
Write('N1 + N2 = ', (N1 + N2):5);

[Wachter]

un programme LARP (algorithme) qui calcule le nombre d'entier pairs et le nombre d'entier impairs d'un tableau d'entiers.

Tu peux calculer le nombre d'entiers pairs (ou impairs) et en déduire celui des nombres impaires (ou pairs).NbImpairs = TailleTableau - NbPairs