Ejercicios Qbasic

Ejercicios de Qbasic

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

2.- 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 introducidos

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

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

9.- 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 CLS

40 INPUT "INTRODUCE TRES NUMEROS DIFERENTES (SEPARADOS POR COMAS)", A, B, C

50 IF A > B AND A > C THEN PRINT "EL NUMERO MAYOR ES"; A

60 IF B > A AND B > C THEN PRINT "EL NUMERO MAYOR ES"; B

70 IF C > A AND C > B THEN PRINT "EL NUMERO MAYOR ES"; C

80 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 IF

80 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? ", NOTA

30 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 END

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

10 REM ********************* EJERCICIO **************************

20 REM ****** Programa para el calculo factorial ****************

30 CLS

40 REM ********* INICIALIZACION DE VARIABLES ********************

50 FACT = 1

60 PRINT "ESTE PROGRAMA CALCULA EL FACTORIAL DE UN NUMERO"

70 INPUT "INTRODUCE UN NUMERO ENTERO ", NUM

80 IF NUM > 34 THEN PRINT "SOLO CALCULA FACTORIALES PARA MENORES DE 35": GOTO 70

90 FOR I = 1 TO NUM

100 FACT = FACT * I

110 NEXT I

120 CLS

130 PRINT

140 PRINT "EL FACTORIAL DE"; NUM; "ES"; FACT

150 END

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

10 REM *******************************

20

...