Jogo sudoku em linguagem de programação pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 12 (2791 palavras )
  • Download(s) : 0
  • Publicado : 5 de outubro de 2011
Ler documento completo
Amostra do texto
program Sudoku;
//------------------------------------------------------------------------------
uses crt;
//------------------------------------------------------------------------------
type matriz = array[1..9,1..9,0..9] of byte;
type arqnumeros = file of byte;
//------------------------------------------------------------------------------
const
coluna= 24;
linha= 5;espaco= #$20;
arquivo = 'jogo_sudoku.dat';
j1 = 'jogo1.dat';
j2 = 'jogo2.dat';
j3 = 'jogo3.dat';
j4 = 'jogo4.dat';
j5 = 'jogo5.dat';
j6 = 'jogo6.dat';
j7 = 'jogo7.dat';
j8 = 'jogo8.dat';
j9 = 'jogo9.dat';
j10= 'jogo10.dat';
j11= 'jogo11.dat';
j12= 'jogo12.dat';
j13= 'jogo13.dat';
j14= 'jogo14.dat';j15= 'jogo15.dat';

var x,y,i: integer;
ch,tecla: char;
m: matriz;
//------------------------------------------------------------------------------
//criando ambiente do sudoku
procedure tabelasudoku;
begin
for I:=1 to 18 do
begin
textcolor(white);
gotoxy (22,i+4);//coluna1
write('|');textcolor(lightgreen);
gotoxy (26,i+4);//coluna2
write ('|');
gotoxy (30,i+4);//coluna3
WRITE ('|');
textcolor(white);
gotoxy (34,i+4);//coluna4
write ('I');
textcolor(lightgreen);
gotoxy (38,i+4);//coluna5
write ('|');
gotoxy (42,i+4);//coluna6write ('|');
textcolor(white);
gotoxy (46,i+4);//coluna7
write ('I');
textcolor(lightgreen);
gotoxy (50,i+4);//coluna8
write ('|');
gotoxy (54,i+4);//coluna9
write ('|');
textcolor(white);
gotoxy (58,i+4);//coluna10
write('|');
end;
begin
gotoxy(22, 4);//Linha1
for i:=1 to 37 do
write('=');
textcolor(lightgreen);//Linha2
gotoxy(22,6);
for i:=1 to 37 do
write('-');
gotoxy(22,8);//Linha3
for i:=1 to 37 do
write('-');textcolor(white);//Linha4
gotoxy(22,10);
for i:=1 to 37 do
write('=');
textcolor(lightgreen);//Linha5
gotoxy(22,12);
for i:=1 to 37 do
write('-');
gotoxy(22,14);//Linha6
for i:=1 to 37 do
WRITE('-');
textcolor(white);//Linha7gotoxy(22,16);
for i:=1 to 37 do
write('=');
textcolor(lightgreen);//Linha8
gotoxy(22,18);
for i:=1 to 37 do
write('-');
gotoxy(22,20);//Linha9
for i:=1 to 37 do
write('-');
textcolor(white);//Linha10gotoxy(22,22);
for i:=1 to 37 do
write('=');
end;
end;
//------------------------------------------------------------------------------
//mostra os comandos do jogo ao lado da tabela
procedure Mostrandocomandos;
begin
textcolor(lightgreen);
gotoxy(36,2);
write('# SUDOKU #');
gotoxy(27,23);
write('D. Gomes &U. Pedra');
textcolor(yellow);
gotoxy(2,5);
write('COMANDOS:');
gotoxy(2,8);
write('G- Gravar Jogo');
gotoxy(2,10);
write('C - Carregar Jogo');
gotoxy(2,12);
write('J - Novo Jogo');
gotoxy(2,14);
write('F4- Apagar');
gotoxy(2,16);
write('F5- Resolver');
gotoxy(2,18);...
tracking img