Programa que calcula las Áreas
El programa de calculo de figuras geométricas de sus áreas correspondientes
.jpg)
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
Algoritmo _Areas_Geometricas
//Elaborado por :Leonardo Cabezas Briones
Definir a, b, c, h Como Numero
Definir salir Como Logico
Definir opc Como Entero
salir <- Falso
Repetir
Escribir "---------------------"
Escribir " MENÚ"
Escribir "---------------------"
Escribir "(1) Área del triángulo"
Escribir "---------------------"
Escribir "(2) Área del cuadrado"
Escribir "---------------------"
Escribir "(3) Área del rectángulo"
Escribir "---------------------"
Escribir "(4) Área del círculo"
Escribir "---------------------"
Escribir "(5) Area del trapecio"
Escribir "---------------------"
Escribir "(6) Area del octagono"
Escribir "---------------------"
Escribir "(7) Salir"
Escribir "---------------------"
Escribir "Elija una opción (1 al 7)...." Sin Saltar
Leer opc
Borrar Pantalla
Segun opc Hacer
1:
Triangulo
teclayBorrar
2:
Cuadrado
teclayBorrar
3:
Rectangulo
teclayBorrar
4:
Circulo
teclayBorrar
5:
Trapecio
teclayBorrar
6:
Octagono
teclayBorrar
7:
Borrar Pantalla
salir <- Verdadero
De Otro Modo:
Escribir "Opción incorrecta. Inténtelo de nueo"
teclayBorrar
FinSegun
Hasta Que salir
FinAlgoritmo
Funcion teclayBorrar
Escribir "Pulse una tecla para continuar...."
Esperar Tecla
Borrar Pantalla
FinFuncion
Funcion Triangulo
Definir b, h Como Numero
Escribir "Ingresar Base: " Sin Saltar
Leer b
Escribir "Ingresar Altura: " Sin Saltar
Leer h
Escribir "Ingresar Área del triángulo = ", (b*h)/2
FinFuncion
Funcion Cuadrado
Definir a Como Numero
Escribir "Ingresar Lado: " Sin Saltar
Leer a
Escribir "Ingresar Área del cuadrado = ", a*a
FinFuncion
Funcion Rectangulo
Definir b, h Como Numero
Escribir "Base: " Sin Saltar
Leer b
Escribir "Altura: " Sin Saltar
Leer h
Escribir "Área del rectángulo = ", b*h
FinFuncion
Funcion Circulo
Definir r Como Numero
Escribir "Ingresar Radio: " Sin Saltar
Leer r
Escribir "Ingresar Área del círculo = ", 3.14*(r^2)
FinFuncion
Funcion Trapecio
definir bmy, bmr, al, a Como Real
Escribir "Ingresar base mayor:" Sin Saltar
Leer bmy
Escribir "Ingresar base menor:"Sin Saltar
Leer bmr
Escribir "Ingresar altura del trapecio:"Sin Saltar
Leer al
a <- (bmy + bmr) / 2 * al
Escribir "El área del trapecio es:", a
Fin Funcion
Funcion Octagono
Definir l, ap, p, a Como Real
Escribir "Ingrese la longitud de un lado del octágono:"Sin Saltar
Leer l
Escribir "Ingrese la apotema del octágono:"Sin Saltar
Leer ap
p <- l * 8
a <- p * ap / 2
Escribir "El área del octágono es:", a
Fin Funcion
〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
No hay comentarios:
Publicar un comentario