Algorithme tableau
nanas
-
lisaben -
lisaben -
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
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
Configuration: Windows Vista Internet Explorer 7.0
2 réponses
-
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;
} -
