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
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*/
