Proyecto en PSeInt _Calculadora--y--calcula tu nivel de inteligencia.

-

                          PROYECTO DE ALGORITMO - PSEINT

                                                            
                                                       Proyecto calculadora


CALCULADORA

La calculadora nos sirve para realizar prácticamente cualquier tipo de cálculos, con ella podemos calcular, ecuaciones un tanto simples como lo es la suma, resta, multiplicación, división, etc. este tipo de calculadoras no son muy útiles en la vida cotidiana, pero si son extremadanamente necesarias cuando tu trabajo o estudios están relacionados con algún tipo de ingeniería, son las elegidas por excelencia a la hora de realizar este tipo de estudios.  



Pasos de creación

Como primer paso: definiremos las opciones de "n1 -como primer valor " y "n2 como segundo valor.

Utilizaremos repetir para que repita todas y cada una de las opciones del menú que usted desee crear, incluso para mejorar y que no se repita una y otra vez el menú colocamos limpieza de pantalla así parara su repetición constante.
   

continuaremos colocando en cada una de las opciones las variables según el orden que le allá colocado al menú de su calculadora:

ejemplo:

Si decidió iniciar con la suma:

Escribir 'insertar el primer numero'
Leer n1
Escribir 'insertar el segundo numero'
Leer n2
r <- n1+n2
Escribir n1, '+', n2, '=', r

De una manera casi similar continuaremos con las siguientes operaciones.

Lo cual la división es un caso especial ya que no se puede dividir entre "0" 
 
utilizaremos SI___ Entonces para que cada ves que se coloque "0"  salte un mensaje que diga   'no se puede dividir entre 0'  y SiNo , es decir, si esa condición no se cumple  el programa seguirá de forma normal con su ejecución.

Ejemplo:
Escribir 'insertar el primer numero '
Leer n1
Escribir 'insertar el segundo numero'
Leer n2
Si n2=0 Entonces
Escribir 'no se puede dividir entre 0'
SiNo
r <- n1/n2
Escribir n1, '/', n2, '=', r
FinSi


Al finalizar cada una de las variables se procederá a mostrarles las cantidades que se decidió a calcular.


Para finalizar si la cantidad de opciones que usted coloco inicialmente no existe coloque:

De Otro Modo:
Escribir 'opcion inexistente'

CODIGO : 

Algoritmo calculadora

// programa que se asemeje a una calculadora 

// creador joaquin tobar 

Repetir

Limpiar Pantalla

Escribir ' MENU '

Escribir '1.suma'

Escribir '2.resta'

Escribir '3.multiplicacion'

Escribir '4.divicion'

Escribir '5.tangente"

Escribir '6.seno'

Escribir '7.coseno'

Escribir '8.potencia'

Escribir '9.raiz'

Escribir '10.porcentaje'

Escribir '11. convercion km a m'

Escribir '12.salir'

Escribir 'insertar la opcion que desee aplicar'

Leer op

Según op Hacer

1:

Escribir ' SUMA :'

Escribir 'insertar el primer numero'

Leer n1

Escribir 'insertar el segundo numero'

Leer n2

r <- n1+n2

Escribir n1, '+', n2, '=', r

2:

Escribir ' RESTA : '

Escribir 'insertar el primer numero'

Leer n1

Escribir 'insertr el segundo numero'

Leer n2

r <- n1-n2

Escribir n1, '-', n2, '=', r

3:

Escribir ' MULTIPLICACION :'

Escribir 'insertar el primer numero '

Leer n1

Escribir 'insertar el segundo numero'

Leer n2

r <- n1*n2

Escribir n1, '*', n2, '=', r

4:

Escribir ' DIVICION :'

Escribir 'insertar el primer numero '

Leer n1

Escribir 'insertar el segundo numero'

Leer n2

Si n2=0 Entonces

Escribir 'no se puede dividir entre 0'

SiNo

r <- n1/n2

Escribir n1, '/', n2, '=', r

FinSi

5:

Escribir 'HALLAR LA TANGENTE DEL ANGULO :'

Escribir 'insertar cateto opuesto '

Leer cat_op

Escribir 'insertar cateto adyacente '

Leer cat_ad

h <- cat_op^2+cat_ad^2

h <- raiz(h)

Escribir 'la hipotenusa es: ', h

6:

Escribir 'HALLAR EL SENO DEL ANGULO :'

Escribir 'insertar cateto opuesto '

Leer cat_op

Escribir 'insertar hipotenusa'

Leer h

cat_ad <- raiz(cat_ad)

cat_ad <- cat_op^2-h^2

Escribir 'cateto adyacente es: ', cat_ad

7:

Escribir 'HALLAR EL COSENO DEL ANGULO :'

Escribir 'insertar cateto adyacente  '

Leer cat_ad

Escribir 'insertar hipotenusa '

Leer h

cat_op <- raiz(cat_op)

cat_op <- cat_ad^2-h^2

Escribir 'el cateto opuesto es:', cat_op

8:

Escribir 'POTENCIA :'

Escribir 'insertar la base '

Leer n1

Escribir 'insertar el exponente'

Leer n2

r <- n1^n2

Escribir n1, '^', n2, '=', r

9:

Escribir 'HALLAR LA RAIZ CUADRADA'

Escribir 'insertar un numero '

Leer n1

r <- raiz(n1)

Escribir 'raiz = ', r

10:

Escribir 'HALLAR EL PORCENTAJE :'

Escribir 'insertar un numero'

Leer n1

r <- n1/100

Escribir n1, '%', '=', r

11:

Escribir 'conversión de kilómetros a metros'

Escribir 'insertar kilómetros '

Leer n1

r <- n1*1000

Escribir 'los metros :', r

12:

De Otro Modo:

Escribir 'opción inexistente'

FinSegún

Escribir 'presione una opción para continuar o para salir '

Esperar Tecla

Hasta Que op=12

Escribir 'gracias x su atención'

FinAlgoritmo


Ejecución:

 
___________________________________________________________________________________

CALCULO DE  INTELIGENCIA 

 



Calcula tu inteligencia

 Este programa esta diseñado para calcular tu nivel de inteligencia basándose en el cantidad  de preguntas que puedas responder correctamente.
 




CODIGO:

Algoritmo  Preguntas_de_inteligencia 
//elaborado por joaquin tobar terreros 
t <- 1;
Mientras t = 1 hacer
Borrar Pantalla;
Escribir "****CONOCE TU NIVEL DE INTELIGENCIA****"
Escribir "1. INICIO"
Escribir "2. Salir"
Leer men;
Si (men = 1)Entonces
Borrar Pantalla
r <- 1;
Mientras r = 1 Hacer
corr <-0
inc <- 0
Borrar Pantalla
Escribir "---CULTURA GENERAL---"
Escribir "---PRIMERA PREGUNTA---"  
resp <- azar(5)+1
Si (resp = 1)Entonces
Escribir "¿Cual de las siguientes opciones contiene uno de los 5 tipos de sabores primarios..."
Escribir "1. Amargo"
Escribir "2. picante"
Escribir "3. Bainilla"
Escribir "4. Fresa"
leer res
Si (res = 1)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 2)Entonces
Escribir "¿cual es el lugar mas frio de la tierra?..."
Escribir "1. Mi casa"
Escribir "2. China"
Escribir "3. Rusia"
Escribir "4.La Antartida"
leer res
Si (res = 4)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 3)Entonces
Escribir "¿Quien escribio la Odisea?"
Escribir "1. Homero"
Escribir "2. Carlitos"
Escribir "3. Thor"
Escribir "4.Miguel de Cervantes. "
leer res;
Si (res = 1)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 4)Entonces
Escribir "¿En que país nació Gabriel García Márquez?:"
Escribir "1.Venezuela"
Escribir "2. Colombia"
Escribir "3. México"
Escribir "4. Chile"
leer res
Si (res = 2)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 5)Entonces
Escribir "¿Qué equipo elimino a Brasil el mundial pasado?"
Escribir "1. Colombia"
Escribir "2. Argentina"
Escribir "3. Croacia "
Escribir "4. Holanda"
leer res
Si (res = 3)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Escribir "Presiona ENTER para continuar"
Leer cont
Escribir ""
Escribir "---HISTORIA---"
Escribir "---SEGUNDA PREGUNTA---"
resp <- azar(5)+1
Si (resp = 1)Entonces
Escribir "¿Cundo se invento la escritura?"
Escribir "1. En IV milenio a.C."
Escribir "2. Ayer"
Escribir "3. Hace 200 mil años "
Escribir "4. ninguna de las anteriores "
leer res;
Si (res = 1)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 2)Entonces
Escribir "¿Como se llamaban los gobernantes del antiguo Egipto? "
Escribir "1. Alcaldes"
Escribir "2. Presidentes"
Escribir "3. Faraones"
Escribir "4. Lider"
leer res
Si (res = 3)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 3)Entonces
Escribir "¿Cual de estos emperadores fue alumno del filosofo griego Aristoteles? "
Escribir "1. Trajano"
Escribir "2. Alejandro Magno"
Escribir "3. Peso Pluma"
Escribir "4. Carlomagno "
leer res
Si (res = 2)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 4)Entonces
Escribir "¿ Quien fue el primer emperador romano que se hizo cristiano?"
Escribir "1. Corintios"
Escribir "2. Arquimedes"
Escribir "3. Arthuro"
Escribir "4. Constantino I, el grande "
leer res
Si (res = 4)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 5)Entonces
Escribir "¿En que parte del mundo se invento la polvora "
Escribir "1. Francia"
Escribir "2. China"
Escribir "3. Grecia"
Escribir "4. Alemania"
leer res;
Si (res = 2)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Escribir "Presiona ENTER para continuar"
Leer cont
Escribir ""
Escribir "---Matematicas---"
Escribir "---Tercera Pregunta---"
resp <- azar(5)+1
Si (resp = 1)Entonces
Escribir "Si una persona tiene 5 dedos en una mano y 5 en la otra,¿cuantos dedos tiene en total: ?";
Escribir "1. 10 dedos"
Escribir "2. 20 dedos"
Escribir "3. 8 dedos"
Escribir "4. 2 manos"
leer res
Si (res = 1)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 2)Entonces
Escribir "si un tren de 12 pasajeros viaja a 40 km/h ¿cuantos pasajeros tiene el tren?"
Escribir "1. 25"
Escribir "2. 11"
Escribir "3. 3"
Escribir "4. 12"
leer res;
Si (res = 4)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta COMPAÑER@ JAJAJAJAJA :)"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 3)Entonces
Escribir "¿si pablo tiene una manzana y 5 amigos cuantos cortes tiene que hacerle pablo a la manzana?"
Escribir "1. 5 cortes"
Escribir "2. 1 cortes"
Escribir "3. 4 cortes"
Escribir "4. 3 cortes"
leer res
Si (res = 4)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 4)Entonces
Escribir "¿Cuánto es 2+8*10-12/1(-24+26)?"
Escribir "1. 396"
Escribir "2. 76"
Escribir "3. 35"
Escribir "4. Ninguna de las anteriores"
leer res
Si (res = 3)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 5)Entonces
Escribir "¿cuanto es (4+6)*2^2/5 :?"
Escribir "1. 8"
Escribir "2. 40"
Escribir "3. 2"
Escribir "4. 20"
leer res
Si (res = 1)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Escribir "Presiona ENTER para continuar"
Leer cont
Escribir "---BIOLOGIA---"
Escribir "---Cuarta Pregunta---"
resp <- azar(5)+1
Si (resp = 1)Entonces
Escribir "¿Cual es el gueso mas largo de nuestro cuerpo :"
Escribir "1. femur"
Escribir "2. esternon"
Escribir "3. perone"
Escribir "4. rodilla"
leer res
Si (res = 1)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 2)Entonces
Escribir "¿Que organo almacena la orina:"
Escribir "1. riñones"
Escribir "2. vejiga"
Escribir "3. corazon"
Escribir "4. pulmones"
leer res
Si (res = 2)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 3)Entonces
Escribir "¿Que transporta el oxigeno a traves de la sangre?"
Escribir "1. globulos blancos"
Escribir "2. globulos rojos"
Escribir "3. electricidad"
Escribir "4. ninguna de las anteriores"
leer res
Si (res = 2)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 4)Entonces
Escribir "¿Quien hace la fotosintesis "
Escribir "1. nuves"
Escribir "2. animales"
Escribir "3. ser humano"
Escribir "4. plantas"
leer res;
Si (res = 4)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 5)Entonces
Escribir "Cual de las siguientes es un estado de la materia  "
Escribir "1. terestre"
Escribir "2. gas"
Escribir "3. solar"
Escribir "4. ninguna de las anteriores"
leer res
Si (res = 2)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Escribir "Presiona ENTER para continuar"
Leer cont
Escribir "--------ARTE-------"
Escribir "---Quinta Pregunta---"
resp <- azar(5)+1
Si (resp = 1)Entonces
Escribir "¿Quién pintó la famosa obra antibelicista Guernica ?"
Escribir "1. Sandro Botticelli"
Escribir "2. Miguel Ángel"
Escribir "3. Picasso"
Escribir "4. Caravaggio"
leer res
Si (res = 3)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 2)Entonces
Escribir "¿Quién pintó La última cena durante un período de tres años entre 1495 y 1498?"
Escribir "1. Johannes Vermeer"
Escribir "2. Rembrandt "
Escribir "3. Leonardo da Vinci"
Escribir "4. ninguna de las anteriores"
leer res
Si (res = 3)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 3)Entonces
Escribir "¿Como firmaba Pablo Ruiz Picasso sus pinturas?"
Escribir "1. Pablo Picasso"
Escribir "2. P. Picasso"
Escribir "3. Pablo Ruiz Picasso"
Escribir "4. Picasso"
leer res
Si (res = 4)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Si (resp = 4)Entonces
Escribir "¿Cuál de estos pintores no es italiano?"
Escribir "1. Caravaggio"
Escribir "2. Leonardo da Vinci"
Escribir "3. Tiziano"
Escribir "4. Pablo Picasso"
leer res;
Si (res = 4)Entonces
corr <- corr +1;
Escribir "Tu respuesta es correcta";
Sino inc <- inc +1;
Escribir "Tu respuesta es incorrecta";
FinSi
FinSi
Si (resp = 5)Entonces
Escribir "Qué artista pintó El nacimiento de Venus"
Escribir "1. Botticelli"
Escribir "2. lippi"
Escribir "3. Tiziano"
Escribir "4. masaccio"
leer res;
Si (res = 1)Entonces
corr <- corr +1
Escribir "Tu respuesta es correcta"
Sino inc <- inc +1
Escribir "Tu respuesta es incorrecta"
FinSi
FinSi
Escribir " Presiona ENTER para conocer tus resultados finales"
Leer cont
porc <- (corr/5) *100
Borrar Pantalla;
Escribir "********** Clificacion **********"
Escribir ""
Escribir "Respuestas correctas: ",corr
Escribir "Respuestas incorrectas: ",inc
Escribir "Respondiste correctamente el ",porc, "% de las preguntas"
Si (porc >=80)y(porc<100)Entonces
Escribir "Tu resultado es Bueno"
FinSi
Si (porc >=60)y(porc<80)Entonces
Escribir "Tu resultado es Aceptable"
FinSi
Si (porc >=40)y(porc<60)Entonces
Escribir "Tu resultado es Malo"
FinSi
Si (porc >=20)y(porc<40)Entonces
Escribir "Tu resultado es Pésimo"
FinSi
Si (porc >=0)y(porc<20)Entonces
Escribir "Superaste el record de la persona mas tonta..sin ofender XD :)"
FinSi
Escribir "--------------------------------------------------------"
Escribir "";
Escribir "Si deseas intentarlo otra vez digita 0 de lo contario digite otro numero";
Leer deci;
Si (deci = 0 )Entonces
r <- 1;
Sino r <- 2;
FinSi
Borrar Pantalla;
FinMientras
FinSi
Si men = 2 Entonces
t <- 2;
FinSi
FinMientras

Escribir "*******************************************";
Escribir "       GRACIAS POR SU ATENCION       "
Escribir "*******************************************";
Escribir "           Presione para salir";
FinAlgoritmo


Ejecución: 



 



Comentarios

Publicar un comentario

Entradas populares de este blog

Programas en PseInt - Cajero Automático y Calculo de temperaturas

-
Imagen
1. Programa que funciona como cajero automático. El primer programa que les presento es un seudocódigo hecho en PSeInt el cual funciona como cajero automático. Permitiendo al usuario ingresar: - su numero de cuenta y contraseña  -método de pago entre tarjeta o efectivo - tipo de tarjeta entre debito y crédito Asi mismo, permite conocer el saldo existente en la cuenta, retirar la cantidad de dinero ingresado y realizar depósitos. Al final del proceso, puede generar un comprobante. Pseudocódigo: Proceso Banco Definir numcuenta Como Caracter     Definir contrasena Como Caracter     Definir intentos Como Entero     Repetir Escribir "Ingrese su numero de cuenta:"         Leer numcuenta         Escribir "Ingrese su contraseña:"         Leer contrasena intentos = intentos + 1         Si numcuenta == "021605" Y contrasena == "mmm616" Entonces         ...
Leer más

Proyecto Algoritmos-Programas en PSeInt

-
Imagen
                                                  PROYECTO ALGORITMOS PROGRAMAS EN PSEINT Desarrollo de Proyecto con PSeInt: Calculadora de Peso y Juego de Trivia   ¿Alguna vez te has preguntado cómo utilizar puedes la programación para resolver problemas del mundo real y al mismo tiempo hacer que el aprendizaje sea divertido? En este blog, exploraremos dos proyectos desarrollados en PSeInt, una herramienta de programación. Aprenderemos a crear una calculadora de pesos y un juego de trivia utilizando esta poderosa herramienta.   Calculadora de pesos Descripción del Proyecto: La calculadora de pesos es un programa simple pero útil que te permite calcular el peso de un objeto en diferentes planetas. Este proyecto es perfecto para aprender conceptos de programación como variables, entradas y salidas, operaciones matemáticas...
Leer más