Lenguajes de Programación
Si buscas
hosting web,
dominios web,
correos empresariales o
crear páginas web gratis,
ingresa a
PaginaMX
Por otro lado, si buscas crear códigos qr online ingresa al Creador de Códigos QR más potente que existe
PROGRAMA QUE CALCULA ÁREAS Y PERIMETROS
[Este programa utiliza rutinas while-wend, funciones gosub, validaciones con select case, y ciclos de error con for-next]
DESCARGA EL CODIGO FUENTE [.BAS] http://www.megaupload.com/?d=ZZ99X42U
[Este programa utiliza rutinas while-wend, funciones gosub, validaciones con select case, y ciclos de error con for-next]
DESCARGA EL CODIGO FUENTE [.BAS] http://www.megaupload.com/?d=ZZ99X42U
DESCARGA EL ARCHIVO EJECUTABLE (.EXE) http://www.megaupload.com/?d=FTWONOMD
REM BY JOSE LAUREANO
REM BY JOSE LAUREANO
X$ = "S"
WHILE X$ = "S"
Z$ = "X"
WHILE Z$ = "X"
CLS
LOCATE 2, 40: PRINT "MENU"
LOCATE 4, 36: PRINT "1.- TRIANGULO"
LOCATE 5, 40: PRINT "1) AREA"
LOCATE 6, 40: PRINT "2) PERIMETRO"
LOCATE 7, 36: PRINT "2.- CUADRADO"
LOCATE 8, 40: PRINT "1) AREA"
LOCATE 9, 40: PRINT "2) PERIMETRO"
LOCATE 10, 36: PRINT "3.- TRAPECIO"
LOCATE 11, 40: PRINT "1) AREA"
LOCATE 12, 40: PRINT "2) PERIMETRO"
LOCATE 13, 36: PRINT "4.- RECTANGULO"
LOCATE 14, 40: PRINT "1) AREA"
LOCATE 15, 40: PRINT "2) PERIMETRO"
LOCATE 16, 36: PRINT "5.- ROMBO"
LOCATE 17, 40: PRINT "1) AREA"
LOCATE 18, 40: PRINT "2) PERIMETRO"
LOCATE 19, 36: PRINT "6.- SALIDA"
LOCATE 21, 36: INPUT "¨CUAL ES SU OPCION"; RESP
CLS
SELECT CASE RESP
CASE 1
LOCATE 2, 36: PRINT "TRIANGULO"
LOCATE 4, 35: PRINT "1) AREA"
LOCATE 5, 35: PRINT "2) PERIMETRO"
LOCATE 9, 20: INPUT "SELECCIONE UN INCISO"; INC
SELECT CASE INC
CASE 1
CLS
LOCATE 2, 25: PRINT "AREA DEL TRIANGULO"
LOCATE 7, 25: INPUT "¨CUAL ES LA BASE DEL TRIANGULO"; BAS
LOCATE 9, 25: INPUT "¨CUAL ES LA ALTURA DEL TRIANGULO"; ALT
LET SUBT = BAS * ALT
LET AREA = SUBT / 2
LOCATE 14, 25: PRINT "EL AREA DEL TRIANGULO ES:"; AREA
GOSUB BMENU
CASE 2
CLS
LOCATE 2, 25: PRINT "PERIMETRO DEL TRIANGULO"
LOCATE 7, 25: INPUT "¨CUAL ES LA MEDIDA DEL PRIMER LADO"; LAD1
LOCATE 9, 25: INPUT "¨CUAL ES LA MEDIDA DEL SEGUNDO LADO"; LAD2
LOCATE 11, 25: INPUT "¨CUAL ES LA MEDIDA DEL TERCER LADO"; LAD3
LET SUBT = LAD1 + LAD2
LET PER = SUBT + LAD3
LOCATE 14, 25: PRINT "EL PERIMETRO DEL TRIANGULO ES:"; PER
GOSUB BMENU
CASE ELSE
GOSUB ERRORB
END SELECT
CASE 2
LOCATE 2, 36: PRINT "CUADRADO"
LOCATE 4, 35: PRINT "1) AREA"
LOCATE 5, 35: PRINT "2) PERIMETRO"
LOCATE 9, 20: INPUT "SELECCIONE UN INCISO"; INC
SELECT CASE INC
CASE 1
CLS
LOCATE 2, 25: PRINT "AREA DEL CUADRADO"
LOCATE 7, 25: INPUT "¨CUAL ES LA BASE DEL CUADRADO"; BAS
LOCATE 9, 25: INPUT "¨CUAL ES LA ALTURA DEL CUADRADO"; ALT
LET AREA = BAS * ALT
LOCATE 14, 25: PRINT "EL AREA DEL CUADRADO ES:"; AREA
GOSUB BMENU
CASE 2
CLS
LOCATE 2, 25: PRINT "PERIMETRO DEL CUADRADO"
LOCATE 7, 25: INPUT "¨CUAL ES LA MEDIDA DE LA BASE"; BAS
LOCATE 9, 25: INPUT "¨CUAL ES LA MEDIDA DE LA ALTURA"; ALT
LET SUB1 = BAS * 2
LET SUB2 = ALT * 2
LET PER = SUB1 + SUB2
LOCATE 14, 25: PRINT "EL PERIMETRO DEL CUADRADO ES:"; PER
GOSUB BMENU
CASE ELSE
GOSUB ERRORB
END SELECT
CASE 3
LOCATE 2, 36: PRINT "TRAPECIO"
LOCATE 4, 35: PRINT "1) AREA"
LOCATE 5, 35: PRINT "2) PERIMETRO"
LOCATE 9, 20: INPUT "SELECCIONE UN INCISO"; INC
SELECT CASE INC
CASE 1
CLS
LOCATE 2, 25: PRINT "AREA DEL TRAPECIO"
LOCATE 7, 25: INPUT "¨CUAL ES LA BASE MAYOR DEL TRAPECIO"; BASY
LOCATE 9, 25: INPUT "¨CUAL ES LA MASE MENOR DEL TRAPECIO"; MASM
LOCATE 11, 25: INPUT "¨CUAL ES LA ALTURA DEL TRAPECIO"; ALT
LET SUB1 = BASY + BASM
LET SUB2 = SUB1 * ALT
LET AREA = SUB2 / 2
LOCATE 14, 25: PRINT "EL AREA DEL TRAPECIO ES:"; AREA
GOSUB BMENU
CASE 2
CLS
LOCATE 2, 25: PRINT "PERIMETRO DEL TRAPECIO"
LOCATE 7, 25: INPUT "¨CUAL ES LA BASE MAYOR"; BASY
LOCATE 9, 25: INPUT "¨CUAL ES LA BASE MENOR"; BASM
LOCATE 11, 25: INPUT "¨CUAL ES LA MEDIDA DE ALGUN LADO (IZQ O DER)"; LAD
LET SUB1 = BASY + BASM
LET SUB2 = LAD * 2
LET PER = SUB1 + SUB2
LOCATE 14, 25: PRINT "EL PERIMETRO DEL CUADRADO ES:"; PER
GOSUB BMENU
CASE ELSE
GOSUB ERRORB
END SELECT
CASE 4
LOCATE 2, 36: PRINT "RECTANGULO"
LOCATE 4, 35: PRINT "1) AREA"
LOCATE 5, 35: PRINT "2) PERIMETRO"
LOCATE 9, 20: INPUT "SELECCIONE UN INCISO"; INC
SELECT CASE INC
CASE 1
CLS
LOCATE 2, 25: PRINT "AREA DEL RECTANGULO"
LOCATE 7, 25: INPUT "¨CUAL ES LA BASE DEL RECTANGULO"; BAS
LOCATE 9, 25: INPUT "¨CUAL ES LA ALTURA DEL RECTANGULO"; ALT
LET AREA = BAS * ALT
LOCATE 14, 25: PRINT "EL AREA DEL RECTANGULO ES:"; AREA
GOSUB BMENU
CASE 2
CLS
LOCATE 2, 25: PRINT "PERIMETRO DEL RECTANGULO"
LOCATE 7, 25: INPUT "¨CUAL ES LA MEDIDA DE LA BASE"; BAS
LOCATE 9, 25: INPUT "¨CUAL ES LA MEDIDA DE LA ALTURA"; ALT
LET SUB1 = BAS * 2
LET SUB2 = ALT * 2
LET PER = SUB1 + SUB2
LOCATE 14, 25: PRINT "EL PERIMETRO DEL RECTANGULO ES:"; PER
GOSUB BMENU
CASE ELSE
GOSUB ERRORB
END SELECT
CASE 5
LOCATE 2, 36: PRINT "ROMBO"
LOCATE 4, 35: PRINT "1) AREA"
LOCATE 5, 35: PRINT "2) PERIMETRO"
LOCATE 9, 20: INPUT "SELECCIONE UN INCISO"; INC
SELECT CASE INC
CASE 1
CLS
LOCATE 2, 25: PRINT "AREA DEL ROMBO"
LOCATE 7, 25: INPUT "¨CUAL ES LA DIAGONAL MAYOR DEL ROMBO"; DIAY
LOCATE 9, 25: INPUT "¨CUAL ES LA DIAGONAL MENOR DEL ROMBO"; DIAM
LET SUBT = DIAM * DIAY
LET AREA = SUBT / 2
LOCATE 14, 25: PRINT "EL AREA DEL RECTANGULO ES:"; AREA
GOSUB BMENU
CASE 2
CLS
LOCATE 2, 25: PRINT "PERIMETRO DEL ROMBO"
LOCATE 7, 25: INPUT "¨CUAL ES LA MEDIDA DE UN LADO DEL ROMBO"; LAD
LET PER = LAD * 4
LOCATE 10, 25: PRINT "EL PERIMETRO DEL RECTANGULO ES:"; PER
GOSUB BMENU
CASE ELSE
GOSUB ERRORB
END SELECT
CASE 6
END
END SELECT
ERRORB:
CLS
FOR Z = 1 TO 150000
LOCATE 23, 20: PRINT "RESPUESTA NO VALIDA, FAVOR DE REVISAR OPCIONES"
NEXT Z
WEND
BMENU:
LOCATE 19, 14: PRINT "PRESIONE LA TECLA ESCAPE (ESC) PARA REGRESAR AL MENU"
DO
LOOP UNTIL INKEY$ = CHR$(27)
WEND
Tu Sitio Web Gratis
© 2024 Lenguajes de Programación10030
Agregar un comentario