Pascal/Turbo Pascal - Ayuda con tablero de damas

   
Vista:

Ayuda con tablero de damas

Publicado por Andres (2 intervenciones) el 11/11/2014 18:48:46
Buenas tardes,
Necesito saber como hacer un tablero de 8x8, como el de la foto adjunta.9,024,3
Para el color solo puedo utilizar la libreria crt.
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

Ayuda con tablero de damas

Publicado por David (144 intervenciones) el 11/11/2014 20:18:25
Aquí tienes el código

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
uses crt;
 
var
 
   i, j, k :   integer;
         c :   char;
 
begin
 
   c := #219;
   write(' ---------------- ');
   for i := 1 to 8 do begin
   writeln;
      if (i mod 2 <> 0) then
         for j := 1 to 4 do begin
            if (j = 1) then write('|');
            write(c, c, '  ');
            if (j = 4) then write('|');
         end
      else begin
         for k := 1 to 4 do begin
            if (k = 1) then write('|');
            write('  ', c, c);
            if (k = 4) then write('|');
         end;
      end;
   end;
   writeln;
   write(' ---------------- ');
   readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con tablero de damas

Publicado por Andres (2 intervenciones) el 11/11/2014 20:50:24
Muchas gracias!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar