Ejercicio N 1

Un alumno desea saber cul ser su promedio general en las tres materias ms difciles que cursa
y cul ser el promedio que obtendr en cada una de ellas. Estas materias se evalan como se
muestra a continuacin:
La calificacin de Matemticas se obtiene de la sig. manera:
Examen 90%
Promedio de tareas 10%

En esta materia se pidi un total de tres tareas.
La calificacin de Fsica se obtiene de la sig. manera:
Examen 80%
Promedio de tareas 20%
En esta materia se pidi un total de dos tareas.
La calificacin de Qumica se obtiene de la sig. manera:
Examen 85%
Promedio de tareas 15%
En esta materia se pidi un promedio de tres tareas.

Proceso sin_titulo
escribir "ingrese la nota del examen de matematica ";
leer examate;
escribir "ingrese las notas de las tareas";
leer tareamat1,tareamat2,tareamat3;
mate <- 0.90 * examate + 0.10 * (tareamat1 + tareamat2 +tareamat3)/3;
escribir "el promedio de matematica es:", mate;
escribir "";
escribir "---------------------------------------------------------";
escribir "ingrese la nota del examen de fisica"
leer exafis;
escribir "ingrese las notas de las tareas";
leer tareafis1,tareafis2;
fisica <- 0.80 * exafis + 0.20 * (tareafis1 + tareafis2 )/2;
escribir "el promedio de fisica es:", fisica;
escribir "---------------------------------------------------------";
escribir "ingrese la nota del examen de quimica";
leer exaquim;
escribir "ingrese las notas de las tareas";
leer tareaquim1,tareaquim2,tareaquim3;
quimica <- 0.85 * exaquim + 0.15 * (tareaquim1 + tareaquim2 + tareaquim3)/3;
escribir "el promedio de quimica es:", quimica;
escribir "---------------------------------------------------------";
escribir "el promedio de los tres cursos es:" ,(mate+fisica+quimica)/3;
FinProceso




Ejercicio N2

Proceso sin_titulo
Repetir
// mostrar menu
Limpiar Pantalla
Escribir "Men de recomendaciones"
Escribir " 1. Literatura"
Escribir " 2. Cine"
Escribir " 3. Msica"
Escribir " 4. Videojuegos"
Escribir " 5. Salir"
// ingresar una opcion
Escribir "Elija una opcin (1-5): "
Leer OP
// procesar esa opcin
Segun OP Hacer
1:
Escribir "Lecturas recomendables:"
Escribir " + Esperndolo a Tito y otros cuentos de fbol (Eduardo Sacheri)"
Escribir " + El juego de Ender (Orson Scott Card)"
Escribir " + El sueo de los hroes (Adolfo Bioy Casares)"
2:
Escribir "Pelculas recomendables:"
Escribir " + Matrix (1999)"
Escribir " + El ltimo samuray (2003)"
Escribir " + Cars (2006)"
3:
Escribir "Discos recomendables:"
Escribir " + Despedazado por mil partes (La Renga, 1996)"
Escribir " + Bfalo (La Mississippi, 2008)"
Escribir " + Gaia (Mgo de Oz, 2003)"
4:
Escribir "Videojuegos clsicos recomendables"
Escribir " + Da del tentculo (LucasArts, 1993)"
Escribir " + Terminal Velocity (Terminal Reality/3D Realms, 1995)"
Escribir " + Death Rally (Remedy/Apogee, 1996)"
5:
Escribir "Gracias, vuelva prontos"
De otro modo:
Escribir "Opcin no vlida"
FinSegun
Escribir "Presione enter para continuar"
Esperar Tecla
Hasta Que OP=5
FinProceso


Ejercicio N 3

// calcula las raices de una ecuacion de segundo grado

Proceso Resolvente

// cargar datos
Escribir "Ingrese el coeficiente A:"
Leer a
Escribir "Ingrese el coeficiente B:"
Leer b
Escribir "Ingrese el coeficiente C:"
Leer c

// determinar si son reales o imaginarias
disc <- b^2-4*a*c
Si disc<0 Entonces
// si son imaginarias
preal<- (-b)/(2*a)
pimag<- rc(-disc)/(2*a)
Escribir "Raiz 1: ",preal,"+",pimag,"i"
Escribir "Raiz 2: ",preal,"-",pimag,"i"
Sino
Si disc=0 Entonces // ver si son iguales o distintas
r <- (-b)/(2*a)
Escribir "Raiz 1 = Raiz 2: ",r
Sino
r1 <- ((-b)+rc(disc))/(2*a)
r2 <- ((-b)-rc(disc))/(2*a)
Escribir "Raiz 1: ",r1
Escribir "Raiz 2: ",r2
FinSi
FinSi

FinProceso













Ejercicio N 5

/ Se ingresa una lista de nombres (la lista termina
// cuando se ingresa un nombre en blanco) no permitiendo
// ingresar repetidos y luego se ordena y muestra

Proceso OrdenaLista

Dimension lista[200]
Escribir "Ingrese los nombres (enter en blanco para terminar):"
cant<-0
Leer nombre
Mientras nombre<>"" Hacer
cant<-cant+1
lista[cant]<-nombre
Repetir // leer un nombre y ver que no este ya en la lista
Leer nombre
se_repite<-Falso
Para i<-1 Hasta cant Hacer
Si nombre=lista[i] Entonces
se_repite<-Verdadero
FinSi
FinPara
Hasta Que NO se_repite
FinMientras

// ordenar
Para i<-1 Hasta cant-1 Hacer
// busca el menor entre i y cant
pos_menor<-i
Para j<-i+1 Hasta cant Hacer
Si lista[j]<lista[pos_menor] Entonces
pos_menor<-j
FinSi
FinPara
// intercambia el que estaba en i con el menor que encontro
aux<-lista[i]
lista[i]<-lista[pos_menor]
lista[pos_menor]<-aux
FinPara

// mostrar como queda la lista
Escribir "La lista ordenada es:"
Para i<-1 Hasta cant Hacer
Escribir " ",lista[i]
FinPara
FinProceso

Ejercicio N 6

Proceso Factorizacion

Escribir "Ingrese el numero: "
Leer num

Escribir "Factorizacion: "

factorizar<-verdadero

Mientras factorizar Y num>1 hacer
div<-0
Si num/2 = trunc(num/2) Entonces
Escribir 2
num<-num/2
Sino
div<-1; factor_primo<-Verdadero
Mientras div<=rc(num) Y factor_primo Hacer
div <- div+2
Si num/div = trunc(num/div) Entonces
factor_primo <- Falso
FinSi
FinMientras
Si factor_primo Entonces
escribir num
factorizar<-falso
sino
escribir div
num<-num/div
factor_primo<-verdadero
FinSi
FinSi
FinMientras

FinProceso












Ejercicio N 7

Proceso Misil

Escribir "Presione una tecla para iniciar el lanzamiento!"
Esperar Tecla


// el arreglo cohete tiene el dibujo del cohete como lineas de texto
dimension cohete[9]
cohete[1]<-" /|\ "
cohete[2]<-" |B| "
cohete[3]<-" |O| "
cohete[4]<-" |M| "
cohete[5]<-" |B| "
cohete[6]<-" //|\\ "
cohete[7]<-" ******* "
cohete[8]<-"* * * * *"
cohete[9]<-" * * * * "

// primero se muestra la primer parte del dibujo y la cuenta regresiva
Para i<-1 hasta 11 Hacer
Borrar Pantalla
Para j<-1 hasta 15 Hacer
Escribir ""
FinPara
Para j<-1 hasta 6 Hacer
Escribir cohete[j]
FinPara
Escribir ""
Escribir "Lanzamiento en ",11-i
Esperar 1 Segundo
FinPara

// despues se muestra el dibujo completo y cada vez mas arriba
Para i<-1 hasta 15 Hacer
Borrar Pantalla
Para j<-i hasta 15 Hacer
Escribir ""
FinPara
Para j<-1 hasta 8 Hacer
Escribir cohete[j]
FinPara
si i>1 Entonces
Escribir " * * * * "
finsi
Esperar 1/i Segundo
FinPara

// finalmente se va modificando el dibujo para hacer la explosion
// estado tiene un entero que dice en que parte de la explosion va cada linea del dibujo
Dimension estado[6]
estado[1]<-3; estado[2]<-2; estado[3]<-1
estado[4]<-2; estado[5]<-3; estado[6]<-4
Para i<-1 hasta 10 Hacer
Borrar Pantalla
Para j<-1 hasta 6 Hacer
Estado[j]<-Estado[j]-1
segun Estado[j] Hacer
0: cohete[j]<-" + "
-1,-5: cohete[j]<-" +X+ "
-2,-4: cohete[j]<-" +XXX+ "
-3: cohete[j]<-" +XXXXX+ "
-6: cohete[j]<-" "
FinSegun
Escribir cohete[j]
FinPara

Esperar .2 Segundos
FinPara

FinProceso
























Ejercicio N 8


Proceso DIFERENCIA_SEGUNDOS
Escribir "Introduce Hora #1"
Leer a
Escribir "Introduce Hora #2"
leer b
Ha1<-a*60
Ha2<-a*1
Ha3<-a*0.0416666666666667
Ha4<-a*3600
Hb1<-b*60
Hb2<-b*1
Hb3<-b*0.0416666666666667
Hb4<-b*3600
Ha4_Hb4<-a*3600-b*3600
Hb4_Ha4<-b*3600-a*3600
escribir "El Resurtado de la Hora #1 en Minuto es " , Ha1 ;
escribir "El Resurtado de la Hora #1 en Hora es " , Ha2 ;
escribir "El Resurtado de la Hora #1 en Dia es " , Ha3 ;
escribir "El Resurtado de la Hora #1 en Segundo es " , Ha4 ;
escribir "El Resurtado de la la Hora #2 Minuto es " , Hb1 ;
escribir "El Resurtado de la la Hora #2 en Hora es " , Hb2 ;
escribir "El Resurtado de la la Hora #2 Dia es " , Hb3 ;
escribir "El Resurtado de la la Hora #2 Segundo es " , Hb4 ;

Escribir "La Diferencia de Segundos de la Hora #1 de la Hora #2 es " , Ha4-Hb4 ;
Escribir "La Diferencia de Segundos de la Hora #2 de la Hora #1 es " , Hb4-Ha4 ;
FinProceso