Algorithme VBA
Hors ligneBowser10 Le 07/02/2012 à 22:13 Profil de Bowser10 Configuration de Bowser10

Bonjour, tout le monde, je ne sais pas si je poste dans la bonne catégorie, étant donné que je ne suis pas un habitué de ce forum. J'ai un soucis, je suis en fac d'économie, et j'ai des cours d'informatique. Mais je n'ai pas assister au dernier cours, et j'ai des exercices à faire, et je n'y arrive absolument pas. J'ai bien essayé de chercher des solutions à mon probleme sur des tutos, mais ils utilisent tous excel, et jamais openoffice. Donc si l'un d'entre vous peut m'expliquer comment résoudre mes exercice"s sous open office, je lui en serai reconnaissant. Eviddemment , je ne cherche pas a avoir un corrigé complet de mes exercices, mais que quelqu'un puisse m'expliquer clairement au moins pour les deux premiers exos la demarche à suivre, que je puisse faire les autres exercices tout seul, parce que la, je ne sais absolument pas comment procéder! En esperant que l'un d'entre vous puisse m'aider. Je vous remercie

 

 

Instruction générale : Tous les exercices (sauf l’exercice 1) seront tout d’abord écrits en
langage algorithmique avant d’être traduits et testés en langage de programmation
VBA.
Exercice 1:
Quelle est la valeur affichée par l'algorithme suivant ?
Algorithme exercice1
Variable X, Y : Entier
Début
X ← 1
Y ← X+2
X ← X-1
Ecrire (X+Y)
Fin
Coder cet algorithme en VBA.
Exercice 2:
Écrire un algorithme qui
 permet de saisir deux notes, puis
 affiche la plus petite des deux
Exercice 3:
Écrire un algorithme qui
 permet de saisir un nombre entier n, puis
 affiche tous les entiers x dont le carré est inférieur à n
Exercice 4:
Écrire un algorithme qui
 permet de lire un nombre entier n, puis
 affiche les entiers m et p tant que: m3 ≤ n ≤ p3
Exercice 5:
Écrire un algorithme qui
 permet de saisir 5 entiers
 puis affiche la différence qu'il y a entre la plus grande et la plus petite des 5 valeurs.
2
Exercice 6:
1. Écrire un algorithme permettant la saisie d'une note et son affichage. Afficher en plus
un message si la note est en dessous de la moyenne.
2. Ajouter à l'algorithme précédent une vérification de la note (nombre compris entre 0 et
20). Une note incorrecte ne doit pas être affichée (message d'erreur).
3. Écrire un algorithme qui permet de saisir N notes (N est connu et fixé).
4. Ajouter à l'algorithme précédent le calcul de la moyenne des notes.
5. Même question que la précédente, mais ne pas prendre en compte les notes incorrectes
dans le calcul.
6. Alléger le traitement de la moyenne en imposant que les notes soient correctes (resaisir
la note jusqu'à ce qu'elle soit correcte).
7. Même question que précédemment, mais on ne sait pas d'avance le nombre de notes.
La saisie des notes continue tant qu'une note incorrecte n'est pas détectée.
8. Ajouter à l'algorithme précédent un calcul de la mention en fonction de la moyenne
«10 : ajourné, 10 : passable, 12 : assez bien, 14 : bien, 16 : très bien).
Hors ligneAndurinel Le 08/02/2012 à 14:18 Profil de Andurinel Configuration de Andurinel

Je suis dans ton amphi, je vais te donner une brève réponse pour les deux premiers exo (pour info, tu as un groupe facebook de la promo sur lequel tu peux aussi poser tes questions :p):

 

Pour le premier, le code VBA est:

Sub Exercice1()
Dim X As Integer
Dim Y As Integer
X = 1
Y = X + 2
X = X - 1
X = (X + Y)
MsgBox (X)
End Sub

 

Pour le second j'ai une solution un peu barbare, mais pas forcement optimisée (c'est plus du massacre à tronçoneuse que de la programmation rigoureuse, mais la flemme):

Sub Exo2()
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
X = InputBox("Note 1")
Y = InputBox("Note 2")
If X >= Y Then
Z = Y
End If
If X < Y Then
Z = X
End If
MsgBox (Z)
End Sub

 

Hors ligneObturatix Le 09/02/2012 à 08:02 Profil de Obturatix Configuration de Obturatix

Je ne connais pas VBA mais cela doit bien exister dans ce langage

Si ..... alors....sinon

IF...THEN....ELSE

mais en cas d'égalité on ne nous dit pas ce que l'on fait ?

en gros

X est un réel ( on suppose ce n'est pas précisé)

Y est un réel

Saisir X

Saisir Y

SI    X>Y     ALORS

         Afficher Y

 SINON

       SI   X=Y    ALORS

                   Afficher "Egalité entre les deux nombres"

       SINON

                   Afficher X

      FINSI

FINSI

 

a toi de le retranscrire en VBA

Hors ligneBowser10 Le 09/02/2012 à 19:29 Profil de Bowser10 Configuration de Bowser10

Merci pour vos réponses, elles m'ont été bien utiles !

Vous avez résolu votre problème avec VIC ? Faites-le savoir sur les réseaux sociaux !
Vulgarisation-informatique.com
Cours en informatique & tutoriels