Prueba aptitudinal ferdjjd

Colegio De Bachillerato Fiscal Cap.
Edmundo Chiriboga.
Nombre: Fernando Gushque
Curso: 1BI
Fecha: 2013-06-25
3 Parcial-2 Quimestre
Prueba actitudinal
Programación en Pascal-Informática

Prueba actitudinal
OBJETIVO:
General:
Brindar una idea clara a un estudiante sobre
sus capacidades en lo laboral.
Específicos:
Ofrecer al usuario preguntes con respuestas
acorde a sus gustos e ideas.
Dar una idea específica de lo que a futuro
posiblemente podría ser su profesión.

Prueba actitudinal
JUSTIFICACIÓN
Muchos estudiantes al momento de terminar sus
estudios secundarios no están seguros de que hacer
con sus vidas, no quieren dedicar su tiempo a algo
que no va a ser de su agrado, entonces se pueden
valer de estos test para ayudarse.

Prueba actitudinal
MARCO TEÓRICO:
ANALÍTICO:
Los establecimientos educativos nos ofrecen una
serie de conocimiento con el cual el alumno se
defiende en la vida, pero al momento de salir al
mundo exterior y afrontar una vida nueva, como
decidir qué hacer con su vida y escoger un
trabajo, las divergencias entre sus criterios no se
hacen esperar, en esta busque a una solución se
nos presenta opciones como un test altitudinal en
cual se evalúan nuestros gustos para llegar a dar
una conclusión de una posible carrera, a futuro,
las preguntas en el mismo son solamente para
evaluar las inclinaciones del alumno y ayudarlo,
con un 80% de efectividad, el restante 20% es
decisión del usuario.

Prueba actitudinal
CONCLUCIONES:
Este programa facilitará una elección al usuario de una forma fácil y
sencilla, que puede ser usado de forma eficiente, y con un cierto
grado de realidad y objetividad.
RECOMENDACIONES:
Los programas d este tipo no son 100% confiables, y para su
programación se recomienda tener un compendio más amplio de
preguntas agrupadas en una estructura WHILE DO para acortar las
líneas de código.

Prueba actitudinal
GLOSARIO:
Array: palabra reservada para declarar a un vector dentro de las variables.
Case of: palabra que controla la posibilidad de que se dé o no un cierto proceso,
responde a las decisiones del usuario.
Delay: Palabra reservada usada para retrasar un proceso y permitir al usuario tener una
mejor apreciación de los procesos que se van dando.
Else: palabra reservada usada para expresar la parte negativa de un IF THEN, esta
palabra no debe ir precedida por un “;” en su línea anterior ni posterior, para un mejor
desarrollo debe ser delimitada de un BEGIN y un END.
For to do: contador, suprime el WHILE DO, simplemente se agrega el inicio de la
variable después del FOR y el alcance después del TO.
Gotoxy: comando usado para designar un posición en la pantalla a una línea de
impresión o inserción de datos, (X= [0-80] y Y= [0-25]).
Lenght: extensión para la declaración de variables, permite al usuario ingresar palabras,
es decir caracteres variados.
Normvideo: contrario al TEXTCOLOR suprime esta función y las letras adquiere el color
convencional.
Procedure: comando que acopla una serie de procesos que van a ser usados en el
programa principal, cada vez y cuando se le llame de forma correcta.
Textcolor: función que asigna un color a las letras en la impresión.

Prueba actitudinal
EXPLICACIÓN TÉCNICA GENERAL DE PROCESOS:
Se usan alrededor de nueve variables repartidas en distintos procesos, así se da una
entrada estilizada con el uso de PROCEDURE, después al usuario se le muestra una
presentación y se le pide que ingrese 1 para continuar, la valoración se controla con un
REPEAT-UNTIL, y GOTOXY después se muestra una segunda pantalla o llamado MENU,
en el cual se presenta al usuario 3 opciones.
Al momento de ingresar la elección del usuario se usa REPEAT-UNTIL, para controlar
que los números ingresados se encuentren en el rango asignado, y se controla con un
IF-THEN la opción a ejecutarse.
La opción 1, indica la función del programa principal, se despliegan un total de 10
preguntas, cuyo conteo de respuestas se controla mediante VECTORES, en su totalidad
4, los cuales se reparten en 4 asignaturas, Matemática, Ciencias naturales, Ciencias
sociales y Ciencias técnicas, al final se valorará la profesión acorde al número más alto
de las variables, y se imprime un ventana con las calificaciones del usuario,
presentándose dos opciones.
En la opción 2 se presenta una lista de las profesiones disponibles en las distintas áreas,
dos por cada área.
En la opción número 3 nos encontramos con el manual de usuario en donde se refleja
en trabajo realizado por el programador, posee explicaciones con la palabra reservada
WRITELN.

Prueba actitudinal
LÍNEAS DE CÓDIGO:
program aptitudinal;
uses crt;
Declaraciòn de variables
var d,a,e,i,j:integer;
m: array[1..5]of integer;
-Declaraciòn de
subprogramas
procedure cuadro;
Begin
Control de espacios
for i:=1 to 79 do
begin
gotoxy(i,1);
textcolor(3);
writeln('Û');
normvideo;
end;
for i:=1 to 79 do
begin
gotoxy(i,24);
textcolor(3);
writeln('Û');
normvideo;
end;
for i:=1 to 24 do
begin
gotoxy(1,i);
textcolor(3);
writeln('Û');
normvideo;
end;
for i:=1 to 24 do
begin
gotoxy(79,i);
textcolor(3);
writeln('Û');
normvideo;
end;
End;

procedure membrete;
Declaraciòn de
subprograma que sera
usado como portada
begin
gotoxy(15,3);
textcolor(11);
writeln('COLEGIO DE
BACHILLERATO FICAL
CAP. EDMUNDO
CHIRIBOGA');
normvideo;
textcolor(15);
writeln;
gotoxy(3,5);
writeln('Ä
Programador:
Fernando Gushque','
','1IB');
writeln;
Prueba actitudinal
gotoxy(3,7);
writeln('Este programa
esta destinado a
ayudar a un usuario en
calidad');
gotoxy(3,8);
writeln('de estudiante
recien graduado, a dar
una propuesta
predictiva');
gotoxy(3,9);
writeln('de su carrera a
futuro, considerando
que los resultados en
este');
gotoxy(3,10);
writeln('test son
solamente una guia,
mas no representan un
realidad');
gotoxy(3,11);
writeln('definitiva de su
profesion a futuro');
writeln;
end;

Prueba actitudinal
procedure menu;
Declaraciòn del
programa de menù
principal
begin
textcolor(11);
gotoxy(5,5);
writeln('MENU:');
normvideo;
textcolor(15);
writeln;
gotoxy(5,8);
writeln('El presente
programa cuenta con
las siguientes
opciones:');
writeln;
gotoxy(5,9);
writeln('1.-
CUESTIONARIO
APTITUDINAL.');
gotoxy(5,10);
writeln('2.-
PROFESIONES
DISPONIBLES.');
end;

Prueba actitudinal
procedure
cuestionario;
Parte principal del
programa
begin;
for i:=1 to 4 do
begin
m[i]:=0
end;
begin;
textcolor(11);
writeln('CUESTIONARIO
:');
normvideo;
textcolor(15);
writeln;
writeln(' ',' ','A
continuacion se le
presentara una serie de
10 preguntas:');
writeln;
writeln(' No existe
respuestas
incorrecta.');
writeln;
textcolor(11);
Inicio del cuestionario
writeln('1.ÜÜÜÜÜÜÜÜ
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
ÜÜ');
normvideo;
textcolor(15);
pregunta
writeln(' Me gustan
los animales y las
plantas, y me gustaria
trabajar con ellos');
writeln(' a futuro');
writeln;
alternativas
writeln(' 1.-Si ', '2.-
Posiblemente ', '3.-
Quiza ', '4.-No');

Prueba actitudinal
Validaciòn de selecciòn
until((e=1) or (e=2) or
(e=3) or (e=4));
Acumulaciòn de
puntajes
if(e=1)then
m[2]:=m[2]+4
else
if(e=2)then
m[2]:=m[2]+3
else
if(e=3)then
m[2]:=m[2]+2
else
if(e=4)then
m[2]:=m[2]+1;
X10
El proceso se repite 10
veces con distintas
preguntas
Programación de
subprograma-
impresión de notas
obtenidas-mediante
supociones IF-THEN
begin;
clrscr;
cuadro;
normvideo;
textcolor(11);
gotoxy(3,3);
writeln('PROMEDIOS
OBTENIDOS:');
writeln;
normvideo;
textcolor(15);

Prueba actitudinal
gotoxy(3,5);
Exposición de
calificaciones
writeln('Matematica:
', m[1]);
gotoxy(3,6);
writeln('Ciencias
naturales: ', m[2]);
gotoxy(3,7);
writeln('Ciencias
sociales: ', m[3]);
gotoxy(3,8);
writeln('Ciencias
tecnicas: ', m[4]);
normvideo;
end;
Asignación de
asignaturas ganadores,
por calificación y
posición dentro del
programa
if( (m[1]>=m[2]) and
(m[1]>=m[3]) and
(m[1]>=m[4]))then
begin;
textcolor(11);
gotoxy(3,10);
writeln('
','MATEMATICA');
normvideo;
textcolor(15);
gotoxy(3,11);
writeln('
','Ingenieria en
sistemas y Fisico');
end
else
if( (m[2]>=m[1]) and
(m[2]>=m[3]) and
(m[2]>=m[4]))then
begin;
textcolor(11);
gotoxy(3,10);
writeln(' ','CIENCIAS
NATURALES');
normvideo;
textcolor(15);
gotoxy(3,11);
writeln(' ','Botanico
y Zootecnista');
end

Prueba actitudinal
else
if( (m[3]>=m[2]) and
(m[3]>=m[1]) and
(m[3]>=m[4]))then
begin;
textcolor(11);
gotoxy(3,10);
writeln('
','ESTUDIOS
SOCIALES');
normvideo;
textcolor(15);
gotoxy(3,11);
writeln('
','Historiador y
Abogado');
end
else
if( (m[4]>=m[2]) and
(m[4]>=m[3]) and
(m[4]>=m[1]))then
begin;
textcolor(11);
gotoxy(3,10);
writeln(' ','CIENCIAS
TECNICAS');
normvideo;
textcolor(15);
gotoxy(3,11);
writeln('
','Arquitecto y Pintor
abstracto');
end;
end;

Prueba actitudinal
Digitaciòn de texto-
profeciones
disponibles
procedure trabajos;
begin
writeln;
writeln;
gotoxy(3,3);
textcolor(15);
writeln('Acontinuacion
se pone a
consideracion del
usuario los trabajos a');
gotoxy(3,4);
writeln('los que puede
acceder');
normvideo;
textcolor(11);
gotoxy(3,6);
writeln('MATEMATICA')
;
normvideo;
textcolor(15);
gotoxy(3,7);
writeln('Ingenieria en
sistemas y Fisico');
gotoxy(3,9);
textcolor(11);
writeln('CIENCIAS
NATURALES');
normvideo;
textcolor(15);
gotoxy(3,10);
writeln('Botanico y
Zootecnista');
writeln;
textcolor(11);
gotoxy(3,12);
writeln('ESTUDIOS
SOCIALES');
normvideo;
textcolor(15);
gotoxy(3,13);
writeln('Historiador y
Abogado');
writeln;

Prueba actitudinal
textcolor(11);
gotoxy(3,15);
writeln('CIENCIAS
TECNICAS');
normvideo;
textcolor(15);
gotoxy(3,16);
writeln('Arquitecto y
Pintor abstracto');
normvideo;
end;
Programa de control
general…inserciòn se
subprogramas
BEGIN
clrscr;
cuadro;
membrete;
gotoxy(3,14);
writeln('Ingrese 1 para
continuar');
repeat
gotoxy(3,15);
writeln(' ');
gotoxy(3,15);
readln(a);
until(a=1);
clrscr;
gotoxy(1,1);
cuadro;
gotoxy(5,5);
menu;
Validación para
continuar con los
procesos
repeat
gotoxy(3,15);
writeln(' ');
gotoxy(3,15);
readln(d);
until((d=1) or (d=2) or
(d=3));

Prueba actitudinal
if(d=1)then
Begin
Utilizaciòn de clrscr
para limpiar las
ventanas de manera
constante
clrscr;
gotoxy(3,3);
cuestionario;
end
else
begin
if(d=2)then
clrscr;
cuadro;
gotoxy(3,3);
trabajos;
end;
readkey;
END.
Fin del programa

Prueba aptitudinal ferdjjd

Más contenido relacionado

La actualidad más candente (19)

Destacado (7)

Similar a Prueba aptitudinal ferdjjd (20)

Prueba aptitudinal ferdjjd