Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Corrigetds 1150272892865 Licence Economie et Gestion Outils Informatiques Responsables C Hanen ?? R Chevallier Corrigés de quelques exercices Exercice TD Soit m la moyenne des notes d ? un étudiant donnée par l'utilisateur Déterminer la décision du jury a

Licence Economie et Gestion Outils Informatiques Responsables C Hanen ?? R Chevallier Corrigés de quelques exercices Exercice TD Soit m la moyenne des notes d ? un étudiant donnée par l'utilisateur Déterminer la décision du jury ajourné admis passable admis AB admis B admis TB Sub Resultat Corrigé Dim note As Double note InputBox Entrez votre note If note Then MsgBox Ajourne e If note And note Then MsgBox Admis Passable If note And note Then MsgBox Admis AB If note And note Then MsgBox Admis Bien If note Then MsgBox Admis TB End Sub Exercice TD Soit nombres x et y donnés par l'utilisateur puis une lettre donnée par l'utilisateur Si la lettre tapée est p ? le résultat calculé par le programme vaut le produit xy si la lettre tapée est s ? le résultat calculé vaut la somme x y Corrigé Sub Operation Dim op As String x As Integer y As Integer x InputBox x y InputBox y op InputBox operation p produit s somme If op p Then MsgBox Le produit de x et y vaut xy End If If op s Then MsgBox La somme de x et y vaut x y End If If op s And op p Then 'l'utilisateur a entré une lettre di ?érente de p et s CMsgBox Erreur opération inconnue End If End Sub Exercice TD Faire la somme de nombres aléatoires chaque nombre est le résultat d ? un tirage au hasard et la somme des nombres est calculée au fur et à mesure Calculer ensuite la moyenne de ces nombres Corrigé Sub Exo TD Dim somme As Double x As Double i As Integer Randomize somme For i To x Rnd somme somme x Next MsgBox Moyenne somme End Sub Exercice TD Faire la somme de plusieurs nombres positifs en arrêtant ce calcul lors de la saisie de ?? Calculer ensuite la moyenne de ces nombres Corrigé Sub Exo TD Dim somme As Double x As Double n As Integer x InputBox Entrez un nombre réel n 'la variable n sert à compter combien de ' nombres a entré l'utilisateur somme While x somme somme x n n x InputBox Entrez un nombre réel Wend MsgBox Moyenne des n nombres somme n End Sub Exercice TD Modi ?er l'exercice précédent pour que maintenant le jeu s'arrête soit lorsque l'utilisateur répond non à une question posée soit lorsque le nombre de réalisations de ce jeu dépasse CCorrigé Sub Exo TD Dim x As Integer y As Integer i As Integer reponse As String Randomize i reponse oui While reponse non i i x Int Rnd 'tire au hasard un nombre entre et y InputBox D'après vous quel est le résultat du lancer au hasard If x y Then MsgBox Vous avez gagné Else MsgBox Vous avez perdu End If If i Then reponse InputBox Voulezvous continuer Else MsgBox Fini vous n'avez droit qu'à tentatives reponse non End If Wend End Sub Exercice TD On suppose un mot