Página 1 de 1

ALGUNOS PROG. CIVIL :) AFX 2.0

Publicado: Mar Abr 19, 2011 2:50 pm
por casius
Hola al foro, aqui algunos programas para estructuras
civil, ojala les guste.
pronto mas programas

Re: ALGUNOS PROG. CIVIL :) AFX 2.0

Publicado: Mar Jun 07, 2011 11:50 am
por lcusoc
ESTIMADO EL PROGRAMA QUE DETALLO MAS ABAJO ESTÁ EN BASIC, QUE SIRVE PARA EL CALCULO DE FACTORES ECONOMICOS PARA EL RAMO DE iNGENIERÍA ECONOMICA, COMO NO SOY MUY DIESTRO EN LA PARTE DE PROGRAMACIÓN, TU PUEDES REESCRIBIRLO PARA CARGAR A LA AFX 2.0?

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

Re: ALGUNOS PROG. CIVIL :) AFX 2.0

Publicado: Vie Sep 27, 2013 12:13 am
por luiseduardoaguilar
buenas. me gustaria saber que sucede en la linea 49 " List->Mat(List 6)->Mat A " represento la flechita de la calculadora con -> ya que me sale un error, esto es del programa cross V1

Re: ALGUNOS PROG. CIVIL :) AFX 2.0

Publicado: Mar Oct 01, 2013 8:29 am
por casius
holas, ojala que te sirvan los programas
lo que pasa es que talves estes metiendo el comandito mal, pues lo que pasa es que el comando de Mat List() es uno solo, no son comandos separados es lo miso al reves de list a Mat

Ojala te haya ayudado, pero si no puedes me escribes a mi correo