Решите Используя онлайн - сервис Метро Москвы ( например, Яндикс Митро), постройте граф и матрицу смежности для станций метро Белорусская, Охотный Ряд, Третьяковская, Таганская, Трубная, Марьина Роща с указаниями расстояний между этими станциями. При необходимости можно вносить дополнительные станции.
uses wincrt,graph;
const rstart=40;
type mas=array[1..500] of Pointtype;
procedure snezinki(a:mas;c:integer);
var i:integer;
begin
setcolor(c);
for i:=1 to 500 do
circle(a[i].x,a[i].y,2);
end;
procedure elka;
var y,r,i,j:integer;
begin
setcolor(green);
for j:=2 to 6 do
begin
y:=(getmaxy div 10)*j+120;
r:=rstart+15*j;
for i:=1 to 5 do
begin
arc((getmaxx div 2)-r,y,350-(r div 5)-8*j,359,r);
arc((getmaxx div 2)+r,y,181,190+(r div 5)+8*j,r);
inc(y,7);
inc(r,5);
end;
end;
end;
procedure sneg(n:integer);
begin
setcolor(white);
setfillstyle(1,white);
bar(0,getmaxY-n,getmaxX,getmaxY);
end;
var gd,gm,i,k,n:integer;
a:mas;
begin
randomize;
gd:=0;
initgraph(gd,gm,'');
for i:=1 to 500 do
begin
a[i].x:=random(getmaxX);
a[i].y:=random(getmaxY);
end;
setcolor(blue);
setfillstyle(1,blue);
bar(0,0,getmaxX,getmaxY);{делаем синий фон}
snezinki(a,white);{рисуем снежинки}
k:=0;{количество шагов}
repeat
k:=k+1;
delay(10);
snezinki(a,blue);{рисуем снежинки цветом фона, стираем}
for i:=1 to 500 do
begin
if a[i].y>getmaxY-n-10 then a[i].y:=1
else a[i].y:=a[i].y+3;
if a[i].x<0 then a[i].x:=getmaxX
else a[i].x:=a[i].x-1;
end;
snezinki(a,white);{рисуем снежинки белым}
elka; {рисуем елку}
n:=k div 10;{на каждом 10-м шаге увеличиваем толщину снега на земле}
sneg(n);{рисуем снег на земле}
if n>50 then{если толщина снега 50}
begin
snezinki(a,blue);{стираем снежинки}
setcolor(lightred);{выводим надписи}
settextstyle(0,0,3);
outtextXY(250,50,'Snegopad konchilsa');
setcolor(yellow);
settextstyle(0,0,2);
outtextXY(340,80,'Press any key');
end;
until keypressed or(n>50);{если нажали клавишу или снег>50 конец}
readkey{ждем нажатия клавиши для выхода}
end.
Кол-во перестановок = 12
Объяснение:
Изначальное - 12345678
Нужно узнать кол-во перестановок, после которых число превратится в изначальное.
71564328 (Кол-во перестановок - 1)
27436518 (Кол-во перестановок - 2)
12653478 (Кол-во перестановок - 3)
71345628 (Кол-во перестановок - 4)
27564318 (Кол-во перестановок - 5)
12436578 (Кол-во перестановок - 6)
71653428 (Кол-во перестановок - 7)
27345618 (Кол-во перестановок - 8)
12564378 (Кол-во перестановок - 9)
71436528 (Кол-во перестановок - 10)
27653418 (Кол-во перестановок - 11)
12345678 (Кол-во перестановок - 12)
Программа Pascal:
var
a,b:array[1..8] of integer;
n,s,t:integer;
begin
n:=1;
for var i1:=1 to 8 do begin
a[i1]:=i1;
end;
writeln('Изначальное - ',a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);
while t=0 do begin
s:=s+1;
b[2]:=a[1];
b[7]:=a[2];
b[6]:=a[3];
b[5]:=a[4];
b[3]:=a[5];
b[4]:=a[6];
b[1]:=a[7];
b[8]:=a[8];
for var i2:=1 to 8 do a[i2]:=b[i2];
write(a[1],a[2],a[3],a[4],a[5],a[6],a[7],a[8]);
writeln(' (Кол-во перестановок - ',s,')');
if (a[1]=1) and (a[2]=2) and (a[3]=3) and (a[4]=4) and (a[5]=5) and (a[6]=6) and (a[7]=7) and (a[8]=8) then t:=1;
end;
end.