Vinculos patrocinados:

ALGUNOS PROG. CIVIL :) AFX 2.0

ALGUNOS PROG. CIVIL :) AFX 2.0

Notapor casius » Mar Abr 19, 2011 2:50 pm

Hola al foro, aqui algunos programas para estructuras
civil, ojala les guste.
pronto mas programas
ARCHIVO ADJUNTO. No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje. Debe Ingresar Primero y Actualizar (recargar) la pagina.
Avatar de Usuario
casius
Usuario Principiante
Usuario Principiante
Progreso hasta siguiente rango:
17.9%
 
Mensajes: 8
Registrado: Lun Ene 02, 2006 10:44 am
Ubicación: Potosi
Ha agradecido: 0 veces
Le han agradecido: 0 veces

Para recibir respuesta mas rapida o hacer este tema mas popular, compartelo en:

Comparte en Facebook Facebook Twittealo Twitter Comparte en MySpace MySpace

Re: ALGUNOS PROG. CIVIL :) AFX 2.0

Notapor lcusoc » Mar Jun 07, 2011 11:50 am

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
lcusoc
Usuario Principiante
Usuario Principiante
Progreso hasta siguiente rango:
5.1%
 
Mensajes: 3
Registrado: Mar Jul 14, 2009 11:36 am
País: Chile (cl)
Ha agradecido: 0 veces
Le han agradecido: 0 veces

Re: ALGUNOS PROG. CIVIL :) AFX 2.0

Notapor luiseduardoaguilar » Vie Sep 27, 2013 12:13 am

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
luiseduardoaguilar
Usuario Principiante
Usuario Principiante
Progreso hasta siguiente rango:
0%
 
Mensajes: 1
Registrado: Jue Sep 26, 2013 8:00 pm
País: Venezuela (ve)
Ha agradecido: 0 veces
Le han agradecido: 0 veces

Re: ALGUNOS PROG. CIVIL :) AFX 2.0

Notapor casius » Mar Oct 01, 2013 8:29 am

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
Avatar de Usuario
casius
Usuario Principiante
Usuario Principiante
Progreso hasta siguiente rango:
17.9%
 
Mensajes: 8
Registrado: Lun Ene 02, 2006 10:44 am
Ubicación: Potosi
Ha agradecido: 0 veces
Le han agradecido: 0 veces




Vinculos patrocinados

Volver a Casio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

ConstruAprende - Ingeniería Civil y Arquitectura

Compu-Aprende / SoyMexiquense.com / www.izcallibur.com / www.mizcalli.com  /  ¿Qué es la Ingeniería Civil?

cron