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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

cx[2]:=1; cy[2]:=2;
cx[3]:=-1; cy[3]:=2;
cx[4]:=-2; cy[4]:=1;
cx[5]:=-2; cy[5]:=-1;
cx[6]:=-1; cy[6]:=-2;
cx[7]:=1; cy[7]:=-2;
cx[8]:=2; cy[8]:=-1;
end; {cxcy}
procedure xod (var dos:doska;
x,y, {положение коня}
i:integer;{номер хода}
var exist:boolean);
var k,{номер варианта}
u,v:integer;{новое положение коня}
begin
k:=0;
repeat
k:=k+1;
u:=x+cx[k];
v:=y+cy[k];
if (u>=1) and (u<=n) and (v>=1) and (v<=n)
then {не вышли за пределы доски}
if dos[u,v]=0 then
begin
dos[u,v]:=i;
if i<nn then
begin
xod(dos,u,v,i+1,exist);
if not(exist) then dos[u,v]:=0
end
else exist:=true
end
until exist {заполнена вся доска}
or (k=8) {рассмотрены все варианты}
end; {xod}
begin {knight}
{заполнение массива dos нулями}
for x:=1 to n do
for y:=1 to n do
dos[x,y]:=0;
cxcy;
exist:=false;
dos[1,1]:=1;
xod(dos,1,1,2,exist);
{печать результатов}
if exist then
{печатается доска,заполненная номерами ходов}
for x:=1 to n do
begin
for y:=1 to n do
write(dos[x,y]:3);
writeln
end
else writeln('РЕШЕНИЯ НЕТ')
end.
Задача 2. " Считалка "
Создать программу для печати номеров детей в том порядке, в
котором они выходят из круга согласно детской считалочке. Приводится

Страницы