{Mira esto leerá de un archivo de texto una cadena dependiendo del numero entrado por randomespero que sea esto no se repetirán las palabras fíjate que fijo 10 preguntas}
program juego;
uses
crt;
type
datos = array[0..8192] of char; {Almacen de preguntas 8Kb} const
npreg = 10; {Un total de 10 preguntas para mas aumentar numero} var
archivo : string;
numer : word;
tecla, letra : char;
dat : ^datos;
f : text;
preguntanum : integer;
g, tama : word;
final, memori : boolean;
preguntas : array[1..100] of word;
procedure cargaarchivo(nomb : string);
var
mh, w, k : longint;
cot : word;
begin
numer := 0;
cot := 0;
assign(f,nomb);
{$I-} reset(f); {$I+} if ioresult <> 0 then
begin
writeln(' Error De Archibo Pulse Una Tecla'); readkey;
end
else
begin
k := 0;
while not Eof(F) do
begin
read(f,letra);
dat^[k] := letra;
k := k + 1;
if k > sizeof(datos) then
begin
k := sizeof(datos);
break;
end;
end;
tama := k - 1;
close(f);
mh := 0;
repeat
if dat^[mh] in[#48..#57,#65..#90,#97..#122,#164,#165] then
begin
w := 0;
repeat
w := w + 1;
until (w > 255) or (dat^[mh + w] in[#32,#44,#46]);
if w < 255 then
begin
cot := cot + 1;
mh := mh + w - 1;
end;
end;
mh := mh + 1;
until (mh > tama) or (keypressed);
numer := cot - 1;
end;
end;
procedure buscacadena(nu : word);
var
uy : longint;
frase : string;
z : integer;
cotd : word;
salir : boolean;
begin
cotd := 0;
uy := 0;
salir := false;
fillchar(frase,256,' ');
frase[0] := chr(255);
repeat
if dat^[uy] in[#48..#57,#65..#90,#97..#122,#164,#165] then
begin
z := 0;
repeat
frase[z + 1] := dat^[uy + z];
frase[0] := chr(z + 1);
z := z + 1;
until (z > 255) or (dat^[uy + z] in[#32,#44,#46,#13,#10]);
cotd := cotd + 1;
if cotd = nu then
begin
writeln(' La Pregunta [ ',preguntanum,' ] Es : ',frase); salir := true;
end;
if salir = false then
uy := uy + z - 1;
end;
if salir = false then
uy := uy + 1;
until (salir = true) or (uy > tama);
end;
function jenerapegunta : word;
var
k1, k2 : word;
repe : boolean;
begin
repe := false;
jenerapegunta := 0;
repeat
k1 := random(numer);
for k2 := 1 to g - 1 do
begin
if preguntas[k2] = k1 then
repe := true;
end;
until repe = false;
preguntas[g] := k1;
g := g + 1;
if g > 100 then
g := 100;
if k1 > numer then
k1 := numer;
jenerapegunta := k1;
end;
begin
clrscr;
g := 1;
memori := false;
if memavail >= sizeof(datos) then
begin
getmem(dat,sizeof(datos));
memori := true;
end;
fillchar(preguntas,sizeof(preguntas),0);
writeln(' Esto Seria Un Ejemplo Nombre Archivo A Cargar : aaclave.pas'); writeln;
write(' Entre Nombre De Archivo De Texto : '); readln(archivo);
cargaarchivo(archivo);
randomize;
final := false;
preguntanum := 1;
repeat
clrscr;
buscacadena(jenerapegunta);
preguntanum := preguntanum + 1;
if preguntanum - 1 > npreg then
begin
final := true;
end;
if final = false then
begin
writeln;
writeln(' Para Segir Pulse [ Espacio ] Para Salir Pulse [ Esc ]'); repeat
tecla := readkey;
until tecla in[#32,#27];
if tecla = #32 then
begin
fillchar(preguntas,sizeof(preguntas),0);
clrscr;
end;
end;
until (tecla = #27) or (final = true);
if memori = true then
freemem(dat,sizeof(datos));
end.
Crear cuenta