Program Vida;

Uses crt;

CONST
  min=1;
  max=20;

TYPE
  tpvec=array [min..max,min..max] of char;

procedure Paso(x:integer;y,z:real);
{esta sin hacer pero se supone que es el procedimiento que 
mostrara por pantalla el cambio del mundo paso a paso}
begin
end;

Procedure Final(x:integer;y,z:real);
{nos dara la final del ciclo}
begin
end;

Procedure GenMundo(y,z:real);
{son solo por referencia pues no los modificamos,
 genera un mundo de manera aleatoria}
Var
 P, p1:real;
 aux,c:integer;
 Mundo:tpvec;
 i,j:integer;
Begin
 writeln('con que probabilidad quieren que las');
 writeln('celulas nazcan');
 readln(p1);
 writeln('Cuantas columnas tiene que tener el mundo?');
 {$I-}
 readln(aux);
 while IOResult<>0 do
  If (aux>min) and (aux<max) then
    c:=aux
    else
     begin
      writeln('El valor introducido no es valido');
      writeln('introduzca un nuevo valor');
      readln(c)
     end;
 {$I+}
 for i:=2 to max do
  for j:=2 to max do
    p:=random;
    if (p>y) and (p<z) then
     begin
      {mundo[2,j]:=0;
      j:=j+1
     end
     else
      mundo[2,j]:=1}
    end;
    i:=i+1
  end;

Procedure Modo(var m:integer;x:integer;y,z:real);
{para seleccionar la manera de que se muestre el 
progreso del mundo}
Begin
  writeln('Si quiere que se muestre paso por paso');
  writeln('pulse 1 si solo quiere ver el final');
  writeln('pulse 2');
  {$I-}
   readln(m);
  while IOResult<>0 do
   if (m=1) or (m=2) then
    begin
     Case m of
      1: Paso(x,y,z);
      2: Final(x,y,z);
     end
     end
   else
    begin
     writeln('Valor introducido no correcto');
     Writeln('Introduzca un nuevo valor');
     readln(m)
    end
end;



Procedure Ejecucion;
{para saber cuando deben morir o vivir las celulas}
 var
  x,aux:integer;
  y,z,auy,auz:real;
  m:integer;
 begin
  writeln('diga con cuantas vecinas quiere que nazcan las celulas');
  {$I-}
  readln(aux);
  while IOResult<>0 do
    If aux <= 8 then x:=aux
     else
      begin
       writeln('Valor introducido no valido');
       writeln('Escribe un nuevo valor: ');
       readln(aux)
      end;
  writeln('entre q valores quieren q mueran las celulas: ');
  readln(auy,auz);
   while IOResult<>0 do
     y:=auy;
     z:=auz;
   {$I+}
 Modo(m,x,y,z);
end;

Procedure Inicial;
begin
end;



Procedure Salir;
 Begin
  writeln('Gracias por jugar');
  writeln('pulse enter para salir');
  readln
 end;



Var
 a:integer;
 b,c:real;

BEGIN
randomize;

 writeln('bienvenido al juego de la vida');
  writeln('Introduzca 1 para generar mundo aleatorio');
  writeln('2 para la ejecucion');
  writeln('3 cargar estado inicial');
  writeln('4 para salir del juego');
  {$I-}
   readln(a);
   while IOResult<> 0 do
    if  (a>=1) and (a<=4) then
     Case a of
       1: GenMundo(b,c);
       2: Ejecucion;
       3: Inicial;
       4: Salir

    else
      begin
       writeln('Valor introducido no valido');
       writeln('Escribe un nuevo valor: ');
       readln(a)
      end
  {$I+}
end;


End.
 
 ----------------------------  (aņadido tras someter) ---------------------------- 

  20:22:10  11/12/09
   -> Segun los datos introducidos los ficheros son: 
G12P12D2
 -> Los autores del trabajo son: 
 Palacios  Jodra , Ainhoa 
 
 
 Nombres originales de los archivos entregados ->  VIDA.PAS, VIDA 1.txt