Олимпиадные задачи по программированию. Лучшие решения. Часть 1. Ускова О.Ф - 53 стр.

UptoLike

begin
For i:=-MaxN to MaxN do
For j:=-MaxM to MaxM do
if odd(abs(i)) and odd(abs(j)) then
Plan[i,j]:='+' else Plan[i,j]:='?';
Plan[0,0]:='*'
end;
{Вывод плана}
procedure ShowPlan;
var
i,j:integer;
begin
For i:=T downto T-2*M do
begin
For j:=L to L+2*N do
begin
if (i=T) or (i=T-2*M) then
if odd(j-L) then
write(output,'-')
else
write(output,'+')
else
if (j=L) or (j=L+2*N) then
if odd(T-i) then
write(output,'|')
else
write(output,'+')
else