Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta
{Mira para empezar tendras que crear un archivo de informacion de la pregunta su respuesta y 2 gazaposcomo podras ver en estas lineas espero esto sea lo que vuscas el resto espero lo soluciones tu si no dimelo
y intentare darte mas datos suerte}program millonario;
uses
crt;
const
archi : string = 'Lospregu.dat';
type
string80 = string[80];
preguntas = record pregt : string80; respt : string80;gaz1, gaz2 : string80;
end;
var
f : file of preguntas; toma : preguntas; cont : integer; respuesta : boolean;pregun : array[1..10] of preguntas;
procedure guarda_preguntas(t : preguntas);
begin
assign(f,archi);
{$I-} reset(f); {$I+}
if ioresult <> 0 then
begin
rewrite(f);
seek(f,0);
write(f,t);
close(f);
end
else
begin
seek(f,filesize(f));
write(f,t);
close(f);
end;
end;
procedure entrada_preguntas;
var
te : char;begin
clrscr;
gotoxy(10,2);write('****** Entrada Preguntas Del Juego ******');
gotoxy(3,4);write('ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ');
gotoxy(3,5);write('³ Pregunta : ³Û');
gotoxy(3,6);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û');
gotoxy(3,7);write('³ Respuestas ³Û');
gotoxy(3,8);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û');
gotoxy(3,9);write('³ Es Cierta : ³Û');
gotoxy(3,10);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û');
gotoxy(3,11);write('³ Gazapo 1 : ³Û');
gotoxy(3,12);write('ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´Û');
gotoxy(3,13);write('³ Gazapo 2 : ³Û');
gotoxy(3,14);write('ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙÛ');
gotoxy(3,15);write(' ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
gotoxy(17,5);readln(toma.pregt);
gotoxy(17,9);readln(toma.respt);
gotoxy(17,11);readln(toma.gaz1);
gotoxy(17,13);readln(toma.gaz2);
gotoxy(10,17);write('<<<<< Datos Correctos [S/N] O [X] = Nada >>>>>>');
repeat
te := upcase(readkey);
until te in['S','N','X'];
if te <> 'X' then
begin
if te = 'S' then
begin
guarda_preguntas(toma);
end
else
entrada_preguntas;
end;
end;
procedure comprueva_pregunta(pre, r : string80);
var
vusca : longint; resp : boolean; dd : preguntas;v, c : integer;
begin
respuesta := false;
resp := false;
assign(f,archi);
{$I-} reset(f); {$I+}
if ioresult <> 0 then
begin
clrscr;
writeln(' Error De Archivo No Encontrado Pulse Una Tecla');
readkey;
end
else
begin
for c := 1 to length(r) do
r[c] := upcase(r[c]);
for vusca := 0 to filesize(f) - 1 do
begin
seek(f,vusca);
read(f,dd);
for v := 1 to length(dd.respt) do
dd.respt[v] := upcase(dd.respt[v]);
if (dd.pregt = pre) and (dd.respt = r) then
begin
resp := true;
break;
end;
end;
if resp = true thenbegin
gotoxy(4,11);write(' $$$$$$$$ Su Respuesta Es Correcta $$$$$$$$');
respuesta := true;
gotoxy(4,13);write(' **** Pulse Una Tecla ****');
readkey;
end
else
begin
gotoxy(4,11);write(' !!!!!!!!! Error Falso Para Otra Sera !!!!!!!!!!');
gotoxy(4,13);write(' **** Pulse Una Tecla ****');
readkey;
end;
close(f);
end;
end;
procedure carga_preguntas_juego;
var
long, g : longint;
begin
assign(f,archi);
{$I-} reset(f); {$I+}
if ioresult <> 0 then
begin
clrscr;
writeln(' Error De Archivo No Encontrado Pulse Una Tecla');
readkey;
end
else
begin
long := filesize(f) - 1;
if long > 10 thenbegin
for g := 0 to 9 do
begin
seek(f,g);
read(f,pregun[g + 1]);
end;
end
else
begin
for g := 0 to long do
begin
seek(f,g);
read(f,pregun[g + 1]);
end;
end;
close(f);
end;
end;
procedure muestra_pregunta(n : integer);
var
tr : char; tomado : string80;begin
clrscr;
carga_preguntas_juego;
gotoxy(2,2);write('ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ');
gotoxy(2,3);write('Û ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿');
gotoxy(2,4);write('Û ³ Pregunta : ³');
gotoxy(2,5);write('Û ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(2,6);write('Û ³ Respuesta [1] : ³');
gotoxy(2,7);write('Û ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(2,8);write('Û ³ Respuesta [2] : ³');
gotoxy(2,9);write('Û ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´');
gotoxy(2,10);write('Û ³ Respuesta [3] : ³');
gotoxy(2,11);write(' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ');
textcolor(14);
gotoxy(17,4);write(pregun[n].pregt);
textcolor(7);
gotoxy(22,6);write(pregun[n].gaz1);
gotoxy(22,8);write(pregun[n].respt);
gotoxy(22,10);write(pregun[n].gaz2);
gotoxy(5,13);write('<<<<<< Elija Respuesta >>>>>>>');
repeat
tr := readkey;
until tr in['1','2','3'];
case tr of
'1' : tomado := copy(pregun[n].gaz1,1,length(pregun[n].gaz1));
'2' : tomado := copy(pregun[n].respt,1,length(pregun[n].respt));
'3' : tomado := copy(pregun[n].gaz2,1,length(pregun[n].gaz2));
end;
if pregun[n].respt = tomado then
begin
gotoxy(10,15);write('******* Contestacion Correcta *********');
gotoxy(10,17);write('>>>>>> Pulse Una Tecla <<<<<<');
readkey;
end
else
begin
gotoxy(10,15);write('******* Contestacion In Correcta *********');
gotoxy(10,17);write('>>>>>> Pulse Una Tecla <<<<<<');
readkey;
end;
end;
procedure menu;
var
salir : boolean; tecla : char;begin
salir := false;
repeat
clrscr;
writeln(' ********** Menu Juego Quien Quiere Ser Millonario *********');
writeln;
writeln(' [E] = Entrada Preguntas');
writeln(' [J] = Jugar');
writeln(' [S] = Salir');
writeln;
writeln(' >>>>>>>>>>> Elija Opcion <<<<<<<<<<<<<');
repeat
tecla := upcase(readkey);
until tecla in['E','J','S'];
clrscr;
case tecla of
'E' : entrada_preguntas;
'J' : muestra_pregunta(1);
'S' : salir := true;
end;
until salir = true;end;
begin
clrscr;
randomize;
menu;
end.