Este algoritmo no solo alberga las operaciones básicas como son: suma, resta, multiplicación y división, sino también con funciones como:
- Áreas y perímetros
- Conversión de temperaturas
- Factorial
- Decimales a binarios
- Funciones
En el tercer opción podemos convertir una temperatura a otras.
El cuatro tiene la función de sacarle el factorial de un número y sus antecesores.
En la cuarta opción convertimos un número en binario y viceversa.
Y como ultima opción tenemos unas funciones de: número truncado, raíz cuadrada etc.
A continuación el algoritmo.
Funcion menu
Escribir ""
Escribir "************************************************"
Escribir " Bienvenidos a la calculadora "
Escribir "************************************************"
Escribir "Elija la función matemática que quiera realizar"
Escribir "1. Operaciónes básicas"
Escribir "2. Areás y perímetros"
Escribir "3. Converción de temperaturas"
Escribir "4. Factorial"
Escribir "5. Decimal y binario"
Escribir "6. Funciones"
Escribir "7. Salir"
Escribir ""
FinFuncion
Algoritmo calculadora
Escribir "*********************"
Escribir "| CALCULADORA |"
Escribir "|*******************|"
Escribir "| |"
Escribir "| |"
Escribir "| |"
Escribir "*********************"
repetir
menu
leer opcion
Segun opcion Hacer
1:
Escribir ""
Escribir "*********************"
Escribir "OPERACIONES BÁSICAS"
Escribir "1: Suma"
Escribir "2: Resta"
Escribir "3: Multiplicación"
Escribir "4: División"
Escribir ""
leer r
Segun r Hacer
1:
Escribir ""
Escribir "*********************"
Escribir "SUMA"
Escribir "Ingrese el primer número"
leer num1
Escribir "Ingrese el segundo número"
leer num2
suma= num1 + num2
Escribir "La suma es: ", suma
2:
Escribir ""
Escribir "*********************"
Escribir "RESTA"
Escribir "Ingrese el primer número"
leer num1
Escribir "Ingrese el segundo número"
leer num2
resta= num1 - num2
Escribir "La resta es: ", resta
3:
Escribir ""
Escribir "*********************"
Escribir "MULTIPLICACIÓN"
Escribir "Ingrese el primer número"
leer num1
Escribir "Ingrese el segundo número"
leer num2
multi= num1 * num2
Escribir "La multiplicación es: ", multi
4:
Escribir ""
Escribir "*********************"
Escribir "DIVISIÓN"
Escribir "Ingrese el primer número"
leer num1
Escribir "Ingrese el segundo número"
leer num2
div= num1 / num2
Escribir "La división es: ", div
De Otro Modo:
Escribir "Opción ingresada incorrecta"
Fin Segun
2:
Escribir ""
Escribir "*********************"
Escribir "ÁREAS Y PERÍMETROS DE FIGURAS"
Escribir "1. Cuadrado"
Escribir "2. Rectángulo"
Escribir "3. Triángulo"
Escribir "4. Círculo"
leer eleccion
Escribir "*********************"
Segun eleccion Hacer
1:
Escribir ""
Escribir "*********************"
Escribir "Área y perímetro del cuadrado"
Escribir "Ingrese el lado"
leer l
area= l^2
perimetro= l+l+l+l
Escribir "El área es: ", area
Escribir "El perímetro es: ", perimetro
2:
Escribir ""
Escribir "*********************"
Escribir "Área y perímetro del rectángulo"
Escribir "Ingrese la base"
leer b
Escribir "Ingrese la altura"
leer h
area= b*h
perimetro = b+b+h+h
Escribir "El área es: ", area
Escribir "El perímetro es: ",perimetro
3:
Escribir ""
Escribir "*********************"
Escribir "Área y perímetro del triángulo"
Escribir "Ingrese la base"
leer b
Escribir "Ingrese la altura"
leer h
Escribir "Ingrese el lado"
leer l
area= b*h/2
perimetro= l+l+b
Escribir "El área es: ", area
Escribir "El perímetro es: ",perimetro
4:
Escribir ""
Escribir "*********************"
Escribir "El área y perímetro del círculo"
Definir numpi Como Real
numpi= 3.1416
Escribir "Ingrese el radio"
leer radio
area= numpi * radio^2
perimetro= 2 * numpi* radio
Escribir "El área es: ", area
Escribir "El perímetro es: ",perimetro
De Otro Modo:
Escribir ""
Escribir "_____________________"
Escribir "*******ERROR*********"
Escribir "_____________________"
Fin Segun
3:
Escribir ""
Escribir "*********************"
Escribir "CONVERSIÓN DE TEMPERATURAS"
Definir t, c, k, f, ra Como Real
Definir seleccion Como Entero
Escribir "1. De Celsius a otras temperaturas"
Escribir "2. De Kelvin a otras temperaturas"
Escribir "3. De Fahrenheit a otras temperaturas"
Escribir "4. De Rankine a otras temperaturas"
Escribir "Elija una opción"
Leer seleccion
segun seleccion hacer
1, 2, 3, 4:
Escribir ""
Escribir "*********************"
Escribir "Introduzca el valor a convertir"
leer t
De Otro Modo:
Escribir"*********************"
Escribir "Lo siento, la opcción ingresada es inválida"
Escribir"*********************"
FinSegun
segun seleccion hacer
1:
Escribir ""
Escribir "*********************"
k = t + 273.15
f= (t * 9/5)+32
ra= (t+273.15) * 9/5
Escribir "En kelvin: ", k
Escribir "En Fahrenheit: ", f
Escribir "En Rankine: ", ra
2:
Escribir ""
Escribir "*********************"
c= t - 273.15
f= (t - 273.15) * 9/5 +32
ra= t * 9/5
Escribir "En Celsius: ", c
Escribir "En Fahrenheit: ", f
Escribir "En Rankine: ", ra
3:
Escribir ""
Escribir "*********************"
c= (t - 32) * 5/9
k= (t -32) *5/9 +273.15
ra= t + 459.67
Escribir "En Celsius: ", c
Escribir "En Kelvin: ", k
Escribir "En Rankine: ", ra
4:
Escribir ""
Escribir "*********************"
c= (t - 491.67) * 5/9
k= t * 5/9
f= t - 459.67
Escribir "En Celsius: ", c
Escribir "En Kelvin: ", k
Escribir "En Fahrenheit: ", f
FinSegun
4:
Escribir ""
Escribir "*********************"
Escribir "FACTORIAL"
Escribir "Ingrese un número para factorial"
Escribir "*********************"
leer num
fac= 1
si num >= 0 Entonces
si num >= 1 Entonces
Para i<-1 Hasta num Hacer
fac<-fac*i
Escribir "El factorial de " , i, " es ", fac
Fin Para
sino
Escribir "El factorial de 0 es: 1 "
FinSi
sino
Escribir "No exixten factoriales para negativos"
Escribir ""
Escribir "*********************"
FinSi
5:
Escribir ""
Escribir "*********************"
Escribir "DECIMALES Y BINARIOS"
Escribir "1. Decimales a binarios"
Escribir "2. Binarios a decimales"
leer res
Segun res Hacer
1:
Escribir ""
Escribir "*********************"
Escribir "Decimal a binario"
Definir al, binario, base, residuo como entero
base= 1
binario= 0
Escribir "Ingrese un número"
leer al
Mientras al > 0 Hacer
residuo = al MOD 2
binario = binario+residuo*base
al = trunc(al/2)
base = base* 10
FinMientras
Escribir "El número en binario es: ",binario
2:
Escribir ""
Escribir "*********************"
Escribir "Binario a decimal"
Definir x,n,decimal Como Entero
Definir bi Como Caracter
Escribir "Ingrese un número en binario"
leer n
bi= ConvertirATexto(n)
n = Longitud(bi)
x = 0
decimal = 0
Mientras n > 0 Hacer
si Subcadena(bi,n,n) == "1" Entonces
decimal = decimal + 2^x
FinSi
n = n - 1
x = x + 1
FinMientras
Escribir "El número bianrio es: ", decimal
De Otro Modo:
Escribir "*********************"
Escribir "Opción ingresada incorrecta"
Escribir "*********************"
Fin Segun
6:
Escribir ""
Escribir "*********************"
Escribir "FUNCIONES"
Escribir "1. Valor absoluto"
Escribir "2. Valor truncado"
Escribir "3. Valor redondeado"
Escribir "4. Raíz cuadrada"
Escribir "5. Logaritmo natural"
Escribir "*********************"
leer op
Segun op Hacer
1:
Escribir ""
Escribir "*********************"
Escribir "El valor absoluto de un número"
Escribir "Ingrese un número"
leer num
Escribir "Valor absoluto de ", num, " es: ", abs(num)
2:
Escribir ""
Escribir "*********************"
Escribir "EL Valor truncado de un número"
Escribir "Ingrese un número decimal"
definir num como real
leer num
Escribir "Valor truncado de ", num, " es: ", trunc(num)
3:
Escribir ""
Escribir "*********************"
Escribir "El valor redondeado de un número"
Escribir "Ingrese un número"
leer num
Escribir "Valor redondeado de ", num, " es: ", redon(num)
4:
Escribir ""
Escribir "*********************"
Escribir "La raíz cuadrada de un número"
Escribir "Ingrese un número"
leer num
Escribir "La raíz cuadrada de ", num, " es: ",raiz(num)
5:
Escribir ""
Escribir "*********************"
Escribir "El logaritmo natural de un número"
Escribir "Ingrese un número"
leer num
Escribir "El logaritmo natural de ", num, " es: ", ln(num)
De Otro Modo:
Escribir "*********************"
Escribir "Opción ingresada incorrecta"
Escribir "*********************"
Fin Segun
De Otro Modo:
Si opcion > 7 Entonces
Escribir "*********************"
Escribir "ELIJA UNA OPCION CORRECTA"
Escribir "*********************"
FinSi
FinSegun
Hasta Que opcion=7
Escribir "************************************************"
Escribir "MUCHAS GRACIAS POR UTILIZAR NUESTRA CALCULADORA"
Escribir "************************************************"
FinAlgoritmo
Comentarios
Publicar un comentario