infoarena

infoarena - concursuri, probleme, evaluator, articole => Informatica => Subiect creat de: Robert Szasz din Februarie 24, 2007, 20:39:47



Titlul: Cineva help,C source to pascal source
Scris de: Robert Szasz din Februarie 24, 2007, 20:39:47
Cod:
#include <fstream.h>
#define InFile "rj.in"
#define OutFile "rj.out"
#define NMax 102
#define NV 8

int n, m, xr, yr, xj, yj;
int dl[NV]={0, 1, 0, -1, -1, 1, -1, 1};
int dc[NV]={1, 0, -1, 0, -1, 1,  1,-1};
char l[NMax][NMax];
int r[NMax][NMax];

void citire(void);
void afisare(int [NMax][NMax]);
void parcurge (int, int, int[NMax][NMax]);

void main()
{int j[NMax][NMax];
 citire();
 parcurge(xr, yr, r);
 parcurge(xj, yj, j);
 afisare(j);
}

void citire(void)
{
int i, k;
char c;
ifstream f(InFile);
f>>n>>m;
for (i=0; i<=n+1; i++) l[i][0]=l[i][m+1]='X';
for (i=0; i<=m+1; i++) l[0][i]=l[n+1][i]='X';
f.get(c);
for (i=1; i<=n; i++)
{for (k=1; k<=m; k++)
{f.get(c); l[i][k]=c;
if (l[i][k]=='R') {xr=i; yr=k; l[i][k]=' ';}
if (l[i][k]=='J') {xj=i; yj=k; l[i][k]=' ';}
}
f.get(c);}
f.close();
}

void parcurge (int x0, int y0, int d[NMax][NMax])
{
struct Punct {int l, c;} C[NMax*NMax], p;
int inc=0, sf=0, i, k;
for (i=0; i<=n+1; i++)
for (k=0; k<=m+1; k++) d[i][k]=-1;
C[0].l=x0; C[0].c=y0; d[x0][y0]=1;
while (inc<=sf)
{
p=C[inc++];
for (i=0; i<NV; i++)
if (l[p.l+dl[i]][p.c+dc[i]]==' ' && d[p.l+dl[i]][p.c+dc[i]]==-1)
{
d[p.l+dl[i]][p.c+dc[i]]=1+d[p.l][p.c];
C[++sf].l=p.l+dl[i];
C[sf].c=p.c+dc[i];
}
}
}

void afisare(int j[NMax][NMax])
{
ofstream f(OutFile);
int tmin=NMax*NMax+5, xmin=-1, ymin=-1, i, k;
for (i=1; i<=n; i++)
for (k=1; k<=m; k++)
if (r[i][k]==j[i][k])
if (r[i][k]<tmin && r[i][k]!=-1)
{tmin=r[i][k]; xmin=i; ymin=k;}
f<<tmin<<' '<<xmin<<' '<<ymin<<endl;
f.close();
}

Asta este solutia problema Romeo si Iulieta din oji2004
dar nu inteles C source prea bine...
cineva pot sa transfera la Pascal source...?
este suficient numai transfera a procedeul parcurgere 
Multumesc
Sorry for bad Romanian Language...

edited by svalentin: use *code* tag for sourcecode


Titlul: Raspuns: Cineva help,C source to pascal source
Scris de: Ivan Nicolae din Februarie 24, 2007, 20:50:55
 Din cate tin eu minte se rezolva cu doua LEE-uri si cam asta vad si prin sursa aia.... citeste despre LEE si dupaia o sa fie evidenta rezolvarea nu o sa fie nevoie de codul in Pascal...... :weightlift:


Titlul: Raspuns: Cineva help,C source to pascal source
Scris de: Robert Szasz din Februarie 24, 2007, 20:54:48
Multumesc raspunsul...:)
Pot sa cer un link despre LEE pentru ca n-am gasit  ](*,) am mai cautat algoritmul Lee la alte probleme dar am putut sa fac acele cu simpla dinamic si cu alte metode...


Titlul: Raspuns: Cineva help,C source to pascal source
Scris de: Ivan Nicolae din Februarie 24, 2007, 20:58:30
Pai:

http://www.google.ro/search?hl=en&safe=off&q=lee+algorithm     ---> Asta e de baza
http://www.ece.northwestern.edu/~haizhou/357/lec6.pdf


Daca nu te lamuresti da-mi o adresa de mail.... ca am un .doc destul de explicit


Titlul: Raspuns: Cineva help,C source to pascal source
Scris de: Robert Szasz din Februarie 24, 2007, 21:00:26
[email protected]
si multumesc pentru ajutare...


Titlul: Raspuns: Cineva help,C source to pascal source
Scris de: Ivan Nicolae din Februarie 24, 2007, 21:23:28
gata... verifica-ti mail-ul