Red de conocimiento de divisas - Apertura de cuenta en divisas - Cómo programar juegos usando Pascal gratis

Cómo programar juegos usando Pascal gratis

Por supuesto. Cuando te duelen las muñecas por la programación, es el mejor momento para jugar.

Es un poco problemático usar Pascal, pero se puede implementar fácilmente. Pero es más conveniente utilizar Delphi.

Usando Pascal, puedes usar programas orientados a unidades, pero no son muy atractivos. Déjame darte un código de muestra.

Tetris:

UTILIZA Crt

CONST

Cambio: Matriz:=1

Ventana ( 31, 2, 50, 25); Textcolor (Blanco);

Ventana (31, 2, 51, 25); ;

Tipo: =Aleatorio(7); Trans: =Aleatorio(4); Ahorax: =4;

Para N: =0 a 7 Hacer <; /p>

Ahora[N]:=Cambiar[Kind, Trans, N];

Mientras se puede mover(Nowx, Nowy) Hacer

Comenzar

Repetir

Limpiar; Nowy:=Nowy 1 Mostrar

Repetir

Si se presiona la tecla entonces

Mayúsculas y minúsculas (Tecla de lectura) De

#0: Clave de lectura de caso de

#75: Si se puede mover(Nowx-1, Nowy) entonces comenzar limpio Nowx:=Nowx-1; > p>

#77: Si se puede mover (Nowx 1, Nowy) Entonces comience a limpiar Nowx: = Nowx 1; p > If Canmove(Nowx, Nowy 1) Then Nowy:=Nowy 1;

Hasta No(Canmove(Nowx, Nowy 1)); Comenzar Gotoxy(9, 12); Escribir('Pausa'); Repetir retraso(1000); Finalizar; /p>

p>

' ', #13: Comenzar

Limpiar; Trans:=Trans 1

Si Trans=4 Entonces Trans:=0;

Para N:=0 a 7 Hacer

Ahora[N]:=Cambiar[Kind, Trans, N]

Si no(Canmove(Nowx) , Nowy)) Luego comience Trans: =Trans-1; Para N: =0 a 7 Haga

Ahora[N]: =Change[Kind, Trans, N];

De lo contrario Mostrar

Fin;

Fin;

Hasta que no se presione

Retraso ((10 velocidades)*50); Not(Canmove(Nowx, Nowy 1));

Puntuación:=Puntuación 1; Gotoxy(1, 1); Escritura(Puntuación: 5, '0'); 1;

Tablero[0, Nowx Ahora[0], Nowy Ahora[1]]:=1

Tablero[0, Nowx Ahora[2], Nowy Ahora[3; ]]:=1;

Tablero[0, Nowx Ahora[4], Nowy Ahora[5]]:=1

Tablero[0, Nowx Ahora[6], Nowy Ahora[7]]:=1;

Borrar

Tipo:=Aleatorio(7); Trans:=Aleatorio(4); 1;

Para N:=0 A 7 Hacer

Ahora[N]:=Cambiar[Kind, Trans, N]

Fin

p>

Gotoxy(7, 12); Write('JUEGO TERMINADO');

FIN.

上篇: Cómo eliminar el olor a orina en tu habitación 下篇:
Artículos populares