Recherche D'un Programme Basic D'un Algorithme De Recherche
Fermé
Full
-
Modifié le 26 mai 2017 à 12:00
Whismeril Messages postés 19024 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 18 avril 2024 - 26 mai 2017 à 13:16
Whismeril Messages postés 19024 Date d'inscription mardi 11 mars 2003 Statut Contributeur Dernière intervention 18 avril 2024 - 26 mai 2017 à 13:16
A voir également:
- Recherche D'un Programme Basic D'un Algorithme De Recherche
- Recherche musique - Guide
- Google recherche par image - Guide
- Microsoft 365 basic - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Recherche adresse - Guide
2 réponses
Whismeril
Messages postés
19024
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
18 avril 2024
928
26 mai 2017 à 11:28
26 mai 2017 à 11:28
Bonjour
Le basic c'est loin, très loin pour moi, mais rapidement
Le basic c'est loin, très loin pour moi, mais rapidement
- M et N ne sont pas définis.
- y'a rien dans le if de la recherche
- ton input "saisir l'élément recherché" sert en fait à remplir la matrice, et l'élément recherché est en fait le dernier de la matrice. Il faudrait demander de remplir la matrice et ensuite l'élément recherché.
- tu ne gères pas le cas où l'élément n'est pas trouvé
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 775
26 mai 2017 à 12:27
26 mai 2017 à 12:27
Bonjour Full,
Bonjour Whismeril,
Voici un exemple qui fonctionne en VBA (Excel).
Tu n'as qu'à l'adapter au BASIC que tu connais
Bonjour Whismeril,
Voici un exemple qui fonctionne en VBA (Excel).
Tu n'as qu'à l'adapter au BASIC que tu connais
Sub Exercice() Const N As Integer = 9 Const M As Integer = 9 Dim MAT(N, M) As Integer, I As Integer, J As Integer, G As Integer Dim T As Boolean ' Remplir MAT(N, M) avec des valeurs allant de de 0 à 99 For I = 0 To N For J = 0 To M MAT(I, J) = I * 10 + J Next J Next I ' Demander l'élément à rechercher G = InputBox("SAISIR L'ELEMENT RECHERCHÉ") ' Chercher l'élément dans MAT(N, M) T = False 'Pas trouvé For I = 0 To N For J = 0 To M If G = MAT(I, J) Then T = True 'Trouvé End If Next J Next I ' Afficher le résultat de la recherche If T Then MsgBox "L'ELEMENT TROUVÉ EST " & G Else MsgBox "L'ELEMENT " & G & " N'A PAS ÉTÉ TROUVÉ" End If End Sub
Whismeril
Messages postés
19024
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
18 avril 2024
928
26 mai 2017 à 13:16
26 mai 2017 à 13:16
Bonjour