Ayuda, como reescribir programa en BASIC hacia la AFX 2.0

Responder
lcusoc
Usuario Principiante
Usuario Principiante
Mensajes: 3
Registrado: Mar Jul 14, 2009 11:36 am

Este es un programa escrito en BASIC como lo reescribo para cargarlo a la la AFX 2.0, Calcula los Factores Economicos para la Asignatura de Ing Económica

10 CLEAR:TT=0:TP=0:NF=0
15 CLS:P=TP:A=TP:F=TP
20 INPUT"P/F[1] F/P[2] A/P[3] P/A[4] A/F[5] F/A[6] G[7] Sumar[8] ";X:IF X>7 THEN 50
40 CLS:LOCATE 0,0:PRINT"i[%] :";Y;:LOCATE 7,1:INPUT Y:I=Y/100
45 CLS:LOCATE 0,0:PRINT"N :";N;:LOCATE 4,1:INPUT N
46 Q=(1+I)^N
47 W=Q-1:CLS
50 ON X GOTO 130,150,170,190,210,230,550,500,510,520:GOTO 20
130 LOCATE 0,0:PRINT"F :";F;:LOCATE 4,1:INPUT F
140 TP=F/Q:PRINT"P/F =";TP:GOTO 15
150 LOCATE 0,0:PRINT"P :";P;:LOCATE 4,1:INPUT P
160 TP=P*Q:PRINT"F/P =";TP:GOTO 15
170 LOCATE 0,0:PRINT"P :";P;:LOCATE 4,1:INPUT P:IF I=0 THEN TP=P/N ELSE TP=I*P*Q/W
180 PRINT"A/P =";TP:GOTO 15
190 LOCATE 0,0:PRINT"A :";A;:LOCATE 4,1:INPUT A:IF I=0 THEN TP=A*N ELSE TP=A*W/(I*Q)
200 PRINT"P/A =";TP:GOTO 15
210 LOCATE 0,0:PRINT"F :";F;:LOCATE 4,1:INPUT F
220 TP=F*I/W:PRINT"A/F =";TP:GOTO 15
230 LOCATE 0,0:PRINT"A :";A;:LOCATE 4,1:INPUT A
240 TP=A*W/I:PRINT"F/A :";TP:GOTO 15
500 TT=TT+TP:NF=NF+1:PRINT"TOTAL =";TT:GOTO 15
510 PRINT"Ultimo valor=";TP,"Total=";TT,"N=";NF:GOTO 15
520 CLS:LOCATE 0,0:PRINT"Valor=";TP;:LOCATE 7,1:INPUT TP:GOTO 15
550 CLS:INPUT"P/G[1] A/G[2] F/G[3]";X:INPUT"G=";G:ON X GOTO 560,570,580:GOTO 550
560 TP=G*(W-I*N)/(Q*I^2):PRINT"P/G=";TP:GOTO 15
570 TP=G*(W-I*N)/(I*W):PRINT"A/G=";TP:GOTO 15
580 TP=G*(W-I*N)/I^2:PRINT"F/G=";TP:GOTO 15
Avatar de Usuario
casius
Usuario Principiante
Usuario Principiante
Mensajes: 8
Registrado: Lun Ene 02, 2006 9:44 am
Ubicación: Potosi

ya lo converti, pero lo unico que quiero es que me digas que, resultados tiene que salir, me gustaria que coloquess algunos datos.
lcusoc
Usuario Principiante
Usuario Principiante
Mensajes: 3
Registrado: Mar Jul 14, 2009 11:36 am

Estimado explico los valores requeridos:

Basicamente una vez que haces correr el programa este te preguntará que factores necesitas, con las opciones del 1 al 8.

Ejemplos:

Si necesitamos P/F se selecciona 1

ingrese interes i% : 10

cantidad de tiempo N: 5

y por ultimo el monto a aplicar F: 10000

La respuesta que debe arrojar es : 6209,213231

Ejemplo 2

Si necesitamos A/P se selecciona 3

ingrese interes i% : 15

cantidad de tiempo N: 7

y por ultimo el monto a aplicar P: 8000

La respuesta que debe arrojar es : 1922.882909

Ejemplo 3

Si necesitamos F/A se selecciona 6

ingrese interes i% : 15

cantidad de tiempo N: 7

y por ultimo el monto a aplicar A: 8000

La respuesta que debe arrojar es : 88534.39362

Ejemplo 4

Si necesitamos G se selecciona 7

ingrese interes i% : 15

cantidad de tiempo N: 7

Seleccionamos una de las alternativas del 1 al 3, para este ejemplo : 2

y por ultimo el monto a aplicar G: 200

La respuesta que debe arrojar es : 489.9699397

La selección 8 se utiliza para ir guardando y sumando las respuestas de los casos anteriores en caso que se necesite

Atte

Lcusoc
Avatar de Usuario
casius
Usuario Principiante
Usuario Principiante
Mensajes: 8
Registrado: Lun Ene 02, 2006 9:44 am
Ubicación: Potosi

HOLA
AQUI TE PONGO EL CODIGO, LO UNICO ES QUE TENGO UN PEQUEÑO PROBLEMITA CON LA SUMA, Y ADEMAS CREO QUE EL TITULO ESTA MAL JAJAJA, ESO DE LA SUMA LO SOLUCIONARE MUY PRONTITO, PERO LO DEMAS LO TENES AQUI
mmmmmmmmmmmmmmmm. medio que no salio bien, bueno te lo mando a tu correo bye
saludos desde bolivia

ClrTextÙ
0ãX:0ãY:0ãZÙ
Locate 1,1,"*********************"Ù
Locate 8,2,"ESTADOS"Ù
Locate 6,4,"FINANCIEROS"Ù
Locate 6,6,"PRESS [EXE]"Ù
Locate 1,7,"*********************"Ù
DoÙ
LpWhile GetkeyÈ31Ù
Lbl AÙ
YãP:YãA:YãFÙ
ClrTextÙ
Locate 4,1,"PÁF[1] FÁP[2]"Ù
Locate 4,3,"PÁA[3] PÁA[4]"Ù
Locate 4,5,"AÁF[5] FÁA[6]"Ù
Locate 4,7,"G[7] Sumar[8]"Ù
DoÙ
GetkeyÙ
LpWhile ((Ans=72) Or (Ans=62) Or (Ans=52) Or (Ans=73) Or (Ans=63) Or (Ans=53) Or (Ans=74) Or (Ans=64))=0Ù
ClrTextÙ
"i [%]:"?ãYÙ
YÁ100ãIÙ
"N :"?ãNÙ
(1+I)^NãQÙ
Q-1ãWÙ
If Ans=72Ù
Then ClrTextÙ
"F :"?ãFÙ
ClrTextÙ
"PÁF=":FÁQãYØ
Goto AÙ
IfEndÙ
If Ans=62Ù
Then ClrTextÙ
"P :"?ãPÙ
ClrTextÙ
"FÁP=":PÀQãYØ
Goto AÙ
IfEndÙ
If Ans=52Ù
Then ClrTextÙ
"P :"?ãPÙ
If I=0Ù
Then ClrTextÙ
"AÁP=":PÁNãYØ
Else ClrTextÙ
"AÁP=":IÀPÀQÁWãYØ
Goto AÙ
IfEndÙ
IfEndÙ
If Ans=73Ù
Then ClrTextÙ
"A :"?ãAÙ
If I=0Ù
Then ClrTextÙ
"PÁA=":AÀNãYØ
Else ClrTextÙ
"AÁP=":AÀWÁ(IÀQ)ãYØ
Goto AÙ
IfEndÙ
IfEndÙ
If Ans=63Ù
Then ClrTextÙ
"F :"?ãFÙ
ClrTextÙ
"AÁF=":FÀIÁWãYØ
Goto AÙ
IfEndÙ
If Ans=53Ù
Then ClrTextÙ
"A :"?ãAÙ
ClrTextÙ
"FÁA=":AÀWÁIãYØ
Goto AÙ
IfEndÙ
If Ans=64Ù
Then Goto AÙ
IfEndÙ
If Ans=74Ù
Then Goto BÙ
IfEndÙ
Lbl BÙ
ClrTextÙ
Locate 6,2,"PÁG [1]"Ù
Locate 6,4,"AÁG [2]"Ù
Locate 6,6,"FÁG [3]"Ù
DoÙ
GetkeyÙ
LpWhile ((Ans=72) Or (Ans=62) Or (Ans=52))=0Ù
ClrTextÙ
"G :"?ãGÙ
If Ans=72Ù
Then ClrTextÙ
"PÁG=":GÀ(W-IÀN)Á(QÀI’)Ø
Goto AÙ
IfEndÙ
If Ans=62Ù
Then ClrTextÙ
"AÁG=":GÀ(W-IÀN)Á(IÀW)Ø
Goto AÙ
IfEndÙ
If Ans=52Ù
Then ClrTextÙ
"FÁG=":GÀ(W-IÀN)ÁI’Ø
Goto AÙ
IfEndÙ
Responder
  • Similar Topics
    Respuestas
    Vistas
    Último mensaje

Volver a “Casio”

  • Información