PROGRAMAS PARA LA CALCULADORA GRÁFICA - PARTE I

Modelos Casio: C/FX-9xx0

Modelos Texas Instruments: TI-82/83/84

¡A CONTAR!
Teclea el número que aparece en pantalla (0-9)
CLRTEXT
CLRTEXT
LBL A
INT (9xRAN#)→A
LBL B
CLRTEXT
LOCATE 10,4,A:"TECLEA EL NUMERO QUE VES EN PANTALLA"?→B
IF B=A
THEN CLRTEXT
LOCATE 10,4,":)"Δ
GOTO A
ELSE GOTO B
IFEND 		. . .
Cuenta a tu ritmo
CLRTEXT
"CONTAR HASTA? "?→A
"RAPIDEZ EN SEGUNDOS? "?→B
IF B>9
THEN
9→B
IFEND
FOR 0→C TO A STEP 1
FOR 1→D TO B STEP 1
∫(cos(ln(1)),0,1)
NEXT
LOCATE 21,1, C
NEXT
STOP
 CLRHOME
INPUT "CONTAR HASTA? ",A
INPUT "RAPIDEZ EN SEGUNDOS? ",B
IF B>9
THEN
9→B
END
FOR(C,0,A,1)
FOR(D,1,B,1)
fnInt(cos(ln(1)),[XTn],0,1)
END
DISP C
END
STOP
Cuenta, tecleando, desde...
. . . CLRHOME
INPUT "NUMERO INICIAL? ",D
D→B
LBL A
INPUT "NUMERO ",A
IF A=B
THEN
DISP "SIGUIENTE"
B+1→B
ELSE
DISP "CORRIGE"
END
GOTO A
APRIETA LA TECLA DE LA VOCAL...
. . . CLRHOME
LBL 1
0→D
RANDINT(1,5)→B
IF B=1:"A"→STR1
IF B=2:"E"→STR1
IF B=3:"I"→STR1
IF B=4:"O"→STR1
IF B=5:"U"→STR1
LBL 2
DISP "APRIETA LA TECLA DE LA VOCAL: ",STR1
WHILE 1
GETKEY→C
WHILE C=0
GETKEY→C
END
IF B=1 AND C=41 :1→D
IF B=2 AND C=52 :1→D
IF B=3 AND C=61 :1→D
IF B=4 AND C=72 :1→D
IF B=5 AND C=83 :1→D
IF D=1
THEN
DISP ":-)"
GOTO 1
ELSE
DISP ":-("
GOTO 2
END
ADIVINA EL NÚMERO (MAYOR/MENOR QUE)
. . . CLRHOME
INPUT "ADIVINA UN NUMERO DEL 0 AL... ",A
RANDINT(0,A)→B
0→E
LBL A
E+1→E
INPUT "QUE NUMERO ES? ",C
IF C=B
THEN
DISP "ACERTASTE. NUMERO DE INTENTOS: ",E
STOP
ELSE
IF C>B
THEN
DISP "ES MENOR"
ELSE
DISP "ES MAYOR"
END
GOTO A
END
UNIDADES, DECENAS, CENTENAS... (FORMA EXTENDIDA)
CLRTEXT
"NUMERO "?→A
1→N
1→B
DO
A/(10^N)→B
INT((FRAC B)x10)→C
Cx10^(N-1)Δ
(1+N)→N
LPWHILE B≥1
STOP
 CLRHOME
INPUT "NUMERO? ",A
1→N
1→B
WHILE B≥1
A/(10^N)→B
INT(FPART(B)*10)→C
C*10^(N-1)→D
1+N→N
DISP D
END
DISP A
STOP
ACTIVIDADES CON SUMAS Y RESTAS
Sumas aleatorias
. . . CLRHOME
INPUT "SUMAR NUMEROS DESDE 0 HASTA...? ",C
RANDINT(1,C)→A
RANDINT(1,C)→B
LBL A
CLRHOME
DISP "CUANTO ES ",A,"MAS ",B,"SON?"
INPUT "RESULTADO? ",D
A+B→E
IF D=E
THEN
DISP "CORRECTO"
RANDINT(1,C)→A
RANDINT(1,C)→B
ELSE
DISP "CORRIGE"
END
GOTO A
Restas aleatorias
. . . CLRHOME
INPUT "MINUENDO MAXIMO? ",C
RANDINT(1,C)→A
RANDINT(1,C-1)→B
LBL A
CLRHOME
DISP A,"MENOS ",B,"SON?"
INPUT "RESULTADO? ",D
A-B→E
IF D=E
THEN
DISP "CORRECTO"
RANDINT(1,C)→A
RANDINT(1,C-1)→B
ELSE
DISP "CORRIGE"
END
GOTO A
Teclea series pares o impares
. . . CLRHOME
INPUT "ENTRA 1 PARA SERIE IMPAR, 2
PARA PAR... Y SIGUE LA SERIE",B
IF B>2
THEN
DISP "NUMERO ERRONEO"
STOP
ELSE
LBL A
INPUT "NUMERO ",A
B+2→B
IF A=B
THEN
DISP "SIGUIENTE"
ELSE
DISP "CORRIGE"
END
GOTO A
END
Sigue la serie, sumando
. . . CLRHOME
INPUT "NUMERO INICIAL? ",A
CLRHOME
RANDINT(1,9)→B
LBL A
DISP "CUANTO ES ",A,"MAS ",B
INPUT "RESULTADO? ",C
A+B→D
IF C=D
THEN
D→A
DISP "CORRECTO"
RANDINT(1,9)→B
ELSE
DISP "CORRIGE"
END
GOTO A
Sigue la serie, restando
. . . CLRHOME
INPUT "NUMERO INICIAL? ",A
CLRHOME
RANDINT(1,9)→B
LBL A
DISP "CUANTO ES ",A,"MENOS ",B
INPUT "RESULTADO? ",C
A-B→D
IF C=D
THEN
D→A
DISP "CORRECTO"
RANDINT(1,9)→B
ELSE
DISP "CORRIGE"
END
GOTO A
LA TABLA DE MULTIPLICAR
La tabla de multiplicar del número...
CLRTEXT
"TABLA DE MULTIPLICAR DEL NUMERO"?→B
LBL A
INT (10xRAN#)→A
CLRTEXT
"CUANTAS SON ":LOCATE 13,1,A
"POR ":LOCATE 5,2,B
"SON... "?→D
(AxB)→C
IF C=D
THEN CLRTEXT
":) PRESIONA [EXE]"Δ
INT (10xRAN#)→A
ELSE CLRTEXT
IFEND
GOTO A
 CLRHOME
INPUT "TABLA DE MULTIPLICAR DEL NUMERO ",B
RANDINT(0,10)→A
LBL A
CLRHOME
DISP "CUANTAS SON ",A,"POR ",B,"?"
INPUT "SON...? ",C
(A*B)→D
IF C=D
THEN
DISP ":)"
RANDINT(0,10)→A
ELSE
CLRHOME
END
GOTO A
Repaso de la tabla de multiplicar
. . . CLRHOME
"REPASO DE LA TABLA"
0→E
0→F
LBL A
CLRHOME
RANDINT(0,10)→A
RANDINT(0,10)→B
DISP "CUANTAS SON ",A,"POR ",B
INPUT "SON...? ",C
(A*B)→D
IF C=D
THEN
DISP ":)"
(E+1)→E
ELSE
DISP ":)"
(F+1)→F
END
DISP "ACIERTOS ",E
DISP "FALLOS ",F
PAUSE GOTO A
MÚLTIPLOS Y DIVISORES
¿ Es el número A múltiplo de B ó B divisor de A?
. . .





LBL A
RANDINT(0,100)→A
RANDINT(2,9)→B
DISP A,"ES MULTIPLO DE ",B,"?"
IPART(A/B)→C
IF (C*B)=A
THEN
1→D
ELSE
0→D
END
INPUT "SI:1 NO:0 ",E
IF E=D
THEN
DISP ":-)"
ELSE
DISP ":-("
END
GOTO A
EJERCICIOS DE MULTIPLICACIONES Y DIVISIONES
División resuelta en la pantalla según formato escolar (números enteros)
NORM
"DIVIDENDO"?→A
"DIVISOR"?→B
CLRTEXT
LOCATE 11,2,"- - - - - - -"
LOCATE 10,1,"I"
LOCATE 1,1,A
LOCATE 12,1,B
INT (A:B)→C
A-(BxC)→D
LOCATE 12,3,C
LOCATE 4,4,D
LOCATE 2,2,". ."
LOCATE 3,3,". ."
STOP
 CLRHOME
INPUT "DIVIDENDO? ",A
INPUT "DIVISOR? ",B
CLRHOME
OUTPUT(2,11,"------"
OUTPUT(1,10,"/"
OUTPUT(1,1,A
OUTPUT(1,12,
INT(A/B)→C
INT(A-(B*C))→D
OUTPUT(3,12,C
OUTPUT(4,4,D
OUTPUT(2,2,".."
OUTPUT(3,3,".."
Propuesta de ejercicios con dos números enteros aleatorios
"NUMERO A MAXIMO"?→A
"NUMERO B MAXIMO"?→B
LBL A
INT (AxRAN#+1)→C
DO
INT (BxRAN#+1)→D
LPWHILE C<D
CLRTEXT
LOCATE 1,1,A
LOCATE 8,1,"?"
LOCATE 9,2,B
"PRESIONA [EXE] PARA OTRO EJERCICIO"
GOTO A
 . . .
INICIACIÓN A LA CRIPTOGRAFÍA
. . . CLRHOME
"ENTRA NUMERO CADA LETRA EN L1"
INPUT "1-CODIFICAR, 2-DECODIFICAR",B
IF B=1
THEN
INPUT "CLAVE NUMERICA",A
L1*A→L1
ELSE
INPUT "CLAVE NUMERICA",A
L1/A→L2
DISPLAY "NUMERO LETRAS DECODIFICADO EN L2"
END
STOP
CÁLCULO MENTAL
¿Suma o resta? (formato escolar)
. . . CLRHOME
INPUT "MAXIMO NUMERO? ",N
RANDINT(1,N)→A
RANDINT(1,N)→B
IF A>B
THEN
(A-B)→C
DISP A,"              ?",B,"SON              --",C
ELSE
(A+B)→C
DISP A,"              ?",B,"SON              --",C
END
¿Multiplicación o división? (formato escolar)
. . . CLRHOME
INPUT "MAXIMO NUMERO? ",N
RANDINT(1,N)→A
RANDINT(1,N)→B
IF A>B
THEN
(A/B)→C
DISP A,"              ?",B,"SON              --",INT(C)
ELSE
(AxB)→C
DISP A,"              ?",B,"SON              --",C
END
¿Cuál suma, cuál resta? (formato escolar)
. . . CLRHOME
RANDINT(5,9)→A
RANDINT(0,5)→B
RANDINT(0,5)→C
RANDINT(0,1)→D
IF D=0
THEN
(A-B+C)→E
DISP A,"              ?",B,"              ?",C,"SON              --",E
ELSE
(A+B-C)→E
DISP A,"              ?",B,"              ?",C,"SON              --",E
END
M.C.D.; M.C.M. y FACTORES PRIMOS
m.c.d.
CLRTXT
"NUMERO 1"?→A
"NUMERO 2"?→B
WHILE A≠B
IF A>B
THEN A-B→A
ELSE B-A→B
IFEND
WHILEEND
AΔ

Este programa está aquí gracias a:
Juan lópez Sánchez - http://www.omerique.net/Calcumat/ 		Usar la función \gcd\
m.c.m.
CLRTXT
"NUMERO 1"?→A
"NUMERO 2"?→B
WHILE A≠B
IF A>B
THEN A-B→A
ELSE B-A→B
IFEND
WHILEEND
(A*B)/A→CΔ

Este programa está aquí gracias a:
Juan lópez Sánchez - http://www.omerique.net/Calcumat/ 		Usar la función \lgm\
Factores primos
. . . CLRHOME
INPUT "NUMERO?",A
A→F
2→B
1→G
CLRALLLISTS
LBL A
A/B→C
IF INT(C)≥1
THEN
INT(C)→D
END
D→A
B→L1(G)
G+1→G
GOTO A
ELSE
B+1→B
GOTO A
END
ELSE
DISP L1
STOP
END
OPERACIONES CON NÚMEROS DECIMALES
Ejercicios con dos números decimales aleatorios
"NUMERO DECIMAL A MAXIMO"?→A
"NUMERO DECIMAL B MAXIMO"?→B
LBL A
(AxRAN#+1)→C
DO
(BxRAN#+1)→D
LPWHILE C<D
CLRTEXT
LOCATE 1,1,A
LOCATE 8,1,"?"
LOCATE 9,2,B
"PRESIONA [EXE] PARA OTRO EJERCICIO"
Δ
GOTO A
 . . .
FRACCIONES
Ejercicios con dos fracciones aleatorias (formato escolar)
. . . CLRHOME
INPUT "NUMERO MAXIMO",N
LBL A
CLRHOME
WHILE (A/B)>(C/D)
RANDINT(1,N)→A
RANDINT(2,N)→B
RANDINT(1,N)→C
RANDINT(2,N)→D
END
OUTPUT(2,1,A)
OUTPUT(3,1,"--")
OUTPUT(4,1,B)
OUTPUT(3,4,"?")
OUTPUT(2,6,C)
OUTPUT(3,9,"=")
OUTPUT(4,6,D)
INPUT "OTRO EJEMPLO? 0-NO, 1-SI",Z
IF Z>0
THEN
GOTO A
ELSE
STOP
END

Creative Commons License
Esta obra está bajo una licencia de Creative Commons.


|Volver a la página de calculadoras|