de C para PASCAL???como faço??

[Esio Pedro 0]

Caros amigos,

possuo um codigo em c e realmente preciso descobrir como fazer para passa-lo para PASCAL.É um jogo chamado "sudoku" preciso criar esses algoritmos para que ele possa rodar em pascal.Alguém que possa me dar alguma solução.

Desde já fico grato.

 

 

SUDOKU.C

 

/* sudoku */

 

#include <stdio.h>

#include <conio.h>

 

int le(char *n, int t[9][9]) {

int i, j;

FILE *a;

 

a = fopen(n,"r");

 

if( a!=NULL ) {

for(i=0; i<9; i++)

for(j=0; j<9; j++)

fscanf(a,"%d",&t[j]);

return 1;

}

else

return 0;

}

 

int branco(int *x, int *y, int t[9][9]) {

int i, j;

 

for(i=0; i<9; i++)

for(j=0; j<9; j++)

if( t[j]==0 ) {

*x = i;

*y = j;

return 1;

}

return 0;

}

 

int tenta(int v, int x, int y, int t[9][9]) {

int i, j;

 

for(i=0; i<9; i++)

if( t[x]==v || t[y]==v )

return 0;

 

for(i=3*(x/3); i<3*(x/3)+3; i++)

for(j=3*(y/3); j<3*(y/3)+3; j++)

if( t[j]==v )

return 0;

 

return 1;

}

 

int preenche(int t[9][9]) {

int x, y, v;

 

if( branco(&x,&y,t) ) {

for(v=1; v<=9; v++)

if( tenta(v,x,y,t) ) {

t[x][y] = v;

if( preenche(t) ) return 1;

t[x][y] = 0;

}

return 0;

}

return 1;

}

 

void mostra(int t[9][9]) {

int i, j;

 

for(i=0; i<9; i++) {

printf("\n");

for(j=0; j<9; j++)

printf("%d ", t[j]);

}

}

 

void main(void) {

int t[9][9];

char n[100];

 

clrscr();

 

printf("\nArquivo? ");

gets(n);

 

if( le(n,t) )

if( preenche(t) ) mostra(t);

else printf("\nNao ha solucao!");

else

printf("\nArquivo nao encontrado!");

 

getch();

}

 

 

 

SUDOKU00.DAT

0 0 0 0 0 0 0 0 0

0 0 0 0 0 0 0 0 0

0 0 0 0 0 0 0 0 0

0 0 0 0 0 0 0 0 0

0 0 0 0 0 0 0 0 0

0 0 0 0 0 0 0 0 0

0 0 0 0 0 0 0 0 0

0 0 0 0 0 0 0 0 0

0 0 0 0 0 0 0 0 0

 

 

SUDOKU01.DAT

0 3 5 2 9 0 8 6 4

0 8 2 4 1 0 7 0 3

7 6 4 3 8 0 0 9 0

2 1 8 7 3 9 0 4 0

0 0 0 8 0 4 2 3 0

0 4 3 0 5 2 9 7 0

4 0 6 5 7 1 0 0 9

3 5 9 0 2 8 4 1 7

8 0 0 9 0 0 5 2 6

 

SUDOKU.zip

ALGORITMOS USP

SUDOKU TUTORIAL

 

 

 

por favor me ajudem!

abraço!

[marcio.theis 3]

Veja se lhe ajuda destes exemplos:

http://www.delphifr.com/codes/SUDOKU_37040.aspx

http://www.codes-sources.com/code.aspx?ID=39515

[Esio Pedro 0]

Obrigado!Irei ver agora mesmo. Essa cadeira de Algortimos avançados e Progamação esta me tirando do sério.

[Esio Pedro 0]

Aindei vendo e tentei mas não tem como alterar aqueles codigos.São muito complexos. Gostaria de algortimo simples pra resolver esse meu grande problema.

[marcio.theis 3]

Infelizmente não conheço C, senão iria lhe ajudar a traduzir para Pascal este jogo... http://forum.imasters.com.br/public/style_emoticons/default/blush.gif