Aide en VB Fermé

Question

Bonjour,
J'ai un petit programme (scolaire) à faire en VB, mais je ne vois pas comment le faire.

voila l'énoncé :

Soit S une suite de nombre entiers positifs ordonnés par ordre croissant. Ecrire un algorithme permettant de déterminer la longueur L de la plus longue sous-suite extraite de S et ne comportant que des éléments identiques.
Exemple : pour S= (1, 2, 2, 7, 7,7 ,8 ,9 ,9) on a L=3

Si quelqu'un avait une piste pour m'aider, je ne sais même pas quelle fonction itérative utiliser.

Merci

ShaBoo · Answer

Bonsoir,

Tu lis ta premiere occurence et tu la compare aux autres. Tu comptes le nbre de fois ou c'est égale.

Tu passes à la seconde occurence tu la compares (tu evites de la comparer à ellle meme bien sur ;p) tu comptes le nbre de fois.

En utilsant deux variable (dernier comptage - nouveau comptage) tu les compares pour savoir si l'une est superieur à l'autre ...

Tu fais ceci jusqu'à la dernière occurence ...

VincentG · Answer

Merci !

hum hum,
Je vais essayer comme tu m'as dis
réponse dans quelques temps

VincentG · Answer

Je vais me coucher,
je verrai ça demain
merci quand meme

VincentG · Answer

Bon bah j'ai pas réussi,
si quelqu'un pouvais me dire au moins quelle fonction utiliser ?
merci

Polux31 · Answer

salut, 

Shaboo t'as donné la fonction à utiliser.

;o)

polux

VincentG · Answer

Sérieux, j'ai du mal.
en langage progress, j'y arrive mieux... mais là
je m'accroche quand meme mais je bloque à "Tu lis ta premiere occurence et tu la compare aux autres" (au début quoi lol) en effet, j'ai du mal à voir comment comparer la 1ere aux autres car "les autres" ne sont pas encore saisies

je ne sais pas si j'ai réussi à m'expliquer...

VincentG · Answer

ton lien m' ammene en bas de page :(

VincentG · Answer

j'ai pourtant bien essayé de suivre ce que tu m'as dis entre 2 réveils de ma fille :) mais les résultats que j'ai sont incorrects. 
voici le programme
Const N = 10
    Dim tab(N) As Integer
    Dim i As Integer
    Dim X As Integer
    Dim J As Integer
    Dim St As Integer


    Sub Main()

        For i = 1 To N
            tab(i) = InputBox("Nombre ?")
        Next
        For i = 1 To UBound(tab, 1)
            For J = i + 1 To UBound(tab, 1)
                If tab(i) > tab(J) Then
                    St = tab(i)
                    tab(i) = tab(J)
                    tab(J) = St
                End If
            Next
        Next

        X = 0

        For i = 0 To N
            For J = 0 To N
                If tab(i) = tab(J) Then
                    X = X + 1

                End If
            Next
        Next
        MsgBox(X)

    End Sub

VincentG · Answer

Const N = 10
    Dim tab(N) As Integer
    Dim i As Integer
    Dim X As Integer
    Dim J As Integer
    Dim St As Integer


    Sub Main()

        For i = 1 To N
            tab(i) = InputBox("Nombre ?")
        Next
        For i = 1 To UBound(tab, 1)
            For J = i + 1 To UBound(tab, 1)
                If tab(i) > tab(J) Then
                    St = tab(i)
                    tab(i) = tab(J)
                    tab(J) = St
                End If
            Next
        Next

        X = 0

        For i = 0 To N
            For J = 0 To N
                If tab(i) = tab(J) Then
                    X = X + 1

                End If
            Next
        Next
        MsgBox(X)

    End Sub


c'est peut etre plus clair comme ça

VincentG · Answer

For i = 1 To UBound(tab, 1)
            For J = i + 1 To UBound(tab, 1)
                If tab(i) > tab(J) Then
                    St = tab(i)
                    tab(i) = tab(J)
                    tab(J) = St
                End If
            Next
        Next

cette partie est un code qui me permet de trier mes données dans un ordre croissant

mais si tu fais un essai, par exemple, tu rentre que des "1", le résultat est de 101 :S

abdel2007 · Answer

je te conceil pour ton probleme scolaire de faire comme suit
utiliser des boucles itératives comme tantque .............faire
increment tant que tu as des valeurs identiques et superieur 
sortir de la premiere boucle 
l'idee ici si tu utilise un tableau ce prserver les compteurs pour pouvoir afficher la séquences la plus longue
refaire le travail en incrementant de +1 ton compteur avec la boucle repeter...........jusqu'à la fin tu tableau
à la sortie de traitement tu doit avoir un compteur de depart pour la séquence et un compteur d'arriver
***************************
bon travail 
la programmation à besion de pertinnece et ne baisse pas les mains à toi de programmmer tous ca

Aide en VB

11 réponses

Discussions similaires