Exercices pratiques en Qbasic
Traduit par
ScribdTranslationsExercices pratiques en Qbasic
Traduit par
ScribdTranslationsExercices de Qbasic
1.- Réalisez un programme qui lit trois nombres et dit lequel est le plus grand.
2.- Réalisez un programme qui convertit des pesetas en euros. Améliorez-le en ajoutant le change de
euros en pesetas et que ce soit l'utilisateur qui décide quel type de change il veut, s'il s'agit d'euros
à pesetas ou vice versa.
3.- Faire un programme qui permet de décider si deux mots sont identiques ou différents.
4.- Réalisez un programme qui demande quelle est votre note numérique à un examen (par exemple 6) et
je t'indique la note correspondante (dans l'exemple APPROUVÉ).
5.- Réalisez un programme qui calcule la médiane de trois nombres.
6.- Réalisez un programme qui effectue des sommes des nombres introduits
7.- Réalisez un programme qui calcule le factoriel d'un nombre
8.- Réalisez un programme qui calcule des moyennes arithmétiques
9.- Réalisez un programme qui calcule le coefficient de corrélation de deux variables.
CERTAINS EXERCICES RÉSOLUS
1.- Réalisez un programme qui lit trois nombres et dit lequel est le plus grand
10 REM ************************ EXERCICE *************************
20 REM ** Lire trois nombres et écrire le plus grand d'entre eux **********
30 CLS
40 SAISIR "INTRODUIS TROIS NOMBRES DIFFÉRENTS (SÉPARÉS PAR DES VIRGULES)", A, B, C
50 SI A > B ET A > C ALORS IMPRIMER "LE NUMÉRO LE PLUS GRAND EST"; A
60 SI B > A ET B > C ALORS IMPRIMER "LE NUMÉRO LE PLUS GRAND EST"; B
70 SI C > A ET C > B ALORS IMPRIMER "LE NUMÉRO LE PLUS GRAND EST"; C
80 FIN
3.- Faire un programme qui permet de décider si deux mots sont identiques ou différents.
10 REM *PROGRAMME ÉGALITÉ DE MOTS*
20 INPUT "Introduisez deux mots (Séparés par des virgules)", X$, Y$
30 SI X$ = Y$ ALORS
40 PRINT "Les deux mots sont identiques"
50 SINON
60 PRINT "Vous avez écrit deux mots différents"
70 FIN SI
80 FIN
4.- Réalisez un programme qui demande quelle est votre note numérique à un examen (par exemple 6) et
je t'indique la note correspondante (dans l'exemple APPROUVÉ).
10 REM ******** PROGRAMME DE NOTES ***************
20 INPUT "Quelle a été votre note à l'examen? ", NOTE
30 SI NOTA < 5 ALORS AFFICHER "VOUS AVEZ OBTENU UN INSUFFISANT"
40 SI NOTA >= 5 ET NOTA < 7 ALORS IMPRIMER "VOUS AVEZ OBTENU UN APPROUVÉ"
50 SI NOTA >= 7 ET NOTA < 9 ALORS AFFICHER "VOUS AVEZ OBTENU UN NOTABLE"
60 SI NOTA >= 9 ET NOTA < 10 ALORS IMPRIMER "TU AS OBTENU UN SURSCORE"
70 SI NOTA = 10 ALORS IMPRIMER "FÉLICITATIONS, VOUS AVEZ OBTENU UNE MATRICE D'HONNEUR"
80 FIN
7.- Réalisez un programme qui calcule la factorielle d'un nombre
10 REM ********************* EXERCISE **************************
20 REM ****** Programme pour le calcul factoriel ****************
30 CLS
40 REM ********* INITIALISATION DES VARIABLES ********************
50 FACT = 1
60 PRINT "CE PROGRAMME CALCULE LA FACTORIELLE D'UN NOMBRE"
70 SAISIR "INTRODUIS UN NOMBRE ENTIER ", NUM
80 SI NUM > 34 ALORS IMPRIMER "SOLO CALCULA FACTORIALES PARA MENORES DE
35": ALLER À 70
90 POUR I = 1 À NUM
100 FAIT = FAIT * I
110 SUIVANT I
120 CLS
130 IMPRIMER
140 IMPRIMER "LE FACTORIEL DE"; NUM; "EST"; FACT
150 FIN
8.- Réalisez un programme qui calcule des moyennes arithmétiques
10 REM *******************************
20 REM **CALCUL DE LA MOYENNE ET DE LA VARIANCE**
30 REM *******************************
40 REM *INITIALISATION DES VARIABLES*
50 SUMATORIO = 0
60 SUMATORIO2 = 0
70 REM *ENTRÉE DE DONNÉES*
80 CLS
90 PRINT "CE PROGRAMME CALCULE LA MOYENNE ET LA VARIANCE"
100 INPUT "¨COMBIEN DE DONNÉES ALLEZ-VOUS INTRODUIRE"; NUMÉRO
110 POUR X = 1 À NUMERO
120 SAISIR "INTRODUISSEZ UNE DONNÉE ", DONNÉE
SUMATORIO = SUMATORIO + DATO
140 SOMME2 = SOMME2 + DONNÉE * DONNÉE
150 SUIVANT X
160 REM *CALCULER*
170 MÉDIAS = SOMME / NOMBRE
180 VARIANZA = (SOMME2 / NOMBRE) - (MOYENNE * MOYENNE)
190 REM *SORTIE DES RÉSULTATS*
200 IMPRESSION
210 IMPRIMER
220 IMPRIMER "MÉDIA="; MÉDIA
230 IMPRIMER "VARIANZA="; VARIANZA
240 FIN
9.- Réalisez un programme qui calcule le coefficient de corrélation de deux variables.
10 REM *****************************************************
20 REM **CALCUL DU COEFFICIENT DE CORRÉLATION DE PEARSON**
30 REM *****************************************************
40 REM **************INITIALISATION DES VARIABLES**********
50 SUMATORIOA = 0
60 SUMATORIA A2 = 0
61 SOMMEBA = 0
62 SOMMEB2 = 0
63 SOMPROD = 0
70 REM ***************ENTRÉE DE DONNÉES********************
80 CLS
90 PRINT "CE PROGRAMME CALCULE LE COEFFICIENT DE CORRELATION DE
PEARSON
100 ENTRÉE "¨COMBIEN DE PAIRES DE DONNÉES ALLEZ-VOUS INTRODUIRE"; NOMBRE
110 POUR X = 1 À NUMERO
120 PRINT "INTRODUISEZ LA PAIRE DE DONNÉES (SÉPARÉE PAR DES VIRGULES) N°";
X
121 SAISIE DATO1, DATO2
130 SOMMEA = SOMMEA + DONNÉE1
140 SUMATORIOA2 = SUMATORIOA2 + DATO1 * DATO1
141 SOMMATORIOB = SOMMATORIOB + DONNÉE2
142 SUMATORIOB2 = SUMATORIOB2 + DATO2 * DATO2
143 SOMPROD = SOMPROD + DATO1 * DATO2
150 SUIVANT X
160 REM ***************CALCULER***************************
170 MEDIAA = SOMMEA / NOMBRE
180 VARIANZAA = (SOMMEA2 / NOMBRE) - (MOYENNEA * MOYENNEA)
181 MEDIAB = SOMMEB / NOMBRE
182 VARIANZAB = (SOMMATIONB2 / NOMBRE) - (MOYENNEB * MOYENNEB)
(NUMERO * SUMPROD) - (SUMATORIOA * SUMATORIOB)
184 RAIZ1 = NUMÉRO * SOMMATIONA2 - SOMMATIONA ^ 2
185 RAIZ2 = NUMERO * SUMATORIOB2 - SUMATORIOB ^ 2
186 PEARSON = NUMERATEUR / ((RAIZ1 ^ (1 / 2)) * (RAIZ2 ^ (1 / 2)))
190 REM ***************SORTIE RÉSULTATS********************
200 CLS
210 IMPRIMER
211 PRINT " PREMIÈRE VARIABLE"
220 PRINT " MEDIA="; MEDIAA
230 IMPRIMER " VARIANZA="; VARIANZAA
231 IMPRIMER
240 IMPRIMER " DEUXIÈME VARIABLE"
250 PRINT " MEDIA="; MEDIAB
260 PRINT " VARIANZA="; VARIANZAB
270 IMPRIMER
280 PRINT " COEFICIENT DE CORRÉLATION DE PEARSON"
290 PRINT " r(x,y)= "; PEARSON
300 FIN