EJERCICIO DE MENÚS - QUIZ

HACER UN ALGORITMO CON MENÚS , UN QUIZ TIPO ICFES, Y QUE SOLO DE 4 OPCIONES MÁXIMO POR PREGUNTA PARA RESPONDER.

SOLUCIONES:


Proceso QUIZ_PROGRAMACION
RPTA<-0;
VECES<-0;
NOTA<-5.0;
MIENTRAS VECES<4 HACER
Escribir "";
Escribir " A) ¿QUE ES UN PROGRAMA? ";
Escribir "";
Escribir " 1. UNA SERIE DE INSTRUCCIONES EJECUTADAS POR EL USUSARIO ";
Escribir "";
Escribir " 2. CUANDO UN PROGRAMADOR INVENTA UN SOFTWARE ";
Escribir "";
Escribir " 3. SERIE O SECUENCIA DE PASOS O INSTRUCCIONES, TAREAS Y ACTIVIDADES PARA ";
Escribir "    ALCANZAR UN OBJETIVO Y RESOLVER UN PROBLEMA ";
Escribir "";
Escribir " 4. NINGUNA DE LAS ANTERIORES ";
Escribir "";
Escribir " ESCRIBA SU RESPUESTA SEGUN EL NUMERO RESPECTIVO ";
Escribir "";
LEER RPTA;
Escribir "";
SI RPTA<>3 ENTONCES
NOTA<-NOTA-0.2
VECES<-VECES+1;
Sino
VECES<-4
FINSI
FINMIENTRAS
VECES<-0;
MIENTRAS VECES<4 HACER
Escribir "";
Escribir " B) ¿QUE ES PROGRAMAR? ";
Escribir "";
Escribir " 1. PROCESO POR EL CUAL SE INVENTA ALGO ";
Escribir "";
Escribir " 2. ARTE POR MEDIO DE LA CUAL SE DESARROLLA UN PROGRAMA ";
Escribir "";
Escribir " 3. LA 1 Y LA 2 ";
Escribir "";
Escribir " 4. NINGUNA DE LAS ANTERIORES ";
Escribir "";
Escribir " ESCRIBA SU RESPUESTA SEGUN EL NUMERO RESPECTIVO ";
Escribir "";
LEER RPTA;
Escribir "";
SI RPTA<>2 ENTONCES
NOTA<-NOTA-0.2
VECES<-VECES+1;
Sino
VECES<-4
FINSI
FINMIENTRAS
VECES<-0;
MIENTRAS VECES<4 HACER
Escribir "";
Escribir " C) ¿QUE SISTEMA DE COMUNICACION ENTIENDE UN COMPUTADOR? ";
Escribir "";
Escribir " 1. SISTEMA DE DIAGRAMAS DE FLUJO ";
Escribir "";
Escribir " 2. SISTEMAS DE INFORMACION  ";
Escribir "";
Escribir " 3. SISTEMA BINARIO ";
Escribir "";
Escribir " 4. NINGUNA DE LAS ANTERIORES ";
Escribir "";
Escribir " ESCRIBA SU RESPUESTA SEGUN EL NUMERO RESPECTIVO ";
Escribir "";
LEER RPTA;
Escribir "";
SI RPTA<>3 ENTONCES
NOTA<-NOTA-0.2
VECES<-VECES+1;
Sino
VECES<-4
FINSI
FINMIENTRAS
VECES<-0;
MIENTRAS VECES<4 HACER
Escribir "";
Escribir " D) DENTRO DE LOS SOFTWARE CREADOS PARA APRENDER A PROGRAMAR ESTAN: ";
Escribir "";
Escribir " 1. MICROSOF OFFICE Y NERO ";
Escribir "";
Escribir " 2. SISTEMAS OPERATIVOS WINDOWS, LINUX Y MAC  ";
Escribir "";
Escribir " 3. TODAS LAS OPCIONES: 1, 2 Y 4 ";
Escribir "";
Escribir " 4. JAVA, DFD Y PSEINT, ENTRE OTROS ";
Escribir "";
Escribir " ESCRIBA SU RESPUESTA SEGUN EL NUMERO RESPECTIVO ";
Escribir "";
LEER RPTA;
Escribir "";
SI RPTA<>4 ENTONCES
NOTA<-NOTA-0.2
VECES<-VECES+1;
Sino
VECES<-4
FINSI
FINMIENTRAS
VECES<-0;
MIENTRAS VECES<4 HACER
Escribir "";
Escribir " E) ¿CUALES SON LOS PASOS PARA CREAR UN SOFTWARE? ";
Escribir "";
Escribir " 1. INVESTIGAR - EXPLORAR - EJECUTAR ";
Escribir "";
Escribir " 2. IDENTIFICAR EL PROBLEMA - ANALISIS DEL SISTEMA ";
ESCRIBIR "  - CONSTRUCCION Y HACER PRUEBAS ";
Escribir "";
Escribir " 3.  DESCUBRIR - ANALISAR - EVALUAR - INGENIAR ";
Escribir "";
Escribir " 4. TODAS LA ANTERIORES ";
Escribir "";
Escribir " ESCRIBA SU RESPUESTA SEGUN EL NUMERO RESPECTIVO ";
Escribir "";
LEER RPTA;
Escribir "";
SI RPTA<>2 ENTONCES
NOTA<-NOTA-0.2
VECES<-VECES+1;
Sino
VECES<-4
FINSI
FINMIENTRAS
SI NOTA>0.1 Y NOTA<2.9 ENTONCES
Escribir " SU NOTA ES ", NOTA;
Escribir "";
ESCRIBIR " USTED HA REPROBADO, SU NOTA ES BAJA, "
ESCRIBIR " HAY QUE PONER MAS VOLUNTAD Y ESTUDIAR MAS!!! ";
FinSi
SI NOTA>3.0 Y NOTA<4.0 ENTONCES
Escribir " SU NOTA ES ", NOTA;
Escribir "";
ESCRIBIR " USTED HA APROBADO Y SU RENDIMIENTO ES MEDIO, MAS DEDICACION, FELICITACIONES!!! ";
FinSi
SI NOTA>4.0 Entonces
Escribir " SU NOTA ES ", NOTA;
Escribir "";
ESCRIBIR " USTED HA APROBADO Y SU RENDIMIENTO ES ALTO, FELICITACIONES!!! ";
ESCRIBIR " SIGUE ASI Y TRIUNFARAS ";
FINSI
FinProceso

EJERCICIO MENÚS - CHISTES

HACER UN ALGORITMO QUE DESPLIEGUE UNA SERIA DE CHISTES PARA QUE EL USUARIO ESCOGA, Y LE PREGUNTE SI LE GUSTO O NO EL CHISTE, SI RESPONDE QUE SI MUESTRA NUEVAMENTE EL MENÚ DE LO CONTRARIO CERRAR LA APLICACIÓN. 

SOLUCIÓN:

Proceso CHISTES
CHISTE<-0;
CHISTE1<-"V";
MIENTRAS CHISTE<>7 HACER
Escribir "SELECCIONE UNO DE LOS SIGUIENTES CHISTES";
Escribir "";
Escribir " 1. CHISTE SOBRE NIÑOS";
Escribir "";
Escribir " 2. CHISTES SOBRE BORRACHOS";
Escribir "";
Escribir " 3. CHISTES VERDES";
Escribir "";
Escribir " 4. CHISTES SOBRE PROFESORES";
Escribir "";
Escribir " 5. CHISTES SOBRE ESTUDIANTES";
Escribir "";
Escribir " 6. CHISTES SOBRE ANIMALES";
Escribir "";
Escribir " 7. SALIR";
Escribir "";
ESCRIBIR " INGRESE UN CHISTE, SEGUN SU RESPECTIVO NUMERO ";
Escribir "";
LEER CHISTE;
SI CHISTE=1 ENTONCES
Escribir "";
Escribir "";
Escribir "Mamá, mamá, papá se ha muerto encima de la criada."
Escribir "Pero ¿estás seguro de que se ha muerto?"
Escribir "Bueno, no está muerto del todo, todavía culea.";
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FinSi
SI CHISTE=2 ENTONCES
Escribir "";
Escribir "";
Escribir "Entra un borracho a una cafetería y dice, celebrando, con voz balbuceante:"
Escribir "¡Feliz año nuevo!, A lo que una dama le contesta"
Escribir  "¿Feliz año nuevo? ¿En pleno agosto?, Y dice el borracho:, ¿Ya estamosh en agosto?"
Escribir  " Ay mi mujer me va a matar ¡nunca había llegado tan tarde!"
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FinSi
SI CHISTE=3 ENTONCES
Escribir "";
Escribir "";
Escribir "-Que, te gusto?, Me pareces mesopotámico, Exótico, raro?, "
Escribir "No, pareces una mesa con un hipopótamo encima, más ancho que largo"
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FINSI
SI CHISTE=4 ENTONCES
Escribir "";
Escribir "";
Escribir "El profesor le esta tomando un examen de teologia a una piba, en una universidad catolica,"
Escribir "Digame Senorita, ?Cual fue el primer hombre? "
Escribir "Mire profesor pregunteme lo que quiera, pero nada de meterse en mi vida privada. "
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FINSI
SI CHISTE=5 ENTONCES
Escribir "";
Escribir "";
Escribir "A ver Pepito, si yo digo fui rica, es pasado, pero si yo digo soy hermosa,¿Que es?,"
Escribir "!Exceso de imaginacion profesora!"
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FINSI
SI CHISTE=6 ENTONCES
Escribir "";
Escribir "";
Escribir "En la selva del Africa un leoncito se encontró a un misionero y "
Escribir "empezó a corretearlo rugiendo con deseos de matarlo,"
Escribir "a esto cuando la leona madre alcanza a ver a su pequeño"
Escribir "cachorro y le grita:Niño no juegues con la comida !!! "
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FINSI
SI CHISTE>8 Entonces
Escribir "";
Escribir "";
Escribir "ESTE CHISTE NO ESTA DISPONIBLE, POR FAVOR DIGITE UN CHISTE DEL MENU, GRACIAS!!!"
Escribir "";
Escribir "";
FINSI
SI CHISTE<>7 ENTONCES
ESCRIBIR CHISTE;
FINSI
FinMientras
FinProceso

EJERCICIO DE MENÚS - HORARIO DE CLASES SEGÚN EL DÍA

HACER UN ALGORITMO QUE DESPLIEGUE UN MENÚ CON LOS DÍAS DE LA SEMANA, Y SEGÚN EL DÍA ELEGIDO POR EL USUARIO, EL PROGRAMA MOSTRARA EL HORARIO DE CLASES DE ESE DÍA.

NOTA: SI EL USUARIO ELIGE EL DÍA DOMINGO EL PROGRAMA DEBERÁ FINALIZAR O SALIR.

SOLUCIÓN:

Proceso DIAS_HORARIOS
DIA<-0;
MIENTRAS DIA<>7 HACER
Escribir "SELECCIONES UNA DE LOS SIGUIENTES DIAS";
Escribir " 1. LUNES";
Escribir " 2. MARTES";
Escribir " 3. MIERCOLES";
Escribir " 4. JUEVES";
Escribir " 5. VIERNES";
Escribir " 6. SABADO";
Escribir " 7. DOMINGO";
ESCRIBIR " INGRESE UN DIA, SEGUN SU RESPECTIVO NUMERO ";
LEER DIA;
SI DIA=1 ENTONCES
Escribir "";
Escribir "";
Escribir "LA CLASE DEL DIA ES: METODOLOGIA DEL ESTUDIO Y EL PENSAMIENTO INVESTIGATIVO";
Escribir "";
Escribir " DESDE LAS 2:00 P.M HASTA LAS 6:00 P.M, SEDE COREDUCACION LA DORADA - CALDAS ";
Escribir "";
Escribir "";
FinSi
SI DIA=2 ENTONCES
Escribir "";
Escribir "";
Escribir "LA CLASE DEL DIA ES: MATEMATICAS BASICAS";
Escribir "";
Escribir " DESDE LAS 2:00 P.M HASTA LAS 6:00 P.M, SEDE COREDUCACION LA DORADA - CALDAS ";
Escribir "";
Escribir "";
FinSi
SI DIA=3 ENTONCES
Escribir "";
Escribir "";
Escribir "LA CLASE DEL DIA ES: PROGRAMACION ";
Escribir "";
Escribir " DESDE LAS 3:00 P.M HASTA LAS 6:00 P.M, EN LA UNIVERSIDAD DE CALDAS ";
Escribir "";
Escribir "";
FinSi
SI DIA=4 ENTONCES
Escribir "";
Escribir " EN ESTE DIA NO HAY CLASES REGISTRADAS ";
Escribir "";
FinSi
SI DIA=5 ENTONCES
Escribir "";
Escribir "";
Escribir "LA CLASE DEL DIA ES: INTRODUCCION A LA TECNOLOGIA ";
Escribir "";
Escribir " DESDE LAS 2:00 P.M HASTA LAS 6:00 P.M, EN LA UNIVERSIDAD DE CALDAS ";
Escribir "";
Escribir "";
FinSi
SI DIA=6 ENTONCES
Escribir "";
Escribir "";
Escribir "LA CLASE DEL DIA ES: CATEDRA INSTITUCIONAL ";
Escribir "";
Escribir " DESDE LAS 12:30 P.M HASTA LAS 4:00 P.M, SEDE COREDUCACION LA DORADA - CALDAS ";
Escribir "";
Escribir "";
FinSi
SI DIA>7 Entonces
Escribir "";
Escribir "";
Escribir "ESTA OPCION NO ESTA EN EL MENU, POR FAVOR ELIGA UN DIA DENTRO DEL MENU";
Escribir "";
Escribir "";
FINSI
SI DIA<>7 ENTONCES
Escribir DIA;
FinSi
FinMientras
FinProceso

EJERCICIO CREACIÓN DE MENÚS PSEINT

HACER UN ALGORITMO QUE MUESTRE UN MENÚ DE OPCIONES, 1. SUMA, 2. RESTA, 3. MULTIPLICA, 4. DIVIDE, 5. SALIR; QUE AL PEDIRLE AL USUARIO DOS NÚMEROS Y AL ELEGIR UNA DETERMINADA OPCIÓN, EJEMPLO, 1. SUMA, EL PROGRAMA HAGA LAS OPERACIONES CORRESPONDIENTES SEGÚN CADA CASO.

SOLUCIÓN:

Proceso MENU
OPCION<-1;
MIENTRAS OPCION<>5 HACER
NUMERO1<-0;
NUMERO2<-0;
ESCRIBIR "INGRESE UN NUMERO";
LEER NUMERO1;
ESCRIBIR "INGRESE OTRO NUMERO";
LEER NUMERO2;
Escribir "SELECCIONES UNA DE LAS OPCIONES";
Escribir " 1. SUMA";
Escribir " 2. RESTA";
Escribir " 3. MULTIPLICAR";
Escribir " 4. DIVIDIR";
Escribir " 5. SALIR";
LEER OPCION;
SI OPCION=1 ENTONCES
RESULTADO<-NUMERO1+NUMERO2;
FinSi
SI OPCION=2 ENTONCES
RESULTADO<-NUMERO1-NUMERO2;
FinSi
SI OPCION=3 ENTONCES
RESULTADO<-NUMERO1*NUMERO2;
FinSi
SI OPCION=4 ENTONCES
RESULTADO<-NUMERO1/NUMERO2;
FinSi
SI OPCION<>5 ENTONCES
Escribir RESULTADO;
FinSi
FinMientras
FinProceso

EJERCICIO NUMERO FACTORIAL CON PARA

HACER UN ALGORITMO QUE MUESTRE EL NUMERO FACTORIAL, DE UN NUMERO X INGRESADO POR EL USUARIO.

SOLUCIÓN:


Proceso sin_titulo
V1<-1;
V2<-2;
NUMERO<-0;
ESCRIBIR "INGRESE UN NUMERO";
LEER NUMERO;
PARA I<-1 HASTA NUMERO-1 CON PASO 1 HACER
R<-V1*V2
V1<-R;
V2<-V2+1;
FINPARA
ESCRIBIR R;
FinProceso

EJERCICIO Nº 5 CON PARA

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

SOLUCIÓN

Proceso sin_titulo
R<-1;
NUMERO<-0;
ESCRIBIR "INGRESE UN NUMERO";
LEER NUMERO;
Para  I<-1 Hasta NUMERO Con Paso 1 Hacer
R<-RC(NUMERO) 
FinPara
ESCRIBIR R;
FinProceso

EJERCICIO Nº 4 CON PARA

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

SOLUCIÓN:

Proceso sin_titulo

X0<-0;

X1<-0;

NUMERO<-0;

X<-1;

Escribir "INGRESE UN NUMERO NATURAL, PARA SABER LOS MULTIPLOS DE ESTE";

Leer X0;

Escribir "AHORA INGRESE LA CANTIDAD DE MULTIPLO QUE DESEA VER";

Leer X1;

Para NUMERO<-X0 Hasta X0*X1 Con Paso X0 Hacer

Escribir NUMERO;

FinPara

FinProceso

EJERCICIO Nº 3 CON 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.

SOLUCIÒN:


Proceso TABLAS_DE_MULTIPLICAR
NUMERO<-1;
MULTIPLICADOR<-0;
Para X<-1 Hasta 100 Con Paso 1 Hacer
MULTIPLICADOR<-MULTIPLICADOR+1;
RESPUESTA<-NUMERO*MULTIPLICADOR;
Si MULTIPLICADOR=1 Entonces
Escribir "";
Escribir "";
Escribir "Tabla del ", NUMERO;
Escribir "";
FinSi
Escribir NUMERO, " x ",MULTIPLICADOR ," = ", RESPUESTA;
Si MULTIPLICADOR=10 Entonces
MULTIPLICADOR<-MULTIPLICADOR-10;
NUMERO<-NUMERO+1;
FinSi
FinPara
FinProceso

EJERCICIO Nº 2 CON PARA

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

SOLUCIÒN:

Proceso sin_titulo

NUMERO<-1501;

Mientras NUMERO<-1501 Hacer

Escribir NUMERO;

FinMientras

Para NUMERO<-NUMERO-1 Hasta 1300 Con Paso -1 Hacer

Escribir NUMERO;

FinPara

FinProceso

EJERCICIO Nº 1 CON PARA

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

SOLUCIÒN:

Proceso sin_titulo

X<-1;

Para NUMERO<-X*X+1 Hasta 200 Con Paso 2 Hacer

SI NUMERO>100 ENTONCES 

Escribir NUMERO;

FINSI

FinPara

FinProceso

SUCESIÓN FIBONACCI EN PSEINT CON PARA

HACER UN ALGORITMO QUE MUESTRE EL NUMERO DE VECES INGRESADO POR EL USUARIO LA SUCESIÓN  FIBONACCI.

SOLUCIÓN:


Proceso SUCESION_FIBONACCI
N<-0;
X<-1;
Escribir "INGRESE UN NUMERO";
NUMERO<-0;
Leer NUMERO;
PARA I<-0 HASTA NUMERO CON PASO 1 Hacer
Escribir N;
A<-X+N
N<-X
X<-A
FinPara
FinProceso

EJERCICIO DOS CON PARA

HACER UN ALGORITMO QUE MUESTRE LOS PRIMEROS 100 NÚMEROS IMPARES

SOLUCIÓN:


Proceso sin_titulo
Para X<-1 Hasta 200 Con Paso 2 Hacer
Escribir X;
FinPara
FinProceso

EJERCICIO 1 CON PARA

HACER UN ALGORITMO QUE MUESTRE LOS PRIMEROS 50 NÚMEROS NATURALES CON PARA EN PSEINT.

SOLUCIÓN:


Proceso sin_titulo
Para JESUS<-0 Hasta 50 Con Paso 1 Hacer
Escribir JESUS;
FinPara
FinProceso

PRIMEROS 15 NÚMEROS PRIMOS CON MIENTRAS

HACER UN ALGORITMO QUE MUESTRE LOS PRIMEROS 15 NUMEROS PRIMOS

Proceso NUMEROS_PRIMOS
 NUMERO<-1;
 x<-0;
  mientras x<15 Hacer
DIVISOR<-1;
 CEROS<-1;
 MIENTRAS DIVISOR<NUMERO Hacer
  RESPUESTA<-NUMERO MOD DIVISOR;
  SI RESPUESTA=0 ENTONCES
  CEROS<-CEROS+1
  FINSI
  DIVISOR<-DIVISOR+1;
 FinMientras
SI CEROS<=2 ENTONCES
 Escribir numero;
 x<-x+1;
FINSI
numero<-numero+1;
FinMientras
FinProceso

NÚMEROS PRIMOS

HACER UN ALGORITMO, QUE AL INGRESAR UN NUMERO, EL PROGRAMA ME RESPONDA SI ES O NO UN NUMERO PRIMO.

SOLUCIÓN:


Proceso NUMEROS_PRIMOS
NUMERO<-0;
CEROS<-1;
Escribir "INGRESE EL NUMERO DESEADO";
Leer NUMERO;
DIVISOR<-1;
MIENTRAS DIVISOR<NUMERO Hacer
RESPUESTA<-NUMERO MOD DIVISOR;
SI RESPUESTA=0 ENTONCES
CEROS<-CEROS+1
FINSI
DIVISOR<-DIVISOR+1;
FinMientras
SI CEROS<=2 ENTONCES
Escribir "EL NUMERO SI ES PRIMO";
Sino
Escribir "EL NUMERO NO ES PRIMO";
FINSI
FinProceso

CUARTO EJERCICIO SI-ENTONCES - VIDEO JUEGOS

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.

SOLUCIÓN:

Proceso sin_titulo
PUNTOS<-0;
VIDAS<-0;
INTENTOS<-0;
Escribir "CUANTOS PUNTOS ACUMULO AL FINALIZAR EL VIDEOJUEGO?";
Leer PUNTOS;
Escribir "CUANTAS VIDAS MANTUVO HASTA FINALIZAR EL VIDEOJUEGO?";
Leer VIDAS;
Escribir "CUANTOS INTENTOS HIZO PARA FINALIZAR EL VIDEOJUEGO?";
Leer INTENTOS;
SI PUNTOS>=3000 Entonces
Escribir "GANADOR";
SINO
SI VIDAS<=2 Entonces
Escribir "GANADOR";
SINO
SI INTENTOS<3 ENTONCES 
Escribir "GANADOR";
Sino
Escribir "PERDEDOR";
FinSi
FinSi
FinSi
FinProceso

TERCER EJERCICIO SI-ENTONCES - POSIBILIDAD DE SEQUIA

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.

SOLUCIÓN:

Proceso sin_titulo

CANTIDAD<-0;

TEMPERATURA<-0;

AÑO<-0;

Escribir "ESCRIBA LA CANTIDAD DE LLUVIA EN CM DEL AÑO EN CURSO";

Leer CANTIDAD;

Escribir "ESCRIBA LA TEMPERATURA EN GRADO CENTIGRADOS DEL OCEANO PACIFICO";

Leer TEMPERATURA;

Escribir "ESCRIBA EN NUMERO DEL AÑO EN CURSO";

Leer AÑO;

SI CANTIDAD>30 Y TEMPERATURA<10 Entonces

Escribir "LA POSIBILIDAD DE SEQUIA ES ALTA";

Sino

SI CANTIDAD>20 Y CANTIDAD<30 Entonces

SI TEMPERATURA<20 Y TEMPERATURA>10 ENTONCES 

Escribir "LA POSIBILIDAD DE SEQUIA ES MEDIA";

Sino

SI AÑO MOD 5 = 0 ENTONCES 

Escribir "LA POSIBILIDAD DE SEQUIA ES ALTA";

Sino

Escribir "LA POSIBILIDAD DE SEQUIA ES BAJA";

FINSI

FinSi

FinSi

FinSi

FinProceso

SEGUNDO EJERCICIO SI-ENTONCES - REPARACIÓN DE UN CARRO

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.

SOLUCIÓN:

Proceso sin_titulo

INYECCION<-VERDADERO;

CARBURADOR<-VERDADERO;

KM<-0;

ACEITE<-VERDADERO;

Escribir "SI SU MOTOR ES DE INYECCION ESCRIBIR VERDADERO DE LO CONTRARIO FALSO";

Leer INYECCION;

Escribir "SI SU MOTOR ES DE CARBURADOR ESCRIBIR VERDADERO DE LO CONTRARIO FALSO";

Leer CARBURADOR;

Escribir "ESCRIBA LOS KILOMETROS RECORRIDOS POR EL AUTOMOVIL";

Leer KM;

Escribir "SI SU AUTOMOVIL CONSUME MAS DE 1/4 DE ACEITE MENSUAL ESCRIBA VERDADERO DE LO CONTRARIO FALSO";

Leer ACEITE;

SI INYECCION=VERDADERO Y KM>50 ENTONCES

Escribir "SU VEHICULO NECESITA SER REPARADO";

Sino

SI CARBURADOR=VERDADERO Y KM>70 ENTONCES 

Escribir "SU VEHICULO NECESITA SER REPARADO";

Sino

SI ACEITE=VERDADERO Entonces

Escribir "SU VEHICULO NECESITA SER REPARADO";

Sino

Escribir "SU VEHICULO NO NECESITA REPARACION POR EL MOMENTO";

FinSi

FinSi

FinSi

FinProceso

PRIMER EJERCICIO SI-ENTONCES - CLASES DE REFUERZO EN MATEMATICAS

1. En la universidad se necesita determinar que estudiantes requieren inscribirse en cursos de refuerzo en matemáticas, para que esto sea necesario se requiere que el estudiante tenga un promedio de calificaciones menor de 3.5 o que haya perdido mas de dos materias el semestre anterior. Además todos los estudiantes de Tecnología de Sistemas deben inscribirse para este curso.

SOLUCIÓN:

Proceso sin_titulo
MATERIAS<-0;
PROMEDIO<-0;
ESTUDIANTE<-VERDADERO;
Escribir "ESCRIBA CUANTAS MATERIAS REPROBO EN EL SEMESTRE PASADO";
Leer MATERIAS;
Escribir "ESCRIBA SU PROMEDIO EN LA NOTA DE MATEMATICAS";
Leer PROMEDIO;
Escribir "SI USTED ES ESTUDIANTE DE TECNOLOGIA EN SISTEMAS ESCRIBA VERDADERO DE LO CONTRARIO FALSO";
Leer ESTUDIANTE;
SI MATERIAS>2 O PROMEDIO<3.5 Entonces
Escribir "USTED DEBE INSCRIBIRSE EN LA CLASES DE REFUERZO";
Sino
SI ESTUDIANTE=VERDADERO Entonces
ESCRIBIR "USTED DEBE INSCRIBIRSE EN LA CLASES DE REFUERZO";
Sino
Escribir "USTED NO DEBE TOMAR CLASES DE REFUERZO EN MATEMATICAS";
FinSi
FinSi
FinProceso

JUEGO DE PUN

HACER UN ALGORITMO QUE CONSTE DE QUE SE DICEN LOS NÚMEROS DE 1 EN ADELANTE Y CUANDO HALLA UN NUMERO TERMINADO EN 7 O MÚLTIPLO DE 7 EN VEZ DE DECIR EL NUMERO  SE DICE "PUN", CON LO ANTERIOR CONSTRUIR EL PROGRAMA

SOLUCIÓN:

Proceso sin_titulo
numero<-1
condicion<-"s"
Mientras condicion= "s" Hacer
SI (numero MOD 7)= 0 Entonces
ESCRIBIR "PUN";
Sino
si ((numero-7) mod 10)=0 Entonces
Escribir "PUN";
sino
ESCRIBIR numero;
FinSi
FinSi
leer condicion;
numero<-numero+1;
FinMientras
FinProceso

NUMEROS INFINITOS

HACER UN ALGORITMO QUE MUESTRE NÚMEROS INFINITAMENTE AL COLOCAR UNA LETRA O CARÁCTER, POR EJEMPLO, LA "S", Y AL COLOCAR ALGO DIFERENTE DE ESE CARÁCTER EN ESTE CASO "S" PARA DE MOSTRAR NÚMEROS .-

SOLUCIÓN:


Proceso sin_titulo
numero<-1
condicion<-"s"
Mientras condicion= "s" Hacer
Escribir numero;
leer condicion;
numero<-numero+1;
FinMientras
FinProceso

HACER COMPARENDO 2

UN POLICÍA NECESITA SABER SI DEBE IMPONER UN COMPARENDO A UN CONDUCTOR, PARA ESO SE GUÍA POR LAS SIGUIENTES NORMAS:

• ESTA PROHIBIDO CONDUCIR SI SE TIENE MENOS DE 16 AÑOS 
• ESTA PROHIBIDO CONDUCIR SIN LICENCIA DE CONDUCCIÓN
• SE HACE COMPARENDO SI LA LICENCIA NO ESTA VIGENTE

SOLUCIÓN:

Proceso sin_titulo
 EDAD<-0;
 LICENCIA<-FALSO;
 VIGENCIA<-FALSO;
 Escribir "ESCRIBA LA EDAD DEL CONDUCTOR";
 Leer EDAD;
 SI EDAD>=16 ENTONCES
Escribir "ESCRIBA SI EL CONDUCTOR TIENE LICENCIA";
Leer LICENCIA;
SI LICENCIA=VERDADERO Entonces
Escribir "ESCRIBA SI LA LICENCIA ESTA VIGENTE";
Leer VIGENCIA;
SI VIGENCIA=VERDADERO Entonces
Escribir "PUEDE CONTINUAR";
SINO
Escribir "COMPARENDO POR LICENCIA VENCIDA";
FinSi
SINO
Escribir "HACER COMPARENDO POR NO TENER LICENCIA";
FinSi
 SINO
 Escribir "HACER COMPARENDO POR SER MENOR DE EDAD";
 FinSi
FinProceso