Cita:
Empezado por Caral
Hola
Para mi la pregunta esta bien planteada, lo que me parece es que se deberia especificar el sitio donde se requiere que se haga lo que se necesita y no colocar todo el codigo, asi se iria mas al grano.
Por lo demas esta bien, para mi.
Saludos
|
Muy bien, ahora mismo le pongo el sitio para poder hacer la mejora:
Código:
procedure RobarnCartes();
var
mall3:file of Tcarta;
aux3:Tcarta;
i,n,robat:integer;
begin
Assignfile(mall3,'baralla_a_estudi.car');
Reset(mall3);
writeln('quin nomrbre de cartes vols robar?');
readln(n);
i:=1;
Randomize;
robat:=0;
while (i<=n) do
begin
robat:=1 + random(1);
if (robat=aux3.num) then
begin
Read(mall3,aux3);
Writeln('carta robada numero:',i);
Writeln(aux3.nom);
Writeln(aux3.tipo);
Writeln(aux3.color);
Writeln(aux3.hp);
Writeln(aux3.text_carta1);
Writeln(aux3.text_carta2);
Writeln(aux3.text_carta3);
Writeln(aux3.text_carta4);
Writeln(aux3.debilitat);
Writeln(aux3.resistencia);
Writeln(aux3.costretirada);
i:=i+1;
end;
end;
Closefile(mall3);
end;
Lo que necesito es modificar el módulo que le muestro a continuación para que compile el archivo como una estructura aleatoria, que simule un robo de cartas de un mazo. Eso es todo. Por favor, si me lo puede modificar para que tenga lo que pido, modifiquemelo.
Gracias por adelantado.