Quiz (menú)

Hacer un programa que haga al usuario 5 preguntas sobre programacion, cada pregunta debe tener 4 opciones de respuesta, si el usuario escoge la respuesta incorrecta debe volverle a preguntar hasta que responda correctamente; pero si se equivoca más de 4 veces debe pasar a la siguiente pregunta. Por cada vez que se equivoque la nota del quiz debe bajar la nota 0.2 décimas, al final debe dar la calificacion.

__________________________________________________




Proceso Quiz
nota<-5;
cont<-0;
r<-0;
Mientras cont<4 Hacer
Escribir "I. Una constante es: ";
Escribir " ";
Escribir "1. un valor que puede ser alterado durante la ejecución de un programa.";
Escribir "2. un valor que no puede ser alterado durante la ejecución de un programa.";
Escribir "3. un valor que es diferente de cero";
Escribir "4. un valor que tiene contiene carácteres";
Escribir " ";
Escribir "Digite su respuesta";
Leer r;
Escribir " ";
Si r<>2 Entonces
nota<-nota-0.2;
cont<-cont+1;
Sino cont<-4;
FinSi
FinMientras
cont<-0;
Mientras cont<4 Hacer
Escribir "II. Una variable es: ";
Escribir " ";
Escribir "1. Un espacio reservado en la memoria que puede cambiar de contenido";
Escribir "   a lo largo de la ejecución de un programa.";
Escribir "2. Es la parte con la que se finaliza un programa";
Escribir "3. Es una linea de código que contiene solo datos de tipo boleano";
Escribir "4. Es una cadena de datos numéricos";
Escribir " ";
Escribir "Digite su respuesta";
Leer r;
Escribir " ";
Si r<>1 Entonces
nota<-nota-0.2;
cont<-cont+1;
Sino cont<-4;
FinSi
FinMientras
cont<-0;
Mientras cont<4 Hacer
Escribir "III. Un Pseudocódigo es: ";
Escribir " ";
Escribir "1. Un código necesario para poder hacer cualquier programa";
Escribir "2. Lenguaje de programación para desarrollar aplicaciones Android";
Escribir "3. Un lenguaje artificial e informal útil para el desarrollo de algoritmos. ";
Escribir "4. El conjunto de pasos ordenados y finitos para solucionar un problema";
Escribir " ";
Escribir "Digite su respuesta";
Leer r;
Escribir " ";
Si r<>3 Entonces
nota<-nota-0.2;
cont<-cont+1;
Sino cont<-4;
FinSi
FinMientras
cont<-0;
Mientras cont<4 Hacer
Escribir "IV Los tipos 3 de errores en programación son";
Escribir " ";
Escribir "1. De resolución, de máquina y de planteamiento";
Escribir "2. De almacenamiento, de sistema y de orden";
Escribir "3. Matemáticos, de Ortografía y de Idioma";
Escribir "4. De sintaxis, de ejecución y de lógica.";
Escribir " ";
Escribir "Digite su respuesta";
Leer r;
Escribir " ";
Si r<>4 Entonces
nota<-nota-0.2;
cont<-cont+1;
Sino cont<-4;
FinSi
FinMientras
cont<-0;
Mientras cont<4 Hacer
Escribir "V. El conjunto de pasos ordenados y finitos para solucionar un problema es: ";
Escribir " ";
Escribir "1. Un Proceso";
Escribir "2. Un Algoritmo";
Escribir "3. Un Compilador";
Escribir "4. Un Pseudocódigo";
Escribir " ";
Escribir "Digite su respuesta";
Leer r;
Escribir " ";
Si r<>2 Entonces
nota<-nota-0.2;
cont<-cont+1;
Sino cont<-4;
FinSi
FinMientras
Escribir "Su calificación es: ",nota; 
FinProceso

Chistes (menú)

Hacer un programa que muestre un chiste de acuerdo al siguiente menú
1.Chiste de niños
2.Chiste de Borrachos
3.Chiste Verde
4.Chiste sobre profesores
5.Chiste sobre estudiantes
6.Chiste sobre animales
después mostrar el chiste debe preguntarle al usuario si le gustó. Si no le gustó debe terminar el programa.

_____________________________________________________





Proceso menu_chistes
Mientras  like<>"n"  Hacer
Escribir " ";
Escribir "Chistes";
Escribir " ";
Escribir "1.Chiste de ninos";
Escribir "2.Chiste de Borrachos";
Escribir "3.Chiste Verde";
Escribir "4.Chiste sobre profesores";
Escribir "5.Chiste sobre estudiantes";
Escribir "6.Chiste sobre animales";
Escribir " ";
Escribir "Ingrese la opcion que desea";
Leer Opcion;
Si Opcion=1 Entonces
Escribir " ";
Escribir "El niño a su papá: ";
Escribir "¡Papá, papá, vinieron a preguntar si aquí vendían un burro! ";
Escribir "¿Y qué les dijiste, hijo? ";
Escribir "Que no estabas. ";
Escribir " ";
FinSi
 Si Opcion=2 Entonces
Escribir " ";
Escribir "Un borracho se queda mirando aterrado a dos tipos que vienen por la calle.";
Escribir "- Por qué nos mira así? Es que nosotros somos gemelos";
Escribir "- ¿Los cuatro??? ";
Escribir " ";
 FinSi
Si Opcion=3 Entonces
Escribir " ";
Escribir "- Mama,me voy con las amigas";
Escribir "- O te quitas la minifalda o no sales";
Escribir "- Por qué Mama?";
Escribir "- Porque es muy corta";
Escribir "- Y que?";
Escribir "- Que se te ven los huevos Paco. ";
Escribir " ";
FinSi
 Si Opcion=4 Entonces
Escribir " ";
Escribir "-Papa, papa, hoy no quiero ir a la escuela.";
Escribir "-¿Que te pasa hijo?";
Escribir "-Pues mira, primero tengo sueño, se gundo que me aburro y tercero";
Escribir "que se rien de mi.";
Escribir "-¿Sabes que te digo?, que tienes que ir. Primero porque es tu"; 
Escribir "obligación, segundo porque ya tienes cuarenta y cinco años y tercero";
Escribir "porque eres el director. ";
Escribir " ";
 FinSi
Si Opcion=5 Entonces
Escribir " ";
Escribir "A ver Pepito, si yo digo fui rica,";
Escribir "es pasado, pero si yo digo soy hermosa,¿Que es?";
Escribir "!Exceso de imaginacion profesora! ";
Escribir " ";
FinSi
 Si Opcion=6 Entonces
Escribir " ";
Escribir " Una hormiguita le pregunta a un elefante al verlo tan grande:";
Escribir "amiguito cuantos años tienes?";
Escribir "El elefante le contesta 1 año.";
Escribir "Luego el elefante le pregunta lo mismo y la hormiguita le contesta:";
Escribir "También tengo un año,";
Escribir "pero .... es que he estado muy enfermita!!!!";
Escribir " ";
 FinSi
Si Opcion>6 Entonces
Escribir " ";
Escribir "La opcion no es valida";
Escribir " ";
FinSi
 Si Opcion=1 o Opcion=2 o Opcion=3 o Opcion=4 o Opcion=5 o Opcion=6 Entonces
like<-" ";
Escribir " ";
Escribir "¿Le gusto el chiste? Si(s) / No(n)";
Escribir " ";
Leer like
Si like="s" Entonces
Escribir "Ja ja ja, disfrute de mas chistes";
FinSi
 FinSi
FinMientras
FinProceso

Horario de la semana (menú)

Hacer un programa que por medio de un menú le pida al usuario escoger un día de la semana y a continuación le muestre el horario de clases de ese día si el usuario escoge el día domingo el programa debe terminar

_______________________________________________



Proceso Horario_semanal
Dia<-0;
Mientras Dia<>7 Hacer
Escribir " ";
Escribir "Horario";
Escribir " ";
Escribir "1. Lunes";
Escribir "2. Martes";
Escribir "3. Miercoles";
Escribir "4. Jueves";
Escribir "5. Viernes";
Escribir "6. Sabado";
Escribir "7. Domingo";
Escribir " ";
Escribir "Elija la opcion del dia que desea";
Leer Dia;
Si Dia=1 Entonces
Escribir " ";
Escribir "Metodologia del estudio y pensamiento investigativo_________Horario: 2:00pm - 6:00 pm"
Escribir " ";
FinSi
Si Dia=2 Entonces
Escribir " ";
Escribir "Matematica Basica_______Horario: 2:00pm - 6:00 pm"
Escribir " ";
FinSi
Si Dia=3 Entonces
Escribir " ";
Escribir "Fundamentos de Programacion_______Horario: 2:00pm - 6:00 pm"
Escribir " ";
FinSi
Si Dia=4 Entonces
Escribir " ";
Escribir "Dia Libre"
Escribir " ";
FinSi
Si Dia=5 Entonces
Escribir " ";
Escribir "Introduccio a la tecnologia de sistemas_______Horario: 2:00pm - 6:00 pm"
Escribir " ";
FinSi
Si Dia=6 Entonces
Escribir " ";
Escribir "Catedra Institucional_______Horario: 12:30pm - 4:00 pm"
Escribir " ";
FinSi
Si Dia>7 Entonces
Escribir " ";
Escribir "Opcion no valida";
Escribir " ";
FinSi
FinMientras
FinProceso

operaciones aritméticas básicas (menú)

Realizar operaciones aritméticas básicas con menú

______________________________________________________



Proceso Menu_operaciones_aritmeticas_basicas
Opcion<-0;
Mientras Opcion<>5 Hacer
x<-0;
i<-0;
Escribir " ";
 Escribir "Ingrese un numero";
 Leer x;
 Escribir "Ingrese otro numero";
 Leer i;
 Escribir " ";
 Escribir "Seleccione la opcion que desee";
 Escribir " ";
 Escribir "1. Suma";
 Escribir "2. Resta";
 Escribir "3. Multiplicar";
 Escribir "4. Dividir";
 Escribir "5. Salir";
 Leer Opcion;
 Si Opcion=1 Entonces
Escribir " ";
Escribir x," + ",i," = ",x+i;
Escribir " ";
Escribir "___________________________";
 FinSi
Si Opcion=2 Entonces
Escribir " ";
Escribir x," - ",i," = ",x-i;
Escribir " ";
Escribir "___________________________";
FinSi
Si Opcion=3 Entonces
Escribir " ";
Escribir x," x ",i," = ",x*i;
Escribir " ";
Escribir "___________________________";
FinSi
Si Opcion=4 Entonces
Escribir " ";
Escribir x," / ",i," = ",x/i;
Escribir " ";
Escribir "___________________________";
FinSi
Si Opcion>5 Entonces
Escribir " ";
Escribir "Opcion no valida";
Escribir " ";
Escribir "___________________________";
FinSi
FinMientras
FinProceso

Factorial de X número

Hallar el factorial de x número

_____________________________________________



Proceso Factorial_de_un_numero
x<-1;
n<-0;
Escribir "Ingrese el numero para sacar factorial";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
x<-x*i;
FinPara
Escribir n,"! es = ",x;
FinProceso

Sucesión de Fibonacci

Hacer un programa que muestre los primeros n de la serie de fibonacci

____________________________________________________


Proceso Sucesion_Fibonacci
x<-0;
i<-1;
n<-0;
Escribir "Ingrese la cantidad de numeros que quiere ver de la serie de Fibonacci";
Leer n;
Para cont<-1 Hasta n Con Paso 1 Hacer
r<-x+i;
Escribir x;
x<-i;
i<-r;
r<-x+i;
FinPara
FinProceso

Ejercicio con ciclos repetitivos # 5

5. Hacer un programa que encuentre la raíz cuadrada de un número, aproximándola a un decimal

_____________________________________________________




Proceso raiz_de_un_numero_aprox_decimal
num<-0;
x<-0;
i<-0;
Escribir "Ingrese para un número para sacar la raiz cuadrada:"
Leer num;
r<- rc(num);
h<-Redon (r*10)/10;
Escribir "La raiz cuadrada de ",num," es: ", h;
FinProceso


________________________

Nota: No pude hacerlo con ciclo repetitivo, pero el algoritmo cumple con el requisito.

Ejercicio con ciclos repetitivos # 4 (para y mientras)

4. Hacer un programa que pida al usuario 2 números naturales, el programa debe mostrar los múltiplos del primer numero en la cantidad del segundo número.
Ejemplo
El usuario escribe 3 y 5, el programa debe mostrar
3 6 9 12 15



___________________________________________________________________


Proceso n_veces_los_multiplos_de_x
x<-0;
n<-0;
Escribir "Ingrese un número natural";
Leer x;
Escribir "Ingrese otro número natural";
Leer n;
Si x<=0 o n<=0 Entonces
Escribir "Ese no es un número natural";
Sino
Para n<-n Hasta 1 Con Paso -1 Hacer
r=x*n;
Escribir r;
FinPara
Finsi
FinProceso

_____________________________________________________________________

Proceso cantidad_n_de_multiplos_de_x
n<-0;
x<-0;
p<-1;
Escribir "Ingrese un número natural";
Leer x;
Escribir "Ingrese otro número natural";
Leer n;
Si x<=0 o n<=0 Entonces
Escribir "Ese no es un número natural";
Sino
cont<-0;
Mientras cont<n Hacer
r<-p mod x;
Si r=0 Entonces
cont<-cont+1;
Escribir p;
FinSi
p<-p+1;
FinMientras
FinSi

Ejercicio con ciclos repetitivos # 3 (para)

3. Hacer un programa que muestre las tablas de multiplicar desde el 1 hasta el 10 de los números del 1 al 10.



___________________________________________________________________




Proceso tablas_del_uno_al_diez
x<-1;
i<-0;
Para cont<-1 Hasta 100 Con Paso 1 Hacer

i<-i+1;
r<-x*i;
Si i=1 Entonces
Escribir "";
Escribir "";
Escribir "Tabla del ", x;
Escribir "";
FinSi
Escribir x, " x ",i ," = ", r;
Si i=10 Entonces
i<-i-10;
x<-x+1;
FinSi
FinPara
FinProceso

Ejercicio con ciclos repetitivos # 2 (para)

2. Hacer un programa que muestre los números en orden inverso empezando en 1500 y terminando en 1300

___________________________________________________________________




Proceso inverso_MD_MCCC
Para n<-1500 Hasta 1300 Con Paso -1 Hacer
Escribir n;
FinPara
FinProceso

Ejercicio con ciclos repetitivos # 1 (para)

1. Hacer un programa que escriba los números pares mayores que 100 y menores que 200

___________________________________________________________________




Proceso pares_Mq_100_y_mq_200
Para n<-102 Hasta 198 Con Paso 2 Hacer
Escribir n;
FinPara
FinProceso

Ejercicios con mientras # 5

Elaborar un programa que me diga la cantidad de números primos que deseo ver

____________________________________________________________________


Proceso N_numeros_primos
num<-1;
cont<-0;
cnp<-0;
Escribir "Ingrese la cantidad de números primos que desea ver";
Leer cnp;
Mientras cont<cnp Hacer
ceros<-1;
div<-1;
Mientras div<num Hacer 
respuesta<-num mod div;
Si respuesta=0 Entonces
ceros<-ceros+1;
FinSi
div<-div+1;
FinMientras
Si ceros<=2 Entonces
Escribir num;
cont<-cont+1
FinSi
num<-num+1;
FinMientras
FinProceso

Ejercicios con mientras # 4

programa que muestre los primeros 100 numeros impares (mientras)

_____________________________________________________________


Proceso numeros_impares_hasta_cien
n<-1;
Mientras n<200 Hacer
n<-n+2;
Escribir n;
FinMientras
FinProceso

Ejercicios con mientras # 3

Programa que muestre los primeros 50 numeros naturales (mientras)

_____________________________________________________


Proceso numeros_naturales_hasta_cincuenta
n<-0;
Mientras n<=50 Hacer
n<-n+1;
Escribir n
FinMientras
FinProceso

Ejercicios con para # 2

programa que muestre los primeros 100 numeros impares (para)

____________________________________________________________

Proceso numeros_impares_hasta_cien

Para n<-1 Hasta 200 Con Paso 2 Hacer

Escribir n;

FinPara

FinProceso

Ejercicios con para # 1

Programa que muestre los primeros 50 numeros naturales (para)

_________________________________________________________

Proceso numeros_naturales_hasta_cincuenta
Para n<-0 Hasta 50 Hacer
Escribir n;
FinPara
FinProceso

Ejercicios con mientras # 2

Elaborar un programa que indique los 15 primeros números primos.

______________________________________________________________



Proceso quince_primeros_numeros_primos
num<-1;
cont<-0;
Mientras cont<15 Hacer
ceros<-1;
div<-1;
Mientras div<num Hacer 
respuesta<-num mod div;
Si respuesta=0 Entonces
ceros<-ceros+1;
FinSi
div<-div+1;
FinMientras
Si ceros<=2 Entonces
Escribir num;
cont<-cont+1
FinSi
num<-num+1;
FinMientras
FinProceso

Ejercicios con mientras # 1

Elaborar un programa que indique si un numero ingresado es primo.

_________________________________________________________________


Proceso numero_primo
num<-0;
ceros<-1;
Escribir "Ingrese un numero";
Leer num;
div<-1;
Mientras div<num Hacer 
respuesta<-num mod div;
Si respuesta=0 Entonces
ceros<-ceros+1;
FinSi
div<-div+1;
FinMientras
Si ceros<=2 Entonces
escribir "El numero es primo";
Sino Escribir "El numero no es primo";
FinSi
FinProceso

Ejercicio de Programación estructurada # 4

4. Al final de un juego de video, el jugador se declara ganador si acumuló más de 3000 puntos, mantuvo al menos dos vidas y realizó menos de 3 intentos. Elabore un algoritmo que solicite los datos de juego de un jugador y determine si se considera ganador o perdedor.

______________________________________________

Proceso Videogame
puntacum<-0;
lifes<-0;
try<-0;
Escribir "Puntaje acumulado";
Leer puntacum;
Escribir "Vidas restantes";
Leer lifes;
Escribir "Intentos realizados";
Leer try;
Si puntacum>3000 Entonces
Si lifes >=2 Entonces
Si try<3 Entonces
Escribir "Winner";
Sino
Escribir "Loser";
FinSi
Sino
Escribir "Loser";
FinSi
Sino
Escribir "Loser";
FinSi
FinProceso

____________________________________________

Otra forma sin Si anidado sería

Proceso Videogame

puntacum<-0;

lifes<-0;

try<-0;

Escribir "Puntaje acumulado";

Leer puntacum;

Escribir "Vidas restantes";

Leer lifes;

Escribir "Intentos realizados";

Leer try;

Si puntacum>3000 y lifes >=2 y try<3 Entonces

Escribir "Winner";

Sino Escribir "Loser";

FinSi

FinProceso

Ejercicio de Programación estructurada # 3

 3. Elaborar un algoritmo que determine la posibilidad de sequía para el próximo año en una región de Colombia, para esto tendrá en cuenta los siguientes parámetros:
- La cantidad de lluvia promedio del presente año
- La temperatura promedio del océano pacifico durante este año
- Si el año siguiente es un número divisible por 5.
Si la cantidad de lluvia promedio del presente año es mayor a 20 cm y la temperatura promedio del océano pacifico fue menor a 20 grados centígrados, la posibilidad de sequia del próximo año es alta.
Si la cantidad de lluvia promedio del presente año esta entre 20 y 30 cm, y la temperatura promedio del océano pacifico esta entre 10 y 20 grados, la posibilidad de sequia del próximo año es media.
Si la cantidad de lluvia promedio del presente año es mayor a 30 cm, y la temperatura promedio del océano pacifico es menos de 10 grados, la posibilidad de sequia el próximo año es baja.
En cualquier caso si el año próximo es un numero divisible por 5 la posibilidad de sequia es alta.

______________________________________________________


Proceso Sequía
rainpro<-0;
año<-0;
tempro<-0;
Escribir "Ingrese el año actual";
Leer año;
Si (año+1) % 5 = 0 Entonces
Escribir "Posibilidad de sequía = Alta";
Escribir "Porque el siquiente año es divisible por 5";
Sino Escribir "Ingrese cantidad de lluvia promedio del año actual en centímetros";
Leer rainpro;
Escribir "Ingrese la temperatura promedio del oceano pacífico del año actual en grados(º)";
Leer tempro;
Si rainpro<20 y tempro>20 Entonces
Escribir "Posibilidad de sequía = Alta"
Sino
Si (rainpro>=20 y rainpro<=30) y (tempro>=10 y tempro<=20) Entonces
Escribir "Posibilidad de sequía = Media";
   Sino 
Si rainpro>30 y tempro<10 Entonces
Escribir "Posibilidad de sequía = Baja";
FinSi
FinSi
FinSi
FinSi
FinProceso

Ejercicio de Programación estructurada # 2

2. Un mecánico de automóviles requiere un algoritmo que le permita saber si un motor necesita ser reparado o no, para esto el motor debe cumplir con estas condiciones:
- Si es un motor de inyección y tiene más de 50 mil kilómetros de recorrido
- O si es un motor de carburador y tiene más de 70 mil kilómetros de recorrido
- En ambos casos si el motor está consumiendo más de un cuarto de aceite mensual debe ser reparado.

_____________________________________________


Proceso motor
motor<-a;
kmrecorrido<-0;
motorcarbu<-a;
aceitemens<-Falso;
Escribir "¿Consume más de 1/4 de aceite mensual?";
Leer aceitemens;
Si aceitemens=Falso Entonces
Escribir "¿Es un motor de inyección o de carburador?";
Leer motor
Escribir "Ingrese los kilómetros de recorrido que tiene";
Leer kmrecorrido;
Si motor="inyección" y kmrecorrido>50000 Entonces
Escribir "El motor necesita reparación";
Sino
Si motor="carburador" y kmrecorrido>70000 Entonces
Escribir "El motor necesita reparación";
Sino Escribir "El motor no necesita ser reparado";
FinSi
FinSi
Sino Escribir "El motor necesita reparación";
FinSi
FinProceso