Pascal/Turbo Pascal - Batalla Naval

   
Vista:

Batalla Naval

Publicado por Sheldon (1 intervención) el 01/12/2008 22:33:19
Hola , quisiera saber como poder terminar esta batalla naval, ya las matrices estan cargadas con los barcos y todo, lo unico que me falta ( y mas importante) es que cuando introduzca las coordenadads de ataque me ponga las "x" de tocado y las "h" de hundido, yo intente hacerlo asi con un ejemplo de un submarino que ocupa 2 casilleros:

if (j2[f,c] = 's') and (not (s)) then
begin
cord:='Impacto';
t1[f,c]:='x';
j2[f,c]:='x';
imp_fs:=f;
imp_cs:=c;
s:=true;
end;

if (j2[f,c] = 's') then
begin
cord:='Hundido';
t1[f,c]:='h';
t1[imp_fs,imp_cs]:='h';
j2[f,c]:='h';
j2[imp_fs,imp_cs]:='h';
tg1:=tg1-1;
end;

el problema es que me tira error ( el 201) y nose por q!, si me pueden ayudar les agradezco

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder