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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

while (i>1) and (j<n) and not zan do
begin
i:=i-1;
j:=j+1;
zan:=doc[i,j]
end;
may:=not zan
end; {may}
{------------------- Расстановка ферзей------------------------------
------}
procedure put (var doc:board; x:integer; var exist:boolean);
var y:integer;
begin {put}
y:=0;
repeat
y:=y+1;
if may(doc,x,y) then {на поле (x,y) можно поставить ферзя}
begin
doc[x,y]:=true;
if x=n then exist:=true {поставлен последний ферзь}
else begin
put(doc,x+1,exist);
if not exist then doc[x,y]:=false
end
end
until exist or (y=n)
end; {put}
{-------------- Печать доски и расположенных на ней ферзей-----------
------}
procedure print (doc:board);
var i:integer;
procedure tupe (n:integer);
var i:integer;
begin
write('+');
for i:=1 to n do write('-');
writeln('+')
end; {tupe}
procedure strin (i:integer);
var j:integer;
begin
write('I');
for j:=1 to n do
if doc[i,j] then write(' *')
else write(' .');
writeln('I')
end; {strin}
begin {print}
tupe(2*n);
for i:=1 to n do strin(i);
tupe(2*n);
end; {print}
begin {ferss}
{массив doc заполняется значениями false}
for x:=1 to n do

Страницы