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
|
program tablier; {Tableaux de constantes}
uses crt;
var i: shortint;
type
occupant=array [1..64] of integer;
symboles=array [0..6] of char;
const
occupantINI : occupant=(
-4,-2,-3,-5,-6,-3,-2,-4,
-1,-1,-1,-1,-1,-1,-1,-1,
-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,
+1,+1,+1,+1,+1,+1,+1,+1,
+4,+2,+3,+5,+6,+3,+2,+4);
symbolFR : symboles=(chr(176),'P','C','F','T','D','R');
symbolEN : symboles=(chr(176),'P','N','B','R','Q','K');
BEGIN
TextBackground(Blue);
TextColor(White);
clrscr;
for i:=1 to 64 do
begin
write (symbolFR[Abs(occupantINI[i])]);
if i/8=trunc(i/8) then writeln;
end;
readln;
END. |
Partager