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

Bonjour,
la famille veuillez corriger mon programme basic ici d'un algorithme que recherche un element dans la matrice, est-ce qu'il va tourner et aidez moi que faire pour l'affichage

REM...
DIM MAT(N,M) I,J, G AS INTEGER
FOR I= 1 TO N
FOR J= 1 TO M
INPUT" SAISIR L'ELEMENT RECHERCHE",MAT(I,J)
NEXT J
NEXT I
G= MAT(I,J)
FOR I= 1 T0 N
FOR J= 1 TO M
IF G<> MAT(I,J) THEN
NEXT J
NEXT I
PRINT" L'ELEMENT RECHERCHE EST:", G
END IF
END.

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.

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

Réponse 1 / 2

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

Bonjour
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é

Réponse 2 / 2

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

Bonjour Full,
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

Bonjour

Discussions similaires

programme qui n'affiche pas le mot secret

Trouver un nom avec un numéro de cellulaire

Recherche de pairs sur utorrent bloqué

algorithme résoudre ax²+bx+c=0

Discussions similaires

Newsletters