algo Fermé

Question

Bonjour,
voila j'ai un petit pb j'ai fait mes algo et now je doit les traduire en vb6 mais je sait pas comment faire pour traduire les boucles pouvais vous m'aider voila mes deux algo :

var

notes, porcentage1, pourcentage2, pourcentage3 : réel
i : entier */compteur*/


début

i <- 1

pourcentage1 <- 0
pourcentag2 <- 0
pourcentage3 <-0



tant que i <= 30 faire
         afficher ("entrer note")
         saisire (note)


         si note <= 9
                 alors pourcentage1 <- (pourcentage1+1)
                 sinon si note <= 12
                               alors pourcentage2 <- (pourcentage2+1)  
                               sinon pourcentage3 <- (pourcentage3+1)

                       fsi
        fsi


i <- i+1

ftant

pourcentage1 <- (pourcentage1 div 30)*100 
pourcentage2 <- (pourcentage2 div 30)*100 
pourcentage3 <- (pourcentage3 div 30)*100 

afficher ("pourcentage de note <= 9",pourcentage1)
afficher ("pourcentage de note entre 9 et 12",pourcentage2)
afficher ("pourcentage de note >12",pourcentage3)

fin




----------------------


deuxième


exercice 5.2

var
table : entier */table de multiplication*/
resultat = entier
i : entier 



début

afficher ("saisir table")
saisire (table)

i <- 0
resultat <-0

tant que i <= 10 faire
     resultat<- i*table

affichage ("table egale : ",resultat)
     
i = i +1


ftant

fin

lucile · Answer

aider moi au moin sur les boucle je siat faire le reste en vb mais on a pas encore appris la traduction des boucles en vb

lucile · Answer

up svp

vbwooman · Answer

je l'ai mis en vb et il bug j'arrive pas voir ou j'ai fait mon erreure pouvais vous m'aider svp

Option Explicit

Dim notes As Integer
Dim pourcentage1 As Single
Dim pourcentage2 As Single
Dim pourcentage3 As Single
Dim i As Single


Sub main()



i = 1

pourcentage1 = 0
pourcentage2 = 0
pourcentage3 = 0



While i <= 30
notes = InputBox("entrer note")
If notes <= 9 Then
pourcentage1 = (pourcentage1 + 1)
ElseIf notes <= 12 Then
pourcentage2 = (pourcentage2 + 1)
Else: pourcentage3 = (pourcentage3 + 1)

End If

i = i + 1

Wend

pourcentage1 = ((pourcentage1 \ 30) * 100)
pourcentage2 = ((pourcentage2 \ 30) * 100)
pourcentage3 = ((pourcentage3 \ 30) * 100)

MsgBox ("pourcentage de note <= 9 est de :  " & pourcentage1)
MsgBox ("pourcentage de note entre 9 et 12 est de :  " & pourcentage2)
MsgBox ("pourcentage de note >12 est de : " & pourcentage3)

End Sub

lucile · Answer

merci vbwooman pour ton aide oui en effet ton vb ne marche pas je ne sait pas ou ce trouve ton pb attendaons pour voir si qq sait d'ou l'erreur provient en tt cas merci pour ton aide

Algo

4 réponses

Discussions similaires