Hola!

Registrándote como bakuno podrás publicar, compartir y comunicarte en privado con otros bakuos :D

Regístrame ya!

AUXILIO!! Pascal a C++

J

J0N4P3

Becerro
Desde
20 Mar 2010
Mensajes
44
Hola amigos bakunos tengo un problema mega URGENTE es una tarea que tengo q entregar el jueves 20 de mayo :histerica:.

Consiste en crear un examen de Geografia en turbo C++ y luego codificarlo a lenguaje pascal, ya tengo el programa creado en C++ solo que no tengo ni la mas remota idea de como codificarlo a Pascal he buscado tutoriales pero nada me ayuda y nada mas estoy mas confundido y ya no se que hacer alguien que sepa manejar pascal que me pueda explicar o que me pasen un link con un tutorial que no me confunda porfavor:)

Ya se que les estoy pidiendo un mega favor y creanme que no fue por flojera el no estudiar, solo que he estado muy ocupado :S

Posteo esto porque me convenci de que no pierdo nada intentando conseguir ayuda aqui, les pido de favor que no pongan comentarios insultantes ni nada por el estilo

de antemano gracias

Les pongo el programa terminado en C++ por si les sirve de algo
Código: 
#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
#include<graphics.h>
main()
{
int total,puntos,opcion,acierto[5];
char res;
clrscr();
textcolor(3);
cprintf("GEOGRAFIA TERCER SEMESTRE\n");
printf("Profesor: ARQ. MARTIN TORRES SILVA\n");
printf("1:EXAMEN PRIMER CORTE\n");
printf("2:EXAMEN SEGUNDO CORTE \n");
printf("3:EXAMEN TERCER CORTE\n");
printf("4:EXAMEN CUARTO CORTE\n");
printf("\n");
printf("Teclea el numero del examen a realizar: ");
scanf("%d",&opcion);
clrscr();
switch (opcion) {
case 1:
printf("EXAMEN DEL PRIMER CORTE \n\n\nInstrucciones: Teclea a,b,c o d segun corresponda a la opcion que elijas.");
printf("\n\n1.- Pertenece a la geografia fisica: ");
printf("\n\na)Economia.");
printf("\n\nb)Climatologia");
printf("\n\nc)Ecologia");
printf("\n\nd)Sociologia");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='b') {
acierto[1]=1;
printf("Correcto\n");
}
else {
acierto[1]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n2.- Es auxiliar de la geografia humana: ");
printf("\n\na)Economia");
printf("\n\nb)Geologia");
printf("\n\nc)Metereologia");
printf("\n\nd)Botanica");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[2]=1;
printf("Correcto\n");
}
else {
acierto[2]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n3.- Es ciencia de la geografia biologica: ");
printf("\n\na)Ecologia");
printf("\n\nb)Ocenografia");
printf("\n\nc)Antropologia");
printf("\n\nd)Paleontologia");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[3]=1;
printf("Correcto\n");
}
else {
acierto[3]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n4.- Una de las ciencias de la Tierra : ");
printf("\n\na)Demografia");
printf("\n\nb)Historia");
printf("\n\nc)Geologia");
printf("\n\nd)Biologia");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='c') {
acierto[4]=1;
printf("Correcto\n");
}
else {
acierto[4]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n5.- Fisica, Biologica y Humana son divisiones de la: ");
printf("\n\na)Demografia");
printf("\n\nb)Geologia");
printf("\n\nc)Biologia");
printf("\n\nd)Geografia General");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='d') {
acierto[5]=1;
printf("Correcto");
}
else {
acierto[5]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n6.-Las ciencias de la Tierra estudian a nuestro planeta como: ");
printf("\n\na)Satelite");
printf("\n\nb)Astro");
printf("\n\nc)Estrella");
printf("\n\nd)Galaxia");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='b') {
acierto[6]=1;
printf("Correcto");
}
else {
acierto[6]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n7.- Ayuda a la geologia y trata del origen y evolucion de la vida: ");
printf("\n\na)Petrografia");
printf("\n\nb)Minerologia");
printf("\n\nc)Paleontologia");
printf("\n\nd)Edafologia");
printf("\n\n\nTu repuesta: ");
scanf("%s",&res);
if (res=='c') {
acierto[7]=1;
printf("Correcto");
}
else {
acierto[7]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n8.- La geografia es una ciencia mixta, porque estudia aspectos: ");
printf("\n\na)Naturales-Sociales");
printf("\n\nb)Biologicos-Quimicos");
printf("\n\nc)Sociales-Demograficos");
printf("\n\nc)Fisico-Quimicos");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[8]=1;
printf("Correcto");
}
else {
acierto[8]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n9.- Su estudio se refiere a todas las capas de la Tierra:");
printf("\n\na)Ecologia");
printf("\n\nb)Geografia");
printf("\n\nc)Meteorologia");
printf("\n\nd)Estratigrafia ");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='c') {
acierto[9]=1;
printf("Correcto");
}
else {
acierto[9]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n10.-Se le denomina padre de la geografia moderna: ");
printf("\n\na)Emmanuel D’ Martone");
printf("\n\nb)Carl Ritter");
printf("\n\nc)Alexander von Humboldt");
printf("\n\nd)Federico Ratzel");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[10]=1;
printf("Correcto");
}
else {
acierto[10]=0;
printf("Incorrecto");
}
getch();
clrscr();
total=acierto[1]+acierto[2]+acierto[3]+acierto[4]+acierto[5]+acierto[6]+acierto[7]+acierto[8]+acierto[9]+acierto[10];
printf("\n\nTu calificacion es de: %d",total);
printf("\n\n...Recuerda : el espacio es mi calle , es mi escuela, es mi casa ... es la Tierra...");
getch();
break;
case 2:
printf("EXAMEN DEL SEGUNDO CORTE \n\n\nInstrucciones: Teclea a,b,c o d segun corresponda a la opcion que elijas.");
printf("\n\n1.- Cuerpos del tamaño de una estrella, cuya emision de energia son ondas de radio que alcanzan toda una galaxia: ");
printf("\n\na)Cuasares.");
printf("\n\nb)Cometas");
printf("\n\nc)Galaxias");
printf("\n\nd)Universos");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[1]=1;
printf("Correcto\n");
}
else {
acierto[1]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n)2.- Son astros que no tienen luz propia cuyo significado es vagabundo: ");
printf("\n\na)Cometas");
printf("\n\nb)Cuasares");
printf("\n\nc)Estrellas");
printf("\n\nd)Asteroides");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[2]=1;
printf("Correcto\n");
}
else {
acierto[2]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n3.-Pluton es el unico planeta degradado por la falta de gravedad, peso,forma esferica y una orbita propia regular, por lo cual hace poco se convirtio en: ");
printf("\n\na)Asteroide");
printf("\n\nb)Estrella");
printf("\n\nc)Meteorito");
printf("\n\nd)Cuasar");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[3]=1;
printf("Correcto\n");
}
else {
acierto[3]=0;
printf("Correcto");
}
getch();
clrscr();
printf("\n\n\n4.-Ha sido considerado un elemento de culto, admiracion y estudio; tiene un núcleo, granulos, faculas, manchas, cromosfera y una gran corona luminosa que nos da calor, energia, vida: ");
printf("\n\na)Asteroide");
printf("\n\nb)Cometa");
printf("\n\nc)Sol");
printf("\n\nd)Estrella");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='c') {
acierto[4]=1;
printf("Correcto\n");
}
else {
acierto[4]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n5.-Son vacios en el espacio y en el tiempo dentro del universo y se forman cuando el gas y el polvo interestelares de una nebulosa se condensan y forma una protoestrella que emite flujos de materia: ");
printf("\n\na)Cuasares");
printf("\n\nb)Galaxia");
printf("\n\nc)Explocion estelar");
printf("\n\nd)Agujeros negros");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='d') {
acierto[5]=1;
printf("Correcto");
}
else {
acierto[5]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n6.-Solo le conocemos una cara pues su movimiento es isocrono, sin embargo determina los ciclos de cultivo, pues tiene gran influencia en las masas de agua terrestres: ");
printf("\n\na)Luna");
printf("\n\nb)Sol");
printf("\n\nc)Cometa");
printf("\n\nd)pluton");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[6]=1;
printf("Correcto");
}
else {
acierto[6]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n7.- Asi se les llama a las masas de agua tanto oceánicas como continentales: ");
printf("\n\na)Capa Granitica");
printf("\n\nb)Biosfera");
printf("\n\nc)Hidrosfera");
printf("\n\nd)Mesosfera");
printf("\n\n\nTu repuesta: ");
scanf("%s",&res);
if (res=='c') {
acierto[7]=1;
printf("Correcto");
}
else {
acierto[7]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n8.- Formado principalmente de Niquel y Fierro, reside aquí la gravedad de la Tierra, pues alcanza presiones de hasta cuatro millones de veces mas alta que en la superficie ; su temperatura es de cinco mil grados: ");
printf("\n\na)Nucleo Interno");
printf("\n\nb)Nucleo Externo");
printf("\n\nc)AStenosfera");
printf("\n\nd)Litosfera");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[8]=1;
printf("Correcto");
}
else {
acierto[8]=0;
printf("Incorrecto");
}
getch();clrscr();
printf("\n\n\n9.- Cosmogonista aleman que habla de un proceso de agregacion en la formacion de todos los elementos del sistema:");
printf("\n\na)Carl von Weizsacker");
printf("\n\nb)Kant");
printf("\n\nc)Moulton");
printf("\n\nc)Chamberlain");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[9]=1;
printf("Correcto");
}
else {
acierto[9]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n10.-Materias que colaboran para obtener modelos mas exactos de nuestro planeta: ");
printf("\n\na)Fisica y quimica");
printf("\n\nb)Geografia y paleontologia");
printf("\n\nc)Hidraulica y mecanica");
printf("\n\nd)Cartografia y las matematicas");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='d') {
acierto[10]=1;
printf("Correcto");
}
else {
acierto[10]=0;
printf("Incorrecto");
}
getch();
clrscr();
total=acierto[1]+acierto[2]+acierto[3]+acierto[4]+acierto[5]+acierto[6]+acierto[7]+acierto[8]+acierto[9]+acierto[10];
printf("Tu calificacion es de %d",total);
printf("\n\n...No olvides que la Tierra es un ser viviente que necesita nuestro cuidado, cari¤o y respeto.");
getch();
break;
case 3:
printf("EXAMEN DEL TERCER CORTE \n\n\nInstrucciones: Teclea a,b,c o d segun corresponda");
printf("\n\n1.- Son movimientos oceanicos que se producen por la atraccion de la Luna y el Sol: ");
printf("\n\na)Corrientes marinas.");
printf("\n\nb)Mareas");
printf("\n\nc)Caspio");
printf("\n\nd)olas");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='b') {
acierto[1]=1;
printf("Correcto\n");
}
else {
acierto[1]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n)2.- Es la ciencia que se encarga de estudiar los rios: ");
printf("\n\na)Potamologia");
printf("\n\nb)Limnologia");
printf("\n\nc)Criologia");
printf("\n\nd)Mareomotriz");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[2]=1;
printf("Correcto\n");
}
else {
acierto[2]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n3.-A las corrientes que se forman debido a la infiltracion de agua de lluvia se les llama: ");
printf("\n\na)Subterraneas");
printf("\n\nb)Mareas");
printf("\n\nc)Aguas cloacales");
printf("\n\nd)Oceanos");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[3]=1;
printf("Incorrecto\n");
}
else {
acierto[3]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n4.-Nombre de la energia que se obtiene del aprovechamiento de las mareas : ");
printf("\n\na)Eolica");
printf("\n\nb)Hidraulica");
printf("\n\nc)Mareomotriz");
printf("\n\nd)Solar");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='c') {
acierto[4]=1;
printf("Correcto\n");
}
else {
acierto[4]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n5.-Los lagos que se encuentran en una depresion o fosa son del tipo: ");
printf("\n\na)Océanos");
printf("\n\nb)Oasis");
printf("\n\nc)Mareas");
printf("\n\nd)Tectonico");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='d') {
acierto[5]=1;
printf("Correcto");
}
else {
acierto[5]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n6.-Liquido que cubre el 71% de la superficie terrestre: ");
printf("\n\na)Agua");
printf("\n\nb)Hidrogeno");
printf("\n\nc)Aceite");
printf("\n\nd)Asido");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[6]=1;
printf("Correcto");
}
else {
acierto[6]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n7.- Grandes masas de agua salada que rodean los continentes e islas: ");
printf("\n\na)Lagos");
printf("\n\nb)Rios");
printf("\n\nc)Oceanos");
printf("\n\nd)Mares");
printf("\n\n\nTu repuesta: ");
scanf("%s",&res);
if (res=='c') {
acierto[7]=1;
printf("Correcto");
}
else {
acierto[7]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n8.- Manantial que se ubica en los desiertos: ");
printf("\n\na)Oasis");
printf("\n\nb)Laguna");
printf("\n\nc)Cuenca");
printf("\n\nd)Mar");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[8]=1;
printf("Correcto");
}
else {
acierto[8]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n9.- Edad de un rio sumamente caudaloso formando cascadas y saltos:");
printf("\n\na)Joven");
printf("\n\nb)Viejo");
printf("\n\nc)Naciente");
printf("\n\nc)Creciente");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='a') {
acierto[9]=1;
printf("Correcto");
}
else {
acierto[9]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n10.-Movimientos del mar originados por el impulso del viento: ");
printf("\n\na)Mareas");
printf("\n\nb)Corrientes marinas");
printf("\n\nc)Precipitacion");
printf("\n\nd)Olas");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='d') {
acierto[10]=1;
printf("Correcto");
}
else {
acierto[10]=0;
printf("Incorrecto");
}
getch();
clrscr();
total=acierto[1]+acierto[2]+acierto[3]+acierto[4]+acierto[5]+acierto[6]+acierto[7]+acierto[8]+acierto[9]+acierto[10];
printf("La calificacion es de %d",total);
printf("\n\n...Los misterios del macrocosmos son los mismos que los del microcosmos que hay en tu cuerpo...CONOCELOS");
getch();
break;
case 4:
printf("EXAMEN DEL CUARTO CORTE \n\n\nInstrucciones: Contesta con una (v) si es verdadero o con una (f) si es falso el enunciado");
printf("\n\n1.- La Troposfera es la primer capa de la atmosfera y es también la mas importante. ");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='f') {
acierto[1]=1;
printf("Correcto\n");
}
else {
acierto[1]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n2.- El azul del cielo se debe a que el aire corre la luz blanca del Sol hacia ese color.");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='v') {
acierto[2]=1;
printf("Correcto\n");
}
else {
acierto[2]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n3.- En la Estratosfera se originan la mayor parte de los fenomenos meteorologicos. ");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='f') {
acierto[3]=1;
printf("Correcto\n");
}
else {
acierto[3]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n4.- Tambien la estratosfera es llamada Ozonosfera por la formacion de capas de ozono. ");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='v') {
acierto[4]=1;
printf("Correcto\n");
}
else {
acierto[4]=0;
printf("Incorrecto\n");
}
getch();
clrscr();
printf("\n\n\n5.- ) La luminiscencia atmosferica se presenta constantemente en la Mesosfera. ");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='v') {
acierto[5]=1;
printf("Correcto");
}
else {
acierto[5]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n6.-A los 120 kms. de altura se encuentran las bandas de bioxido de carbono que contiene la Mesosfera ");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='f') {
acierto[6]=1;
printf("Correcto");
}
else {
acierto[6]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n7.- En la Ionosfera la temperatura es muy agradable pues los rayos solares son atenuados por el oxigeno y el hidrogeno. ");
printf("\n\n\nTu repuesta: ");
scanf("%s",&res);
if (res=='v') {
acierto[7]=1;
printf("Correcto");
}
else {
acierto[7]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n8.- La Magnetosfera se compone por dos capas electricamente cargadas: la capa E y la capa F. ");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='v') {
acierto[8]=1;
printf("Correcto");
}
else {
acierto[8]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n9.- En la Exosfera los gases como el oxigeno y el nitrogeno repelen el viento solar.");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='f') {
acierto[9]=1;
printf("Correcto");
}
else {
acierto[9]=0;
printf("Incorrecto");
}
getch();
clrscr();
printf("\n\n\n10.-Se le llama isobaras a las lineas que unen puntos de igual presion en los mapas: ");
printf("\n\n\nTu respuesta: ");
scanf("%s",&res);
if (res=='v') {
acierto[10]=1;
printf("Correcto");
}
else {
acierto[10]=0;
printf("Incorrecto");
}
getch();
clrscr();
total=acierto[1]+acierto[2]+acierto[3]+acierto[4]+acierto[5]+acierto[6]+acierto[7]+acierto[8]+acierto[9]+acierto[10];
printf("La calificacion es de %d",total);
printf("\n\n...La atmosfera protege la vida en la Tierra y la hace bella, limpia, plena; asi, en estas fiestas, protege tu vida con la atmosfera que nace de ti y te rodea: tus positivos pensamientos…");
getch();
break;
default:
sentencia:printf("La opcion escogida no es valida");
break;
}/*switch*/
getch();
}/*main*/
 
Te recomiendo que así como ya tienes el código fuente en C++, crees el diagrama de flujo o pseudocódigo correspondiente, pasar de eso a Pascal ya no será muy complicado.

Si necesitas un tutorial de Pascal, busca en la sección de e-books, puede haber alguno, si no es así, postea en este mismo tema y veré si te consigo alguno.
 
Gracias :D

No encontre nada en la seccion de E-books y estoy mas o menos como empeze :S pero gracias por responderme y contribuir tanto aqui en Ba-k :metal:
 
Intento en Pascal

iba a editar el mensaje original pero ya esta bien largo para ponerle mas cosas :eolo:

Ayer estuve trabajando en el programa y checando tutoriales y esto es lo segun yo hice :cansado:

El programa me marca el error 86 y dice ":" expected y ya tengo dudas mas concretas, ¿en pascal como se declara la variable? por ejemplo en C++ le pongo
scanf("%d",&opcion); en pascal solo seria readln(opcion);??? o como para lo que dice acierto[10] asi se hace en C++ en pascal como se hace o que? y los if estan bien?

Ya no se que hacer mañana tengo que entregarlo, si hay alguien que sepa mas o menos me podrian decir donde estan mis errores, o como corregirlos o algo lo que sea es bueno :vientos: GRACIAS xD

Código: 
program proyecto;
uses crt;
var total,puntos,opcion,acierto[10]:integer;
res:char;
begin 
clrscr;
writeln('GEOGRAFIA TERCER SEMESTRE\n');
writeln('Profesor: ARQ. MARTIN TORRES SILVA\n');
writeln('1:EXAMEN PRIMER CORTE\n');
writeln('2:EXAMEN SEGUNDO CORTE \n');
writeln('3:EXAMEN TERCER CORTE\n');
writeln('4:EXAMEN CUARTO CORTE\n');
writeln('\n');
writeln('Teclea el numero del examen a realizar: ');
readln(opcion);
clrscr;
case opcion of
1:begin
writeln('EXAMEN DEL PRIMER CORTE \n\n\nInstrucciones: Teclea a,b,c o d segun corresponda a la opcion que elijas.');
writeln('\n\n1.- Pertenece a la geografia fisica: ');
writeln('\n\na)Economia.');
writeln('\n\nb)Climatologia');
writeln('\n\nc)Ecologia');
writeln('\n\nd)Sociologia');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='b' then acierto[1]=1;writeln('Correcto\n');
else acierto[1]=0;writeln('Incorrecto\n');
readln
end. 
clrscr;
writeln('\n\n2.- Es auxiliar de la geografia humana: ');
writeln('\n\na)Economia');
writeln('\n\nb)Geologia');
writeln('\n\nc)Metereologia');
writeln('\n\nd)Botanica');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[2]=1;writeln('Correcto\n');
else acierto[2]=0;writeln('Incorrecto\n');
readln 
end.
clrscr;
writeln('\n\n\n3.- Es ciencia de la geografia biologica: ');
writeln('\n\na)Ecologia');
writeln('\n\nb)Ocenografia');
writeln('\n\nc)Antropologia');
writeln('\n\nd)Paleontologia');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[3]=1;writeln('Correcto\n');
else acierto[3]=0;writeln('Incorrecto\n');
readln 
end.
clrscr;
writeln('\n\n\n4.- Una de las ciencias de la Tierra : ');
writeln('\n\na)Demografia');
writeln('\n\nb)Historia');
writeln('\n\nc)Geologia');
writeln('\n\nd)Biologia');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='c' then acierto[4]=1;writeln('Correcto\n');
else acierto[4]=0;writeln('Incorrecto\n');
readln
end.
clrscr;
writeln('\n\n\n5.- Fisica, Biologica y Humana son divisiones de la: ');
writeln('\n\na)Demografia');
writeln('\n\nb)Geologia');
writeln('\n\nc)Biologia');
writeln('\n\nd)Geografia General');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='d' then acierto[5]=1;writeln('Correcto');
else acierto[5]=0;writeln('Incorrecto');
readln
end.
clrscr;
writeln('\n\n\n6.-Las ciencias de la Tierra estudian a nuestro planeta como: ');
writeln('\n\na)Satelite');
writeln('\n\nb)Astro');
writeln('\n\nc)Estrella');
writeln('\n\nd)Galaxia');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='b' then acierto[6]=1;writeln('Correcto');
else acierto[6]=0;writeln('Incorrecto');
readln
end.
clrscr;
writeln('\n\n\n7.- Ayuda a la geologia y trata del origen y evolucion de la vida: ');
writeln('\n\na)Petrografia');
writeln('\n\nb)Minerologia');
writeln('\n\nc)Paleontologia');
writeln('\n\nd)Edafologia');
writeln('\n\n\nTu repuesta: ');
readln(res);
if res='c' then acierto[7]=1;writeln('Correcto');
else acierto[7]=0;writeln('Incorrecto');
 
readln
end.
clrscr;
writeln('\n\n\n8.- La geografia es una ciencia mixta, porque estudia aspectos: ');
writeln('\n\na)Naturales-Sociales');
writeln('\n\nb)Biologicos-Quimicos');
writeln('\n\nc)Sociales-Demograficos');
writeln('\n\nc)Fisico-Quimicos');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a'then acierto[8]=1;writeln('Correcto');
else acierto[8]=0;writeln('Incorrecto');
readln
end.
clrscr;
writeln('\n\n\n9.- Su estudio se refiere a todas las capas de la Tierra:');
writeln('\n\na)Ecologia');
writeln('\n\nb)Geografia');
writeln('\n\nc)Meteorologia');
writeln('\n\nd)Estratigrafia ');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='c' then acierto[9]=1;writeln('Correcto');
else acierto[9]=0;writeln('Incorrecto');
readln
end.
clrscr;
writeln('\n\n\n10.-Se le denomina padre de la geografia moderna: ');
writeln('\n\na)Emmanuel D’ Martone');
writeln('\n\nb)Carl Ritter');
writeln('\n\nc)Alexander von Humboldt');
writeln('\n\nd)Federico Ratzel');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[10]=1;writeln('Correcto');
else acierto[10]=0;writeln('Incorrecto');
 
readln
end.
clrscr;
total=acierto[1]+acierto[2]+acierto[3]+acierto[4]+acierto[5]+acierto[6]+acierto[7]+acierto[8]+acierto[9]+acierto[10];
writeln('\n\nTu calificacion es de: %d',total);
writeln('\n\n...Recuerda : el espacio es mi calle , es mi escuela, es mi casa ... es la Tierra...'); 
end;
2:begin
writeln('EXAMEN DEL SEGUNDO CORTE \n\n\nInstrucciones: Teclea a,b,c o d segun corresponda a la opcion que elijas.');
writeln('\n\n1.- Cuerpos del tamaño de una estrella, cuya emision de energia son ondas de radio que alcanzan toda una galaxia: ');
writeln('\n\na)Cuasares.');
writeln('\n\nb)Cometas');
writeln('\n\nc)Galaxias');
writeln('\n\nd)Universos');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[1]=1;writeln('Correcto\n');
else acierto[1]=0;writeln('Incorrecto\n'); 
readln
end.
clrscr;
writeln('\n\n)2.- Son astros que no tienen luz propia cuyo significado es vagabundo: ');
writeln('\n\na)Cometas');
writeln('\n\nb)Cuasares');
writeln('\n\nc)Estrellas');
writeln('\n\nd)Asteroides');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[2]=1;writeln('Correcto\n');
else acierto[2]=0;writeln('Incorrecto\n');
 
readln
end.
clrscr;
writeln('\n\n\n3.-Pluton es el unico planeta degradado por la falta de gravedad, peso,forma esferica y una orbita propia regular, por lo cual hace poco se convirtio en: ');
writeln('\n\na)Asteroide');
writeln('\n\nb)Estrella');
writeln('\n\nc)Meteorito');
writeln('\n\nd)Cuasar');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[3]=1;writeln('Correcto\n');
else acierto[3]=0;writeln('Correcto');
readln
end. 
clrscr;
writeln('\n\n\n4.-Ha sido considerado un elemento de culto, admiracion y estudio; tiene un núcleo, granulos, faculas, manchas, cromosfera y una gran corona luminosa que nos da calor, energia, vida: ');
writeln('\n\na)Asteroide');
writeln('\n\nb)Cometa');
writeln('\n\nc)Sol');
writeln('\n\nd)Estrella');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='c' then acierto[4]=1;writeln('Correcto\n');
else acierto[4]=0;writeln('Incorrecto\n');
readln
end.
clrscr;
writeln('\n\n\n5.-Son vacios en el espacio y en el tiempo dentro del universo y se forman cuando el gas y el polvo interestelares de una nebulosa se condensan y forma una protoestrella que emite flujos de materia: ');
writeln('\n\na)Cuasares');
writeln('\n\nb)Galaxia');
writeln('\n\nc)Explocion estelar');
writeln('\n\nd)Agujeros negros');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='d' then acierto[5]=1;writeln('Correcto');
else acierto[5]=0;writeln('Incorrecto');
 
readln
end. 
clrscr;
writeln('\n\n\n6.-Solo le conocemos una cara pues su movimiento es isocrono, sin embargo determina los ciclos de cultivo, pues tiene gran influencia en las masas de agua terrestres: ');
writeln('\n\na)Luna');
writeln('\n\nb)Sol');
writeln('\n\nc)Cometa');
writeln('\n\nd)pluton');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[6]=1;writeln('Correcto');
else acierto[6]=0;writeln('Incorrecto');
 
readln
end.
clrscr;
writeln('\n\n\n7.- Asi se les llama a las masas de agua tanto oceánicas como continentales: ');
writeln('\n\na)Capa Granitica');
writeln('\n\nb)Biosfera');
writeln('\n\nc)Hidrosfera');
writeln('\n\nd)Mesosfera');
writeln('\n\n\nTu repuesta: ');
readln(res);
if res='c'then acierto[7]=1;writeln('Correcto');
else acierto[7]=0;writeln('Incorrecto');
readln
end.
clrscr;
writeln('\n\n\n8.- Formado principalmente de Niquel y Fierro, reside aquí la gravedad de la Tierra, pues alcanza presiones de hasta cuatro millones de veces mas alta que en la superficie ; su temperatura es de cinco mil grados: ');
writeln('\n\na)Nucleo Interno');
writeln('\n\nb)Nucleo Externo');
writeln('\n\nc)AStenosfera');
writeln('\n\nd)Litosfera');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[8]=1;writeln('Correcto');
else acierto[8]=0;writeln('Incorrecto');
readln
end.
clrscr;
writeln('\n\n\n9.- Cosmogonista aleman que habla de un proceso de agregacion en la formacion de todos los elementos del sistema:');
writeln('\n\na)Carl von Weizsacker');
writeln('\n\nb)Kant');
writeln('\n\nc)Moulton');
writeln('\n\nc)Chamberlain');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[9]=1;writeln('Correcto');
else acierto[9]=0;writeln('Incorrecto');
readln
end.
clrscr;
writeln('\n\n\n10.-Materias que colaboran para obtener modelos mas exactos de nuestro planeta: ');
writeln('\n\na)Fisica y quimica');
writeln('\n\nb)Geografia y paleontologia');
writeln('\n\nc)Hidraulica y mecanica');
writeln('\n\nd)Cartografia y las matematicas');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='d' then acierto[10]=1;writeln('Correcto');
else acierto[10]=0;writeln('Incorrecto');
readln
end.
clrscr;
total=acierto[1]+acierto[2]+acierto[3]+acierto[4]+acierto[5]+acierto[6]+acierto[7]+acierto[8]+acierto[9]+acierto[10];
writeln('Tu calificacion es de %d',total);
writeln('\n\n...No olvides que la Tierra es un ser viviente que necesita nuestro cuidado, cari¤o y respeto.');
end; 
3:begin
writeln('EXAMEN DEL TERCER CORTE \n\n\nInstrucciones: Teclea a,b,c o d segun corresponda');
writeln('\n\n1.- Son movimientos oceanicos que se producen por la atraccion de la Luna y el Sol: ');
writeln('\n\na)Corrientes marinas.');
writeln('\n\nb)Mareas');
writeln('\n\nc)Caspio');
writeln('\n\nd)olas');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='b' then acierto[1]=1;writeln('Correcto\n');
else acierto[1]=0;writeln('Incorrecto\n');
readln 
end.
clrscr;
writeln('\n\n)2.- Es la ciencia que se encarga de estudiar los rios: ');
writeln('\n\na)Potamologia');
writeln('\n\nb)Limnologia');
writeln('\n\nc)Criologia');
writeln('\n\nd)Mareomotriz');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[2]=1;writeln('Correcto\n');
else acierto[2]=0;writeln('Incorrecto\n');
readln 
end. 
clrscr;
writeln('\n\n\n3.-A las corrientes que se forman debido a la infiltracion de agua de lluvia se les llama: ');
writeln('\n\na)Subterraneas');
writeln('\n\nb)Mareas');
writeln('\n\nc)Aguas cloacales');
writeln('\n\nd)Oceanos');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[3]=1;writeln('Incorrecto\n');
else acierto[3]=0;writeln('Incorrecto\n');
readln
end.
clrscr;
writeln('\n\n\n4.-Nombre de la energia que se obtiene del aprovechamiento de las mareas : ');
writeln('\n\na)Eolica');
writeln('\n\nb)Hidraulica');
writeln('\n\nc)Mareomotriz');
writeln('\n\nd)Solar');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='c' then acierto[4]=1;writeln('Correcto\n');
else acierto[4]=0;writeln('Incorrecto\n');
readln 
end.
clrscr;
writeln('\n\n\n5.-Los lagos que se encuentran en una depresion o fosa son del tipo: ');
writeln('\n\na)Océanos');
writeln('\n\nb)Oasis');
writeln('\n\nc)Mareas');
writeln('\n\nd)Tectonico');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='d' then acierto[5]=1;writeln('Correcto');
else acierto[5]=0;writeln('Incorrecto');
readln
end. 
clrscr;
writeln('\n\n\n6.-Liquido que cubre el 71% de la superficie terrestre: ');
writeln('\n\na)Agua');
writeln('\n\nb)Hidrogeno');
writeln('\n\nc)Aceite');
writeln('\n\nd)Asido');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[6]=1;writeln('Correcto');
else acierto[6]=0;writeln('Incorrecto');
readln 
end. 
clrscr;
writeln('\n\n\n7.- Grandes masas de agua salada que rodean los continentes e islas: ');
writeln('\n\na)Lagos');
writeln('\n\nb)Rios');
writeln('\n\nc)Oceanos');
writeln('\n\nd)Mares');
writeln('\n\n\nTu repuesta: ');
readln(res);
if res='c' then acierto[7]=1;writeln('Correcto');
else acierto[7]=0;writeln('Incorrecto');
readln 
end. 
clrscr;
writeln('\n\n\n8.- Manantial que se ubica en los desiertos: ');
writeln('\n\na)Oasis');
writeln('\n\nb)Laguna');
writeln('\n\nc)Cuenca');
writeln('\n\nd)Mar');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[8]=1;writeln('Correcto');
else acierto[8]=0;writeln('Incorrecto');
readln 
end. 
clrscr;
writeln('\n\n\n9.- Edad de un rio sumamente caudaloso formando cascadas y saltos:');
writeln('\n\na)Joven');
writeln('\n\nb)Viejo');
writeln('\n\nc)Naciente');
writeln('\n\nc)Creciente');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='a' then acierto[9]=1;writeln('Correcto');
else acierto[9]=0;writeln('Incorrecto');
readln
end.
clrscr;
writeln('\n\n\n10.-Movimientos del mar originados por el impulso del viento: ');
writeln('\n\na)Mareas');
writeln('\n\nb)Corrientes marinas');
writeln('\n\nc)Precipitacion');
writeln('\n\nd)Olas');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='d' then acierto[10]=1;writeln('Correcto');
else acierto[10]=0;writeln('Incorrecto');
readln
end.
clrscr;
total=acierto[1]+acierto[2]+acierto[3]+acierto[4]+acierto[5]+acierto[6]+acierto[7]+acierto[8]+acierto[9]+acierto[10];
writeln('La calificacion es de %d',total);
writeln('\n\n...Los misterios del macrocosmos son los mismos que los del microcosmos que hay en tu cuerpo...CONOCELOS');
end;
4:begin
writeln('EXAMEN DEL CUARTO CORTE \n\n\nInstrucciones: Contesta con una (v) si es verdadero o con una (f) si es falso el enunciado');
writeln('\n\n1.- La Troposfera es la primer capa de la atmosfera y es también la mas importante. ');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='f' then acierto[1]=1;writeln('Correcto\n');
else acierto[1]=0;writeln('Incorrecto\n');
readln
clrscr;
writeln('\n\n2.- El azul del cielo se debe a que el aire corre la luz blanca del Sol hacia ese color.');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='v' then acierto[2]=1;writeln('Correcto\n');
else acierto[2]=0;writeln('Incorrecto\n');
readln
end. 
clrscr;
writeln('\n\n\n3.- En la Estratosfera se originan la mayor parte de los fenomenos meteorologicos. ');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='f' then acierto[3]=1;writeln('Correcto\n');
else acierto[3]=0;writeln('Incorrecto');
readln 
end.
clrscr;
writeln('\n\n\n4.- Tambien la estratosfera es llamada Ozonosfera por la formacion de capas de ozono. ');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='v' then acierto[4]=1;writeln('Correcto\n');
else acierto[4]=0;writeln('Incorrecto\n');
readln 
end. 
clrscr;
writeln('\n\n\n5.- ) La luminiscencia atmosferica se presenta constantemente en la Mesosfera. ');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='v' then acierto[5]=1;writeln('Correcto');
else acierto[5]=0;writeln('Incorrecto');
readln 
end. 
clrscr;
writeln('\n\n\n6.-A los 120 kms. de altura se encuentran las bandas de bioxido de carbono que contiene la Mesosfera ');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='f' then acierto[6]=1;writeln('Correcto');
else acierto[6]=0;writeln('Incorrecto');
readln 
end.
clrscr;
writeln('\n\n\n7.- En la Ionosfera la temperatura es muy agradable pues los rayos solares son atenuados por el oxigeno y el hidrogeno. ');
writeln('\n\n\nTu repuesta: ');
readln(res);
if res='v' then acierto[7]=1;writeln('Correcto');
else acierto[7]=0;writeln('Incorrecto');
readln 
end.
clrscr;
writeln('\n\n\n8.- La Magnetosfera se compone por dos capas electricamente cargadas: la capa E y la capa F. ');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='v' then acierto[8]=1;writeln('Correcto');
else acierto[8]=0;writeln('Incorrecto');
readln 
end.
clrscr;
writeln('\n\n\n9.- En la Exosfera los gases como el oxigeno y el nitrogeno repelen el viento solar.');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='f' then acierto[9]=1;writeln('Correcto');
else acierto[9]=0;writeln('Incorrecto');
readln 
end.
clrscr;
writeln('\n\n\n10.-Se le llama isobaras a las lineas que unen puntos de igual presion en los mapas: ');
writeln('\n\n\nTu respuesta: ');
readln(res);
if res='v' then acierto[10]=1;writeln('Correcto');
else acierto[10]=0;writeln('Incorrecto');
readln
end.
clrscr;
total=acierto[1]+acierto[2]+acierto[3]+acierto[4]+acierto[5]+acierto[6]+acierto[7]+acierto[8]+acierto[9]+acierto[10];
writeln('La calificacion es de %d',total);
writeln('\n\n...La atmosfera protege la vida en la Tierra y la hace bella, limpia, plena; asi, en estas fiestas, protege tu vida con la atmosfera que nace de ti y te rodea: tus positivos pensamientos…');
end;
else writeln('la opcion escogida no es valida'); 
end;
readln
end.
 
Me ahorro el citar todo tu código fuente (mismo que te recomiendo coloques entre etiquetas CODE que se ven como # en las opciones avanzadas de edición de comentarios así mantendrá la indentación y será más fácil de leer).

Buscaré un manual de Pascal, sólo una duda, es para la versión 7?
 
Zephyros dijo:
Me ahorro el citar todo tu código fuente (mismo que te recomiendo coloques entre etiquetas CODE que se ven como # en las opciones avanzadas de edición de comentarios así mantendrá la indentación y será más fácil de leer).

Buscaré un manual de Pascal, sólo una duda, es para la versión 7?
Click para expandir ...

si gracias
 
J0N4P3 dijo:
si gracias
Click para expandir ...

De nada compa, cuando se puede ayudar porqué no hacerlo?

Encontré éstos:

Learn Pascal in Three Days, Third Edition:
Código: 
http://ifile.it/crnyfbx/1556228058.rar

Desarrollo de algoritmos y técnicas de programación en Pascal:
Código: 
http://ifile.it/d5x6w9y/223288___algprogenpascal.rar
 
Debes iniciar sesión o registrarte para participar.
Volver
Arriba