(tableau) déterminer case ayant la plus haute valeur
Résolu/Fermé
kingston2
Messages postés
126
Date d'inscription
samedi 19 septembre 2009
Statut
Membre
Dernière intervention
27 mai 2015
-
22 oct. 2014 à 20:37
kingston2 Messages postés 126 Date d'inscription samedi 19 septembre 2009 Statut Membre Dernière intervention 27 mai 2015 - 22 oct. 2014 à 23:43
kingston2 Messages postés 126 Date d'inscription samedi 19 septembre 2009 Statut Membre Dernière intervention 27 mai 2015 - 22 oct. 2014 à 23:43
A voir également:
- (tableau) déterminer case ayant la plus haute valeur
- Tableau croisé dynamique - Guide
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Tableau ascii - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Afficher un tableau en c - Forum C
1 réponse
Bonjour,
Essayes avec ce code
sinon celui-ci marche bien
A+
Essayes avec ce code
Dim ipos as Integer
index=0 : intplusgrande=0
For Each element In tabvaleurs
If element > intplusgrande Then
intplusgrande = element
ipos=index
End If
index=index+1
Next
Console.WriteLine("La plus grande valeur est de :" & intplusgrande)
Console.WriteLine("Elle se trouve à la position numéro:" & ipos)
sinon celui-ci marche bien
intplusgrande=0
For index=0 to 9
element=tabvaleur(index)
If element > intplusgrande Then
intplusgrande = element
Exit For
End If
Next
Console.WriteLine("La plus grande valeur est de :" & intplusgrande)
Console.WriteLine("Elle se trouve à la position numéro:" & index)
A+
22 oct. 2014 à 23:14
22 oct. 2014 à 23:20
22 oct. 2014 à 23:25
Module Module1 Sub Main() Dim tabvaleurs(9) As Integer Dim intplusgrande As Integer = 0 Dim index As Integer = 0 Dim intposition As Integer 'remplissage du tableau For index = 0 To tabvaleurs.Count - 1 Console.WriteLine("Entrez une valeur:") tabvaleurs(index) = Console.ReadLine() Next For Each element In tabvaleurs If element > intplusgrande Then intplusgrande = element intposition = index End If index = index + 1 Next Console.WriteLine("La plus grande valeur est de :" & intplusgrande) Console.WriteLine("Elle se trouve à la position numéro:" & intposition) Console.ReadKey() End Sub End Module22 oct. 2014 à 23:30
index=0 : intplusgrande=0
For Each element In tabvaleurs
...
A+
22 oct. 2014 à 23:35
Par exemble j'ai mis 1000 à la position 3 , et 1 à toutes les autres, mais au lieu de me sortir la position 3 dans le writeline, elle sort 2