Tarea De Magnetismo
E P S
A, B C=A+B C
1°INICIO
2°LEER “CALCULAR LA SUMA DE 2 NUMEROS
3°LEER EL VALOR A
4°LEER EL VALOR B
5°REALIZAR LA OPERACIÓN C=A+B
6°IMPRIMIR”LA SUMA ES”C
7°FIN
A
INICIO
C=A+B
B
FIN
CRealizar la suma de 2 números
TECLE EL VALOR DE A
TECLE EL VALOR DE B
LA SUMA DE LOS NUMERO S ES:
SALIR
LIMPIAR
ACEPTAR
LABEL 1 TEXT 1-
NOMBRE: LBL TITULO NOMBRE: TXT A
CAPTION: CALCULAR LA SUMA DE 2 NUMEROS TEXT:” “
LABEL 2- TEXT 2-
NOMBRE: LBL ANOMBRE: TXT B
CAPTION: TECLE EL VALOR DE A TEXT: “ ”
LABEL 3- TEXT 3-
NOMBRE: LBL B NOMBRE: TXT CCAPTION: TECLE EL VALOR DE B TEXT:
LABEL 4-
NOMBRE: LBL RESULTADO
CAPTION: LA SUMA DE LOS NUMEROS ES
CAMAND 1 COMAND 2 COMAND 3
NOMBRE: CMD ACEPTAR NOMBRE: CMD LIMPIAR NOMBRE: CMD SALIR
CAPTION: ACEPTAR CAPTION: LIMPIAR CAPTION: SALIR
PRIVATE SUB CMD ACEPTAR_CLICK ()
DIM A ASINTEGER, B AS INTEGER, C AS INTEGER
A= VAL (TXTA)
B= val (TXTB)
C= (A+B)
TXT=STR(C)
END
END SUB
CMD LIMPIAR_CLICK ()
TXTA=” ”
TXT B= “ ”
TXT C =” “
CMD SLIR _CLICK ()
END
END SUB
CALCULAR EL AREA DE UN TRIANGULO
E P S
B, HAT=B*H/2 AT
1°INICIO
2° LEER “CALCULAR EL AREA DE UN TRIANGULO”
3° IMPRIME “TECLE EL VALOR DE BASE” B
4° IMPRIME “TECLE EL VALOR DE ALTURA” H
5° REALIZA LA OPERACIÓN B*H/2
6°IMPRIME “EL RESULTADO ES” AT
7° FIN MSG
INICIO
B
H
AT=B*H/2
AT
FIN
CALCULAR EL AREA DE UN TRIANGULO
INTRODUSCA LA BASEINTRODUSCA LA ALTURA
EL AREA ES:
SALIR
LIMPIAR
ACEPTAR
LABEL 1 TEXT 1-
NOMBRE: LBL TITULO NOMBRE: TXT B
CAPTION: CALCULAR EL AREA DE UN TRIANGULO TEXT:” “
LABEL 2- TEXT 2-
NOMBRE: LBL BASE NOMBRE: TXT HCAPTIONINTRODUSCA LA BASE TEXT: “ ”
LABEL 3- TEXT 3-
NOMBRE: LBL ALTURA NOMBRE: TXT AT
CAPTION: INTRODUSCA LA ALTURA TEXT:
LABEL 4-
NOMBRE: LBLRESULTADO
CAPTION:EL AREA ES
CAMAND 1 COMAND 2 COMAND 3
NOMBRE: CMD ACEPTAR NOMBRE: CMD LIMPIAR NOMBRE: CMD SALIR
CAPTION: ACEPTAR CAPTION: LIMPIAR CAPTION: SALIR
PRIVATE SUB CMD ACEPTAR_CLICK ()
DIM B AS ITEGER, H AS INTEGER, AT AS INTEGER
B=VAL (TXT BASE)
H=VAL (TXT ALTURA)
AT= (B*H/2)
TXT AT=STR (AT)
END
END SUBPRIVATE SUB CMD LIMPIAR_CLICK ()
TXTA=” ”
TXT B= “ ”
TXT C =” “
Private sub CMD SLIR _CLICK ()
END
END SUB
REALIZAR LA DIVICION DE 2 NUMEROS
E P S
N1, N2 D=N1/NH2 D
1°INICIO
2°LEER “CALCULAR LA DIVICIONDE 2...
Regístrate para leer el documento completo.