Modularizar el programa principal

[byivan]

Joer pues parala proxima vez, me anoto lo del código para que sea mas legible, lo siento.

El porblema es que al meter en un procedure el bloque 3 4 y 5 me produce un problema en tiempo de ejecucion (el compilador lo pasa)
por tanto me gustaria que me escribieseis como serian los procedures del bloque 3 4 y 5.

Muchas gracias!

[ContraVeneno]

Empezado por byivan

El porblema es que al meter en un procedure el bloque 3 4 y 5 me produce un problema en tiempo de ejecucion...

No creo que sea conveniente meter el bloque 3, 4 y 5 en un solo procedure porque no realizan lo mismo. El bloque 1 y 2 si hacen lo mismo, eso si se puede hacer en otro procedimiento, el bloque 3 y 4 tambien hacen lo mismo, por lo que se pueden meter en un solo procedimiento, el 5 ya no porque no hace lo mismo.

No, yo no te voy a escribir ningún código porque no es mi trabajo hacer tu trabajo.

Saludos.

[byivan]

Pues así entocnes no resuelvo nada, dado que ya intente esta mañana meter un procedure por bloke, y aun así solo funcionaban los 2 primeros, por eso pido ke me escribieseis como pasariais vosotros los 3 restantes.

No veo otra forma de que podais ayudarme, y tampoco hay que escribir mucho...

Todo lo que as sugerido ya lo he intentado esta mañana.

[Onti]

Esto te dara una idea de como hacerlo

Código Delphi [-]
Procedure InicioJugada(NomJugador:String;Dado:TValorDados;Jugador:TMano);
   Begin
     writeln(NomJugador);
     readln;
     LeeDados(Dado);
     LeeMano(Dado,Jugador);
     EscribeMano(Jugador);
   End;