miércoles, 22 de mayo de 2013

QUIZ


PROCESO QUIZ
 nota<-5;
 cont<-0;
 r<-0;
 Mientras cont<4 Hacer
 Escribir "cual de estos no es un comando";
 Escribir " ";
 Escribir "1. leer";
 Escribir "2. repetir";
 Escribir "3. para";
 Escribir "4. como";
 Escribir " ";
 Escribir "escriba 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 "cual es el codigo expresado en palabras cotidianas";
 Escribir " ";
 Escribir "1. pseudocodigo";
 Escribir "2. algoritmo";
 Escribir "3. variable";
 Escribir "4. diagrama";
 Escribir " ";
 Escribir "escriba 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 "a q se refiere una representacion simbolica";
 Escribir " ";
 Escribir "1. variable";
 Escribir "2. dato";
 Escribir "3. valor";
 Escribir "4. diagrama";
 Escribir " ";
 Escribir "escriba 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 "es la representacion por medio de un pseudocodigo de los pasos que componen un programa";
 Escribir " ";
 Escribir "1. variable";
 Escribir "2. dato";
 Escribir "3. algoritmo";
 Escribir "4. diagrama";
 Escribir " ";
 Escribir "escriba 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 "espacios reservados en la memoria";
 Escribir " ";
 Escribir "1. variable";
 Escribir "2. dato";
 Escribir "3. algoritmo";
 Escribir "4. diagrama";
 Escribir " ";
 Escribir "escriba su respuesta";
 Leer r;
 Escribir " ";
 Si r<>3 entonces
  nota<-nota-0.2;
  cont<-cont+1;
 Sino cont<-4;
 FinSi
 FinMientras
 Escribir "Su calificacion es;",nota
 si nota=5 Entonces
                escribir "enhorabuena su nota es excelente"
 finsi
 si nota>3 y nota<4 entonces
                escribir "con un poco de esfuerzo podras ser mejor"
 finsi     
 si nota<3 Entonces
                escribir "su sabiduria es muy baja TU CEREBRO NO TE DA MAS"
 finsi     
 si nota>4 y nota<5 Entonces
                escribir "buen trabajo estudia un poco mas y obtendras mejores resultados"
 finsi     
FinProceso

miércoles, 15 de mayo de 2013

EJERCICIO LO 15 PRIMEROS NUMEROS PRIMOS


Proceso quince_primeros
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

EJERCICIO NUMEROS PRIMOS


Proceso numeros_primos
ceros<-1
numero<-0
Escribir "ingrese un numero";
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 es primo";
sino
Escribir "el numero no es primo";

FinSi
FinProceso

EJERCICIO LOS 50 PRIMEROS NUMEROS NATURALES CON PARA


Proceso numeros_naturales
para jesus<-0 Hasta 50 con Paso 1 Hacer
Escribir jesus;
FinPara
FinProceso

EJERCICIO LOS 50 PRIMEROS NUMEROS NATURALES


Proceso numeros_naturales
                jesus<-0
                mientras jesus<=50 Hacer
                escribir jesus;
                               jesus<-jesus+2;
                FinMientras
               
FinProceso

EJERCICIO LOS 100 PRIMEROS NUMEROS IMPARES


Proceso numeros_impares
                para x<-1 hasta 200 con paso 2 Hacer
                               escribir x;
                FinPara
FinProceso

EJERCICIO NUMEROS IMPARES


Proceso numeros_impares
                jesus<-1
                mientras jesus<=200 Hacer
                               escribir jesus;
                               jesus<-jesus+2;
                FinMientras
               
FinProceso

EJERCICIO ELABORACION MENU MATERIAS


Proceso elaboracion_menu
                opcion<-1;
                mientras opcion<>7 Hacer
                               dia<-0;
                              
                               escribir "seleccione una de las opciones";
                               escribir "1. lunes";
                               escribir "2. martes";
                               escribir "3. miercoles";
                               escribir "4. jueves";
                               escribir "5. viernes";
                               escribir "6. sabado";
                               escribir "7. domingo"
                               leer opcion;
                               si opcion=1 entonces
                                               escribir "metodologia de 2 a 6";
                               FinSi
                               si opcion=2 Entonces
                                               escribir "matematicas de 2 a 6";
                               FinSi
                               si opcion=3 Entonces
                                               escribir "programacion de 3 a 6";
                               FinSi
                               si opcion=4 Entonces
                                               escribir "libre";
                               FinSi
                              
                               si opcion=5 Entonces
                                              
                                               Escribir "introduccion de 2 a 6";
                               finsi
                              
                                                               si opcion=6 Entonces
                                                                              escribir "catedra de 12:30 a 4";
                                                               FinSi
                                                              
                                                                             
                FinMientras
FinProceso

EJERCICIO FIBONACCI


Proceso fibbonaci
                n<-0;
                p<-1;
                numero<-0;
                Escribir "ingrese un numero";
                Leer numero;
    Para i<-0 Hasta numero-1 Con Paso 1 Hacer
                               g<-n+p;
                               Escribir n;
                n<-p;
                p<-g;
FinPara


FinProceso

EJERCICIO NUMERO FACTORIAL


Proceso el_numero_factorial_del_8
                a<-1;
                x<-1;
                Escribir "ingrese un numero";
                leer numero;
                Para a<-a+1 Hasta numero Con Paso 1 Hacer
                               x<-x*a;
                FinPara
                Escribir x;
FinProceso

EJERCICIO ELABORACION MENU


Proceso elaboracion_menu
                opcion<-1;
                mientras opcion<>5 Hacer
                               numero1<-0
                               numero2<-0
                               escribir "ingrese un numero";
                               leer numero1;
                               escribir "ingrese otro numero";
                               leer numero2
                               escribir "seleccione una de las opciones";
                               escribir "1. sumar";
                               escribir "2. restar";
                               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 ELABORACION MENU CHISTES


Proceso elaboracion_menu
                opcion<-1;
                mientras opcion<>7 Hacer
                              
                              
                               escribir "seleccione una de las opciones";
                               escribir "1. chistes de niños";
                               escribir "2. chistes de borrachos";
                               escribir "3. chistes verdes";
                               escribir "4. chiste sobre profesores";
                               escribir "5. chiste sobre estudiantes";
                               escribir "6. chistes de animales";
                              
                               leer opcion;
                               si opcion=1 entonces
                                               escribir "El niño a su papá: ¡Papá, papá, vinieron a preguntar si";
                                               escribir "aquí vendían un burro! ¿Y qué les dijiste, hijo? Que no estabas.";
                               FinSi
                               si opcion=2 Entonces
                                               escribir "Entra un borracho en un autobús y dice:Los de la derecha";
                                               escribir "son unos gilipollas, los de atrás unos imbéciles, los de la izquierda";
                                               escribir "unos inútiles y los de delante unos pringaos...El conductor lo oye y pega";
                                               escribir "un frenazo y dice: ¿Ahora quien es el pringao ehhhh?Y dice";
                               escribir "el borracho:¡Psss no sé, me los has cambiao todos de sitio!";
                               FinSi
                               si opcion=3 Entonces
                                               escribir "No sé por qué cada vez que tengo sexo con mis novias";
                                               escribir "gritan el mismo nombre de otra persona. ¿Alguien sabe quién es Socorro Meviolan";
                               FinSi
                               si opcion=4 Entonces
                                               escribir "la maestra le pregunta a juanito:- A ver Juanito, dime en";
                                               escribir "qué tiempo está esta oración: Me estoy casando.A lo que Juanito";
                                               escribir "responde:- Maestra, en tiempo presente.- Muy bien Juanito.- Dime Jaimito, en";
                                               escribir "qué tiempo está esta oración: Estoy buscando novio.A lo que Jaimito";
                               escribir "responde:- Maestra, es tiempo perdido.";
                               FinSi
                              
                               si opcion=5 Entonces
                                              
                                               Escribir "A ver Pepito, si yo digo fui rica, es pasado, pero";
                                               escribir "si yo digo soy hermosa,¿Que es?!Exceso de imaginacion profesora! ";
                               finsi
                              
                                                               si opcion=6 Entonces
                                                                              escribir "¿que le dice un chiche a otro chinche? te quiero chincheramente";
                                                               FinSi
                               escribir "si el chiste no le gusto precione 7 de lo contraria de le enter";
                               leer opcion
                              
                FinMientras
FinProceso

EJERCICIO RAIZ CUADRADA


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

Proceso raiz_cuadrada
                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 NUMERO NATURALES


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 numeros_naturales
                X0<-0;
                X1<-0;
                NUMERO<-0;
                X<-1;
                Escribir "ingrese un numero natural, para saber los multiplos de este";
                Leer X0;
                Escribir "ahora ingre la cantidad de multiplos q desee ver";
                Leer X1;
                Para NUMERO<-X0 Hasta X0*X1 Con Paso X0 Hacer
                               Escribir NUMERO;
                FinPara
               
FinProceso

EJERCICIO ORDEN NUMEROS


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

Proceso orden_numero
                numero<-1501
                Mientras numero<-1501 Hacer
                               Escribir numero;
                FinMientras
                Para numero<-numero-1 Hasta 1300 Con Paso -1 Hacer
                               Escribir numero;
                FinPara
FinProceso

EJERCICIO TABLAS DE MULTIPLICAR


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_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 MAYORES QUE 100


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

Proceso mayores_que_100
                p<-1;
                para numero<-p*p+1 HASTA 200 Con Paso 2 Hacer
                               si numero>100 Entonces
                                               escribir numero;
                               FinSi
                FinPara
FinProceso

miércoles, 8 de mayo de 2013

SEGUNDO CORTE


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.
Proceso curso_matematico
        promedio<-0;
        materiasperdidas<-0;
        estudiantesdesistemas<-Verdadero;
        Escribir "ingrese su promedio obtenido";
        Leer promedio;
        Escribir "ingrese el numero de materias perdidas del semestre anterior";
        Leer materiasperdidas;
        Escribir "¿pertenece al curso de sistemas?";
        Leer estudiantesdesistemas;
        Si promedio<3.5 o materiasperdidas>2 Entonces
                       Escribir "debe inscribirse en el curso de matematicas";
        Sino
                       si estudiantesdesistemas=Verdadero Entonces
                                       Escribir "debe inscribirse en el curso de matematicas";
            sino
                                       Escribir "no debe inscribirse";
                                      
                       FinSi
        FinSi
FinProceso

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 reparar_motor
            kilometrosrecorridos<-0;
            motor<-"";
            consumiendoaceite<-Verdadero;
            Escribir "¿el motor es de inyeccion o de carburador?";
            Leer motor;
            Escribir "cantidad de kilometros que ha recorrido";
            Leer kilometrosrecorridos;
            Escribir "¿el motor consume mas de un cuarto de aceite mensual?";
            Leer consumiendoaceite;
            si motor="inyeccion" y kilometrosrecorridos>50000 entonces
                        Escribir "debe ser reparado";
            sino
                        si motor="carburador" y kilometrosrecorridos>70000 Entonces
                                   Escribir "debe ser reparado";
                        Sino
                                   si consumiendoaceite=Verdadero Entonces
                                               Escribir "debe ser reparado";
                                   Sino
                                               Escribir "no debe ser reparado";
                                              
                                   FinSi
                        FinSi
            FinSi
FinProceso

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 video_juego
            puntosobtenidos<-0;
            vidas<-0;
            intentos<-0;
            Escribir "puntos obtenidos";
            Leer puntosobtenidos;
            Escribir "cuantas vidas le quedan";
            Leer vidas;
            Escribir "cuantos intentos realizo";
            Leer intentos;
            si puntosobtenidos>3000 Entonces
                        si vidas>=2 Entonces
                                   si intentos<3 Entonces
                                               Escribir "felicitaciones ganaste";
                                   Sino
                                               Escribir "perdiste";
                                   FinSi
                        Sino
                                   Escribir "perdiste";       
                        FinSi
            Sino
                        Escribir "perdiste";       
            FinSi
FinProceso

*Ejercicio 7 pum

Proceso siete_Pum
            numero<-1;
            condicion<-"s";
            Mientras condicion="s" Hacer
                        Escribir "seguir? Si = s No = n";
                        Si (numero mod 7)=0 Entonces
                                   Escribir "Pum";
                        Sino
                                   Si ((numero-7) mod 10)=0 Entonces
                                   Escribir "Pum";
                                   Sino Escribir numero;
                                   Finsi
                        Finsi    
                        Leer condicion;
                        numero<- numero+1;
            FinMientras
FinProceso

*Un policía de transito necesita saber si debe imponer un comparendo a un conductor,
-para eso se guia por las siguientes normas:
-Está prohibido conducir si se tiene menos de 16 años
-Está prohibido conducir sin licencia de conducción
Proceso Comparendo             
            edad<-0;
            licencia<-Falso;
            Escribir "¿Tiene Licencia de conducir?";
            Leer licencia;
            Escribir "Ingrese la edad del conductor";
            Leer edad;
                        Si licencia= Falso Entonces
                                   Si edad<16 Entonces
                                               Escribir "Comparendo por no tener licencia ni edad para manejar";
                                   Sino
                                               Escribir "Se aplicara comparendo por no tener licencia";
                                   FinSi
                        Sino
                                   Escribir "Puede avanzar";
                        FinSi
FinProceso


Proceso Comparendo             
            edad<-0;
            licencia<-Verdadero;
            vigencia<-Verdadero;
            Escribir "Ingrese la edad del conductor";
            Leer edad;
            Escribir "¿Tiene Licencia de conducir?";
            Leer licencia;
            Escribir "¿Esta vigente?";
            Leer vigencia;
            Si edad>=16 Entonces
                        Si licencia= Verdadero Entonces
                                   Si vigencia=Verdadero Entonces
                                               Escribir "Puede avanzar";
                                   Sino
                                               Escribir "Se aplicara comparendo";
                                   FinSi
                        FinSi
            Sino Escribir "Se aplicará comparendo";          
FinSi
FinProceso


Proceso Comparendo             
            edad<-0;
            licencia<-Falso;
            vigencia<-Falso;
            Escribir "Ingrese la edad del conductor";
            Leer edad;
            Si edad>=16 Entonces
                        Escribir "¿Tiene Licencia de conducir?";
                        Leer licencia;
                        Si licencia= Verdadero Entonces
                                   Escribir "¿Esta vigente?";
                                    Leer vigencia;
                                   Si vigencia=Verdadero Entonces
                                               Escribir "Puede avanzar";
                                   Sino
                                               Escribir "Se aplicara comparendo por no estar vigente";
                                   FinSi
                        Sino
                                   Escribir "Se aplicara comparendo por no tener licencia";
                        FinSi
            Sino Escribir "Se aplicará comparendo por no cumplir la edad";           
            FinSi
FinProceso

*Números pares menores que 100

Proceso Pares_menores_que_100
            n<-2;
            Mientras n<=100 Hacer
            Escribir n;
            n<-n+2;
            FinMientras
FinProceso

*En una sala de urgencia se atenderá de forma prioritaria a una paciente si:
-Está embarazada
-Tiene más de 37º de temperatura
-Si el paciente es menor de 10 años
-Si el paciente está inconsciente

Proceso Sala_de_urgencias
            embarazada<-Verdadero;
            temperatura<-0;
            edad<-0;
            inconsciente<-Verdadero;
            Escribir "¿La paciente esta embarazada?";
            Leer embarazada
            Si embarazada=Verdadero Entonces
                        Escribir "El paciente tiene prioridad para ser atendido"
            Sino
                        Escribir "Ingrese la temperatura del paciente en grados Celsius";
                        Leer temperatura;
                        Si temperatura>37 Entonces
                                   Escribir "El paciente tiene prioridad para ser atendido"
                        Sino
                                   Escribir "Ingrese la edad del estudiante";
                                   Leer edad;
                                   Si edad<=10 Entonces
                                               Escribir "El paciente tiene prioridad para ser atendido"
                                   Sino
                                               Escribir "Diga si el paciente esta inconsciente";
                                               Leer inconsciente;
                                               Si inconsciente=Verdadero Entonces
                                                          
                                                           Escribir "El paciente tiene prioridad para ser atendido"
                                               Sino Escribir "El paciente tiene que esperar para ser atendido...";
                                               FinSi
                                   FinSi
                        FinSi
            FinSi
FinProceso

*Preguntele al usuario una serie de números, mientras que los números ingresados sean menores que que 100

Proceso Pedir_usuario_nmc
            n<-0;
            Mientras n<100 Hacer
                        Escribir "Ingrese un numero";
                        Leer n;
            FinMientras
FinProceso

*Determinar si un estudiante de I Semestre de Sistema la Dorada necesita carta de autorización para el viaje.

Proceso Carta_de_autorización
            edad<-0;
            Escribir "Ingrese la edad del estudiante";
            Leer edad;
            Si edad<18 Entonces
                        Escribir "Este estudiante necesita carta de autorización";
            Sino
        Escribir "El estudiante NO necesita carta de autorización";
            FinSi
FinProceso

*Un policía de transito necesita saber si debe imponer un comparendo a un conductor,
para eso se guia por las siguientes normas:
-Está prohibido conducir si se tiene menos de 16 años
-Está prohibido conducir sin licencia de conducción

Proceso Comparendo             
            edad<-0;
            licencia<-Verdadero;
            Escribir "Ingrese la edad del conductor"
            Leer edad;
            Escribir "¿Tiene Licencia de conducir?"
            Leer licencia;
            Si edad>16 Entonces
                        Si licencia= Verdadero Entonces
                                   Escribir "Puede continuar";
                        Sino
                                   Escribir "Se aplicara comparendo";
                        FinSi
            Sino Escribir "Se aplicará comparendo";          
FinSi
FinProceso

*En una universidad quieren un programa para saber si deben invitar a un estudiante
a hacer parte del equipo de Baloncesto, para eso se requiere que el estudiante
mida más de 180 cm de estatura.

Proceso Equipo_de_Baloncesto
            estatura<-0;
            Escribir "Ingrese estatura del estudiante en centímetros";
            Leer estatura;
            Si estatura>180 Entonces
                        Escribir "Invitar al estudiante";
            FinSi
FinProceso

*Nota o trampa.
Proceso nota_o_trampa
            nota<-0;
            trampa<-Verdadero;
            Escribir "Ingrese nota";
            Leer nota;
            Escribir "¿Hizo trampa?";
            Leer trampa;
            Si nota<3 o trampa=Verdadero Entonces
                        Escribir "Reprobó"
                        Sino Escribir "Aprobó"
            FinSi
FinProceso

Proceso nota_y_trampa
            nota<-0;
            trampa<-Verdadero;
            Escribir "Ingrese nota";
            Leer nota;
            Escribir "¿Hizo trampa?";
            Leer trampa;
            Si nota>=3 y trampa=Falso Entonces
                        Escribir "Aprobó"
                        Sino Escribir "Reprobó"
            FinSi
FinProceso

*Determinar si un número es positivo.

Proceso Numero_positivo
            n<-0;
            Escribir "Ingrese el número";
            Leer n;
            Si n>0 Entonces
                        Escribir "El número es positivo";
            Sino
                        Escribir "El número no es positivo";
            FinSi
FinProceso

*En una sala de urgencia se atenderá de forma prioritaria a una paciente si:
-Está embarazada
-Tiene más de 37º de temperatura

Proceso Sala_de_urgencias
                embarazada<-Verdadero;
                temperatura<-0;
                Escribir "¿La paciente está embarazada?";
                Leer embarazada
                Escribir "Ingrese la temperatura del paciente en grados Celsius";
                Leer temperatura;
                Si embarazada=Verdadero o temperatura>37 Entonces
                               Escribir "Tiene prioridad para ser atendido"
                               Sino Escribir "No tiene prioridad"
                FinSi
FinProceso

*Si aprobó o no.

Proceso Nota_final
                nota_final<-0;
                Escribir "Ingrese la Nota Final del estudiante";
                Leer nota_final;
                Si nota_final>=3 Entonces
                               Escribir "Aprobó"
                               Sino Escribir "Reprobó"
                FinSi
FinProceso