Задача "Ход конем", помогите закончить Опции

[leahov]

Даны две литеры - латинская буква (от a до h) и цифра (от 1 до восьми). Рассматривая их как координаты поля шахматной доски, на котором находится конь, нарисовать шахматную доску, пометив крестиками все поля, которые «бьет» этот конь, и ноликами все остальные.

шахматку нарисовал - вот код

Program zadacha1; 
uses graph,crt; 
var driver,mode,m,n:integer; 
stroka:string[1]; 
const 
l:array [0..7] of string[1] =('a','b','c','d','e','f','g','h'); 
begin 
driver:=detect; 
Initgraph(driver,mode,'c:/bp/bgi'); 
setcolor(15); 
for n:=1 to 8 do 
for m:=0 to 7 do 
rectangle(n*50,m*50,n*50+50,M*50+50); 
for n:=0 to 3 do 
begin 
for m:=0 to 3 do 
begin 
floodfill(100*n+75,100*m+25,15); 
floodfill(100*n+125,100*m+75,15); 
end; 
end; 
for n:=0 to 7 do 
begin 
str(n+1,stroka); 
OutTextXY(25,n*50+22,stroka); 
end; 
for n:=0 to 7 do 
OutTextXY(n*50+70,415,l[n]); 
readln; 
closegraph; 
end.

Помогите закончить задание
Есть мысля как её закончить - изначально все поля сделать с нулями, а потом просто расставить под ход коня единички, одна загвоздка - не получается реализовать этот план. Может это и не правильно, но это по моему один из простых вариантов

[leahov]

lapp спасибо, сейчас попробую нули ставить

[Lapp]

lapp спасибо, сейчас попробую нули ставить

Давай, вставляй. Для этого просто добавь else в мой if и рисуй кружочки.

Но вообще - подумай над переделкой.
1. Не тащи 50 через всю прогу - сделай константу (скажем, a) и используй ее.
2. Закрашивание клеток белым цветом делай в первом же цикле (используй Bar вместо Rectangle, но рисуй только те клетки, у которых выполнено условие Odd(n*m) ), а цикл с FloodFill убери совсем.
3. Продумай нормальную адресацию клеток, можно сделать и буквенную
....
остальное потом..

[Malice]

только те клетки, у которых выполнено условие Odd(n+m) ).