CALCULADORA BASICA

 CALCULADORA BASICA HECHA EN PSEINT 

ESTE PROGRAMA CONSISTE EN UNA CALCULADORA QUE PUEDE SUMAR, RESTAR, DIVIDIR, MULTIPLICACAR, SACAR EL LOGARITMO NATURAL DE UN NUMERO, SACAR LA RAIZ CUADRADA Y CUBICA, CALCULAR EL FACTORIAL DE UN NUMERO Y SACAR EL RESULTADO DE UN NUMERO BASE CON SU POTENCIA

Pseudocodigo:

Algoritmo CALCULADORA_BASICA

// UNIVERSIDAD TECNICA ESTATAL DE QUEVEDO

// MARLON ESTEIN GÓMEZ BRAVO

// ESTE PROGRAMA ES TIPO CALCULADORA 

Escribir '_______MENU_______'

Escribir ' 1)   SUMA'

Escribir ' 2)   RESTA'

Escribir ' 3)   DIVISION'

Escribir ' 4)   MULTIPLICACION'

Escribir ' 5)   LOGARITMO NATURAL'

Escribir ' 6)   RAIZ CUADRADA'

Escribir ' 7)   RAIZ CUBICA'

Escribir ' 8)   CALCULAR EL FACTORIAL DE UN NUMERO'

Escribir ' 9)   SACA EL RESULTADO DE UNA BASE Y LA POTENCIA'

Escribir Sin Saltar'INGRESA UN NUMERO DEL 1 AL 9'

Leer opcion

Si opcion>0 Entonces

Según opcion Hacer

1:

Escribir '_______SUMA_______'

Escribir 'INGRESE EL PRIMER NUMERO'

Leer NUM1

Escribir 'INGRESE EL SEGUNDO NUMERO'

Leer NUM2

RES <- NUM1+NUM2

Escribir 'LA SUMA DE ', NUM1, ' + ', NUM2, ' ES ', RES

2:

Escribir '_______RESTA_______'

Escribir 'INGRESE EL PRIMER NUMERO'

Leer NUM1

Escribir 'INGRESE EL SEGUNDO NUMERO'

Leer NUM2

RES <- NUM1-NUM2

Escribir 'LA RESTA DE ', NUM1, ' - ', NUM2, ' ES ', RES

3:

Escribir '_______DIVISION_______'

Escribir 'INGRESE EL PRIMER NUMERO'

Leer NUM1

Escribir 'INGRESE EL SEGUNDO NUMERO'

Leer NUM2

Si NUM2=0 Entonces

Escribir 'NO SE PUEDE DIVIDIR PARA 0 '

SiNo

RES <- NUM1/NUM2

Escribir 'LA DIVISION DE ', NUM1, ' / ', NUM2, ' ES ', RES

FinSi

4:

Escribir '_______MULTIPLICACION_______'

Escribir 'INGRESE EL PRIMER NUMERO'

Leer NUM1

Escribir 'INGRESE EL SEGUNDO NUMERO'

Leer NUM2

RES <- NUM1*NUM2

Escribir 'LA MULTIPLICACION DE ', NUM1, ' X ', NUM2, ' ES ', RES

5:

Escribir '_______LOGARITMOS NATURAL_______'

Escribir 'INGRESE UN NUMERO'

Leer NUM1

Si NUM1>0 Entonces

RES <- ln(NUM1)

Escribir 'EL LOGARITMO NATURAL DE ', NUM1, ' ES ', RES

SiNo

Escribir 'NO HAY LOGARITMOS MENORES QUE 0'

FinSi

6:

Escribir '_______RAIZ CUADRADA_______'

Escribir 'INGRESE UN NUMERO'

Leer NUM1

Si NUM1>-1 Entonces

RES <- RC(NUM1)

Escribir 'LA RAIZ CUADRADA DE ', NUM1, ' ES ', RES

SiNo

Escribir 'NO HAY RAIZ MENOS QUE 0'

FinSi

7:

Escribir '_______RAIZ CUBICA_______'

Escribir 'INGRESE EL PRIMER NUMERO'

Leer NUM1

Si NUM1>-1 Entonces

RES <- NUM1^(1/3)

Escribir 'LA RAIZ CUBICA DE ', NUM1, ' ES ', RES

SiNo

Escribir 'NO HAY RAIZ MENOS QUE 0'

FinSi

8:

Escribir '_______CALCULAR EL FACTORIAL DE UN NUMERO_______'

Definir n, x Como Entero

Definir fact Como Real

Escribir 'Ingrese un numero para calcular el factorial'

Leer n

fact <- 1

Si n<0 Entonces

Escribir ' El factorial del numero no exite'

SiNo

Si n=0 Entonces

Escribir 'El factorial del numero ', n, '! es: ', fact

SiNo

x <- 1

Mientras x<=n Hacer

fact <- fact*x

x <- x+1

FinMientras

Escribir 'El factorial del numero ', n, '! es: ', fact

FinSi

FinSi

9:

Escribir '_______SACAR EL RESULTADO DE UNA BASE Y LA POTENCIA_______'

Escribir 'INGRESE LA BASE'

Leer NUM1

Escribir 'INGRESE EL EXPONENTE '

Leer NUM2

RES <- NUM1^NUM2

Escribir ' ES IGUAL A ', RES

De Otro Modo:

Escribir 'VALORES FUERA DEL RANGO'

FinSegún

SiNo

Escribir "Solo numeros positivo"

FinSi

FinAlgoritmo

                                         EJEMPLOS DE DOS EJECUCIONES