Corrida de cavalos
Publicado por Francisco Dourado (última atualização em 20/02/2010)
[ Hits: 6.315 ]
Homepage: http://agaqueretro.blogspot.com.br/
Este é um programinha que aprendi em 1996 (na UESPI) e faz mais de uma semana estava tentando refazer do zero, pois não tinha o código fonte, e faz um tempão que não usava o Pascal.
É pra você se divertir com os "cavalinhos" correndo aleatoriamente.
Abraços.
program corrida; uses crt; var c1, c2, c3, c4, i, j, k : integer; campeao : boolean; begin clrscr; {para windows, onde tou compilando o programa, para linux, use o comando 'clear'} randomize; writeln; textcolor (yellow); writeln ('------- Corrida de Cavalos ------'); textcolor (white); {criação das raias, depois pode ser implementado pra um procedimento} for i := 1 to 80 do {numero de colunas duma tela simples} begin k := 3; for j := 1 to 5 do {raias} begin k := k + 2; {k assume valor 5 para não apagar título do programa na tela} gotoxy (i, k); write ('='); end; k := 4; for j := 1 to 4 do {grama} begin k := k + 2; {k assume valor 6 para não apagar título do programa na tela} gotoxy (i, k); textcolor (green); write ('#'); textcolor (white); end; end; {criação dos cavalos, depois pode ser implementado pra um procedimento} c1 := 1; c2 := 1; c3 := 1; c4 := 1; campeao := false; repeat begin c1 := c1 + random (2); if not campeao then begin gotoxy (c1, 6); textcolor (green); write ('#'); textcolor (white); write ('1'); delay (40); if c1 = 79 then begin campeao := true; gotoxy (1, 16); write ('O cavalo 1 venceu'); end; end; c2 := c2 + random (2); if not campeao then begin gotoxy (c2, 8); textcolor (green); write ('#'); textcolor (white); write ('2'); delay (40); if c2 = 79 then begin campeao := true; gotoxy (1, 16); write ('O cavalo 2 venceu'); end; end; c3 := c3 + random (2); if not campeao then begin gotoxy (c3, 10); textcolor (green); write ('#'); textcolor (white); write ('3'); delay (40); if c3 = 79 then begin campeao := true; gotoxy (1, 16); write ('O cavalo 3 venceu'); end; end; c4 := c4 + random (2); if not campeao then begin gotoxy (c4, 12); textcolor (green); write ('#'); textcolor (white); write ('4'); delay (40); if c4 = 79 then begin campeao := true; gotoxy (1, 16); write ('O cavalo 4 venceu'); end; end; end; until campeao; readkey; end.
Crivo de Eratóstenes Simples em Pascal
Operações simples e avançadas com matrizes
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
big linux sem audio como resolver (2)
Como faz para dar um update-grub por shell script [RESOLVIDO] (3)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta