algorithme tableau Fermé

Question

Bonjour,
je suis en première année d'info, je suis dans le chap sur les tableaux et j'ai un pbm avec cette énoncé:
écrire un programme qui compte le nb d'élèves de chque âge( de moins de 20 ans)
 voila ce que j'ai fait mais j'ai un pbm car mon tableau affiche un quand il en comptablilise un, mais si après il est comptabilise un deuxième il ne le comptabilise pas.

Sub age()
Dim age() As Integer, nb As Integer, i As Integer, compt As Integer, tablo() As Integer, j As Integer
Dim n As Integer
n = InputBox("combien d'age de personne voulait vous entrez?")
compt=0
nb = 20
ReDim age(nb)
age(nb) = compt
ReDim tablo(n)

For i = 1 To n
tablo(i) = InputBox("rentrez le" & i & "ème âge?")

    For j = 1 To 20
       If tablo(i) = j Then
       age(j) = compt + 1
       End If
    Next j
    
Next i
    
End Sub

sausy · Answer

pour compter le nbre de personne ayant une age inferieur a 20 ans il faut que te fais deux boucle, 1 pour entrer les ages des personne une autre pour calculer le nombre; je vais de donner un programme avec pascal 
integer n ==20;
integer count == 0;
tab : array [n];
i integer;
for  i = 1 to n do
read(tab[i]);

for i =1 to n do
{
if tab[i] < 20 then
count = count+1;
}

lisaben · Answer

bonjour,
j'ai le meme exercice que toi "nanas"
pourrais tu donner la réponse en vb stp ?

Algorithme tableau

2 réponses

Discussions similaires