Programación General > Pascal

 Re: Juego

(1/1)

darmigmar:
Hola, qué tal? Soy algo nuevo en esto, asique mucho no sé, pero aca les dejo un juego que hice en mi tiempo libre... Ojalá les guste...

Enko:
darmigmar:
   por tu culpa perdí 10 pesos (3.5 dolares). Es que con mi hermano le apsté Italia pero termió llegando 5ta y mi hermano que jugó a francia gano siendo 2do. (LA apuesta era de 10 pesos) :D

Miré el código fuente y nose si seguis escribiendo así pero la verdad que parese algo de como si estuviese escrito en una Commodore 64. :P


--- Código: Text --- IF X7=78 THEN BEGINTEXTCOLOR(WHITE);GOTOXY(31,3);WRITE('EL GANADOR ES ');TEXTCOLOR(RED);WRITE('C');TEXTCOLOR(YELLOW);WRITE('H');TEXTCOLOR(RED);WRITE('N');END; 
Se acostumbra:
Constantes en mayusculas
Palabras reservadas en minusculas
Variables alternando mayusculas con minusculas (Corredor1, NotaAlta, AutoVer)
Dejar espacio despues de cada begin en el reglon de abajo para remarcar el nivel de cada bloque de esta manera:

--- Código: Text --- if a > b then   begin{nivel 1}    if x < w then       begin{nivel 2}        HacerAlgo;        HecerOtro;      end;{.nivel 2}    if z < w then       begin{nivel 2}        ...        ...        if j < k then           begin{nivel 3}          end;{.nivel 3}      end;{.nivel 2}  end;{.nivel 1}if b > a then {nivel 1}  
asi tu codigo se connvierte en


--- Código: Text --- if X7 = 78 thenbegin  TextColor(WHITE);  GotoXY(31, 3);  Write('EL GANADOR ES ');  TextColor(RED);  Write('C');  TextColor(YELLOW);  Write('H');  TextColor(RED);  Write('N');end;  
por supuesto es muy personal pero, de esta manera se hace más legible para la mayoría de los programadores. :smartass:  :hola:

Navegación

[0] Índice de Mensajes