Guia Practica

EJERCICIOS “GAMBAS” (BAJO CONSOLA)

EJERCICIO 1 “HOLA MUNDO”
PUBLIC SUB Main() PRINT "HOLA MUNDO\n" PRINT "HOLA MUNDO" END

EJERCICIO 2 “SUMA”
PUBLIC SUB Main() `Mi primerasuma DIM A AS Integer DIM B AS Integer DIM S AS Integer A = 10 B = 20 S=A+B PRINT "LA SUMA ES...:" PRINT S END

EJERCICIO 3 “MAYOR DE 3”
‘entre 3 números averiguar cuál es el mayor‘el menor y el intermedio. PUBLIC SUB Main() DIM A, B, C AS Integer A=6 B = 10 C = 80 IF A > B AND A > C THEN PRINT "MAYOR ES..: " & A IF C > B THEN PRINT "INTERMEDIO ES..: " & C PRINT"MENOR ES..: " & B ELSE PRINT "INTERMEDIO ES..: " & B PRINT "MENOR ES..: " & C ENDIF ELSE IF B > C THEN PRINT "MAYOR ES..: " & B IF A > C THEN PRINT "INTERMEDIO ES..: " & A PRINT "MENORES..: " & C ELSE PRINT "INTERMEDIO ES..: " & C PRINT "MENOR ES..: " & A ENDIF ELSE PRINT "MAYOR ES..: " & C IF A > B THEN PRINT "INTERMEDIO ES..: " & A PRINT "MENOR ES..: " & B ELSEPRINT "INTERMEDIO ES..: " & B PRINT "MENOR ES..: " & A ENDIF ENDIF ENDIF END

EJERCICIO 4 “DIGITO AUTOVERIFICADOR”
PUBLIC SUB Main() DIM B, C, D, E, F, G, H, I, J, K, W AS IntegerDIM A AS String PRINT "INGRESE EL NUMERO DE CEDULA" INPUT A FOR B = 1 TO 9 STEP 1 C = Str(Mid(A, B, 1)) D = B MOD 2 IF D = 0 THEN I=I+C ELSE H=C*2 IF H > 9 THEN D = H MOD 10 E = Int(h /10) F=D+E ELSE F=H ENDIF G=G+F ENDIF NEXT J=G+I K = J MOD 10 W = 10 - K PRINT "EL NUMERO VERIFICADOR DE LA CEDULA ES : " PRINT W END

EJERCICIO 5 “DE TODO UN POCO”
PUBLIC SUBMain() DIM a AS Integer DIM NOMBRE, C AS String DIM F, I, X, T AS Integer PRINT "INGRESE UN NÚMERO..:" INPUT a PRINT "INGRESE UN NOMBRE..:" INPUT NOMBRE PRINT "EL NÚMERO QUE INGRESE ES..",a PRINT "EL NOMBRE ES..", NOMBRE C = Mid(NOMBRE, 2, 2) PRINT "EL CARACTER SELECCIONADO ES..:", C F=1 FOR I = 1 TO 5 F=F*I NEXT PRINT "EL FACTORIAL DE 5 ES..: ", F X=1 WHILE X