Ejercicios Qbasic
Enviado por Gustavo2214 • 14 de Junio de 2014 • 907 Palabras (4 Páginas) • 392 Visitas
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
...