Estructuras

Solo disponible en BuenasTareas
  • Páginas : 2 (382 palabras )
  • Descarga(s) : 0
  • Publicado : 18 de septiembre de 2010
Leer documento completo
Vista previa del texto
rograma para Calcular la Fuerza neta y el Centro de presiones (Mecanica de Fluidos)
 
Mié, 07/10/2009 - 18:23
Hola Adictos... Este es un segundo programa que desarrolle para calcular el centrode presiones y la Fuerza neta, es para Mecanica de fluidos, lo hize porque ya se acerkan mis parciales =( ... Bueno este es un programa basico, fail de entender y usar. Solo que se ve feo cuando estatodo el codigo amontonado, pero se que uds. lo podran entender =). Haciendo este programa me tope con una incognita: se puede CHOOSEar dentro de un INFORM????? o como es ese directorio INFORMIN???? laverda que me deskoncerto un poko no poder hacerlo... Si alguien me pueda ayudar, explikar, como puedo meter CHOOSE dentro de un INFORM, le estaria eternamente agradecido. Les dejo kon el programa deFluidos... XD FcpYcp 1.0............................................................................................................................................................................................................................ parece que -> es equivalente a  .............................................................
« CLLCD "Que desea calcular?"
{ { "Fuerza Netacg" 1 } {
"Distancia Ycp" 2 } } 1
CHOOSE
IF
THEN -> opc ; ’opc’ es variable local
«

IF 'opc==1'
THEN "Cuantos liquidos
hay?" { { "Uno" 1 } { "Dos" 2
} } 1 CHOOSE
IF
THEN ->opc2 ; ’opc2’ es variable local
«
; ‘<< >>’ subprograma interno
IF 'opc2==1'
THEN "Calculo de
Fcg" { { "Po:" "Presion sobre
liquidos" } { "A:" "Area de
la superficie (m2)" } {"‘1:"
"Peso especifico (kgf/m3)" }
{ "h1:" "altura del liquido
(m)" } } 2 { } { 0 0 1000 0 }
INFORM
IF
THEN OBJ-> DROP
 P A G h '(G*h+P)*A' EVAL ; esta línea contiene texto escrito enModo Algebraico (‘ ’)
END
END
IF 'opc2==2'
THEN "Calculo de
Fcg" { { "Po:" "Presion sobre
liquidos" } { "A:" "Area de
la superficie (m2)" } { "‘1:"
"Peso especifico 1 (kgf/m3)"
} { "h1:"...
tracking img