Ejercicios de Qbasic

1.- Realice un programa que lea tres números y diga cual es el mayor2.- Realice un programa que cambie pesetas a euros. Mejórelo, añadiendo el cambio de euros a pesetas y que sea el usuario quién decida que tipo de cambio quiere, si de euros a pesetas o al contrario.3.- Hacer un programa que permita decidir si dos palabras son iguales o diferentes.4.- Realice un programa que pregunte cual es tu nota numérica en un examen (p.ej 6) y te indique la calificación correspondiente (en el ejemplo APROBADO).5.- Realice un programa que calcule la mediana de tres números.6.- Realice un programa que realice sumatorios de los números introducidos7.- Realice un programa que calcule el factorial de un número8.- Realice un programa que calcule medias aritméticas9.- Realice un programa que calcule el coeficiente de correlación de dos variables.

ALGUNOS EJERCICIOS RESUELTOS

1.- Realice un programa que lea tres números y diga cual es el mayor

10 REM ************************ EJERCICIO *************************20 REM ** Leer tres numeros y escribir el mayor de ellos **********30 CLS40 INPUT "INTRODUCE TRES NUMEROS DIFERENTES (SEPARADOS POR COMAS)", A, B, C50 IF A > B AND A > C THEN PRINT "EL NUMERO MAYOR ES"; A60 IF B > A AND B > C THEN PRINT "EL NUMERO MAYOR ES"; B70 IF C > A AND C > B THEN PRINT "EL NUMERO MAYOR ES"; C80 END

3.- Hacer un programa que permita decidir si dos palabras son iguales o diferentes.

10 REM *PROGRAMA IGUALDAD DE PALABRAS*20 INPUT "Introduce dos palabras (Separadas por comas)", X$, Y$30 IF X$ = Y$ THEN 40 PRINT "Las dos palabras son iguales" 50 ELSE 60 PRINT "Has escrito dos palabras distintas"70 END IF80 END

4.- Realice un programa que pregunte cual es tu nota numérica en un examen (p.ej 6) y te indique la calificación correspondiente (en el ejemplo APROBADO).

10 REM ******** PROGRAMA DE NOTAS ***************20 INPUT "¿CUAL HA SIDO LA NOTA DE TU EXAMEN? ", NOTA30 IF NOTA < 5 THEN PRINT "HAS OBTENIDO UN INSUFICIENTE"40 IF NOTA >= 5 AND NOTA < 7 THEN PRINT "HAS OBTENIDO UN APROBADO"50 IF NOTA >= 7 AND NOTA < 9 THEN PRINT "HAS OBTENIDO UN NOTABLE"60 IF NOTA >= 9 AND NOTA < 10 THEN PRINT "HAS OBTENIDO UN SOBRESALIENTE"70 IF NOTA = 10 THEN PRINT "ENHORABUENA, HAS OBTENIDO UNA MATRICULA DE HONOR"

80 END7.- Realice un programa que calcule el factorial de un número

10 REM ********************* EJERCICIO **************************20 REM ****** Programa para el calculo factorial ****************30 CLS40 REM ********* INICIALIZACION DE VARIABLES ********************50 FACT = 160 PRINT "ESTE PROGRAMA CALCULA EL FACTORIAL DE UN NUMERO"70 INPUT "INTRODUCE UN NUMERO ENTERO ", NUM80 IF NUM > 34 THEN PRINT "SOLO CALCULA FACTORIALES PARA MENORES DE 35": GOTO 7090 FOR I = 1 TO NUM100 FACT = FACT * I110 NEXT I120 CLS130 PRINT140 PRINT "EL FACTORIAL DE"; NUM; "ES"; FACT150 END

8.- Realice un programa que calcule medias aritméticas

10 REM *******************************20 REM **CALCULO DE MEDIA Y VARIANZA**30 REM *******************************40 REM *INICIALIZACION DE VARIABLES*50 SUMATORIO = 060 SUMATORIO2 = 070 REM *ENTRADA DE DATOS*80 CLS90 PRINT "ESTE PROGRAMA CALCULA LA MEDIA Y VARIANZA"100 INPUT "¨CUANTOS DATOS VA A INTRODUCIR"; NUMERO110 FOR X = 1 TO NUMERO120 INPUT "INTRODUZCA UN DATO ", DATO130 SUMATORIO = SUMATORIO + DATO140 SUMATORIO2 = SUMATORIO2 + DATO * DATO150 NEXT X160 REM *CALCULAR*170 MEDIA = SUMATORIO / NUMERO180 VARIANZA = (SUMATORIO2 / NUMERO) - (MEDIA * MEDIA)190 REM *SALIDA RESULTADOS*200 PRINT210 PRINT220 PRINT "MEDIA="; MEDIA230 PRINT "VARIANZA="; VARIANZA240 END

9.- Realice un programa que calcule el coeficiente de correlación de dos variables.

10 REM *****************************************************20 REM **CALCULO DEL COEFICIENTE DE CORRELACION DE PEARSON**30 REM *****************************************************40 REM **************INICIALIZACION DE VARIABLES**********50 SUMATORIOA = 060 SUMATORIOA2 = 061 SUMATORIOB = 062 SUMATORIOB2 = 063 SUMPROD = 070 REM ***************ENTRADA DE DATOS********************80 CLS90 PRINT "ESTE PROGRAMA CALCULA EL COEFICIENTE DE CORRELACION DE PEARSON"100 INPUT "¨CUANTOS PARES DE DATOS VA A INTRODUCIR"; NUMERO110 FOR X = 1 TO NUMERO120 PRINT "INTRODUZCA LA PAREJA DE DATOS (SEPARADA POR COMAS) N§"; X121 INPUT DATO1, DATO2130 SUMATORIOA = SUMATORIOA + DATO1140 SUMATORIOA2 = SUMATORIOA2 + DATO1 * DATO1141 SUMATORIOB = SUMATORIOB + DATO2142 SUMATORIOB2 = SUMATORIOB2 + DATO2 * DATO2143 SUMPROD = SUMPROD + DATO1 * DATO2150 NEXT X160 REM ***************CALCULAR***************************170 MEDIAA = SUMATORIOA / NUMERO180 VARIANZAA = (SUMATORIOA2 / NUMERO) - (MEDIAA * MEDIAA)181 MEDIAB = SUMATORIOB / NUMERO182 VARIANZAB = (SUMATORIOB2 / NUMERO) - (MEDIAB * MEDIAB)183 NUMERADOR = (NUMERO * SUMPROD) - (SUMATORIOA * SUMATORIOB)184 RAIZ1 = NUMERO * SUMATORIOA2 - SUMATORIOA ^ 2185 RAIZ2 = NUMERO * SUMATORIOB2 - SUMATORIOB ^ 2186 PEARSON = NUMERADOR / ((RAIZ1 ^ (1 / 2)) * (RAIZ2 ^ (1 / 2)))190 REM ***************SALIDA RESULTADOS********************200 CLS210 PRINT211 PRINT " PRIMERA VARIABLE"220 PRINT " MEDIA="; MEDIAA230 PRINT " VARIANZA="; VARIANZAA231 PRINT240 PRINT " SEGUNDA VARIABLE"250 PRINT " MEDIA="; MEDIAB260 PRINT " VARIANZA="; VARIANZAB270 PRINT280 PRINT " COEFICIENTE DE CORRELACION DE PEARSON"290 PRINT " r(x,y)= "; PEARSON300 END