Tarea De Magnetismo

La suma de 2 números

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...