Tableau simple pour debutant
Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 809 fois - Téléchargée 29 fois
Contenu du snippet
cette source permet de faire des recherches dans un tableau pre programmer
c est un exercice que l on ma donner en bts ig
c est un exercice que l on ma donner en bts ig
Source / Exemple :
Option Base 1
Sub Main()
'déclaration des tableaux
Static Televe(10) As String, Tmatiere(4) As String, Tnote(11, 5) As Single
'à faire
'déclaration des autres variables
'à compléter
Dim som As Single, moy As Single, moyg As Single, i As Single, j As Single, eleve As String, matiere As String
'pré-remplissage du tableau des élèves
Televe(1) = "Guillaume"
Televe(2) = "Gustave"
Televe(3) = "Jules"
Televe(4) = "Antoine"
Televe(5) = "Monique"
Televe(6) = "Julie"
Televe(7) = "Paul"
Televe(8) = "Véronique"
Televe(9) = "Valérie"
Televe(10) = "Pierre"
'pré-remplissage du tableau des matières
Tmatiere(1) = "Mathématiques"
Tmatiere(2) = "Français"
Tmatiere(3) = "Anglais"
Tmatiere(4) = "Philosophie"
'pré-remplissage du tableau des notes
Tnote(1, 1) = 15
Tnote(1, 2) = 11
Tnote(1, 3) = 16
Tnote(1, 4) = 11
Tnote(2, 1) = 18
Tnote(2, 2) = 16
Tnote(2, 3) = 8
Tnote(2, 4) = 8
Tnote(3, 1) = 14
Tnote(3, 2) = 15
Tnote(3, 3) = 18
Tnote(3, 4) = 9
Tnote(4, 1) = 11
Tnote(4, 2) = 11
Tnote(4, 3) = 16
Tnote(4, 4) = 11
Tnote(5, 1) = 11
Tnote(5, 2) = 8
Tnote(5, 3) = 15
Tnote(5, 4) = 15
Tnote(6, 1) = 18
Tnote(6, 2) = 15
Tnote(6, 3) = 11
Tnote(6, 4) = 16
Tnote(7, 1) = 12
Tnote(7, 2) = 12
Tnote(7, 3) = 9
Tnote(7, 4) = 18
Tnote(8, 1) = 14
Tnote(8, 2) = 15
Tnote(8, 3) = 11
Tnote(8, 4) = 16
Tnote(9, 1) = 11
Tnote(9, 2) = 18
Tnote(9, 3) = 16
Tnote(9, 4) = 14
Tnote(10, 1) = 18
Tnote(10, 2) = 11
Tnote(10, 3) = 18
Tnote(10, 4) = 14
'Questions
'1. calcul et stockage de la moyenne par élève
For i = 1 To 10
som = 0
For j = 1 To 4
som = som + Tnote(i, j)
Next j
Tnote(i, 5) = som / 4
Next i
'2. calcul et stockage de la moyenne par matière
For j = 1 To 4
som = 0
For i = 1 To 10
som = som + Tnote(i, j)
Next i
Tnote(11, j) = som / 10
moy = moy + Tnote(11, j)
moyg = moy / 4
Next j
'4. L'utilisateur saisit un nom d'élève, afficher la moyenne correspondant
eleve = InputBox("Entrez le nom que vous chercher ")
For i = 1 To 10
If Televe(i) = eleve Then
MsgBox "la moyenne de l '" & eleve & " est de " & Tnote(i, 5)
End If
Next i
'5. L'utilisateur saisit le nom d'une matière, afficher la moyenne de la matière correspondant
matiere = InputBox("Entrez le nom de la matière")
For i = 1 To 4
If Tmatiere(i) = matiere Then
MsgBox "La moyenne de la matière " & matiere & " est " & Tnote(11, i)
End If
Next i
'6. Afficher le nom de l'élève ayant obtenue la meilleure moyenne de la classe toute matière confondue.
Max = 0
For i = 1 To 10
If Tnote(i, 5) > Max Then
Max = Tnote(i, 5)
kj = i
End If
Next i
MsgBox " le nom de l eleve qui as la meilleur note est " & Televe(kj) & " avec " & Max & " de moyenne"
End Sub
A voir également
- Televe1
- Crypteur simple pour débutant - Codes sources - Visual Basic / VB.NET (Sécurité)
- C / C++ / C++.NET : Le jeu du loto, le plus simple pour débuter - Guide
- C / C++ / C++.NET : Mix de codes tres simples, pour débutants - CodeS SourceS - Guide
- ASP / ASP.NET : Fonction tri tableau (simple) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Tutorial simple pour debutant en visual basic - CodeS SourceS - Guide
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.