В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
olyadudina98
olyadudina98
30.10.2022 06:40 •  Информатика

Решите Используя онлайн - сервис Метро Москвы ( например, Яндикс Митро), постройте граф и матрицу смежности для станций метро Белорусская, Охотный Ряд, Третьяковская, Таганская, Трубная, Марьина Роща с указаниями расстояний между этими станциями. При необходимости можно вносить дополнительные станции.​

Показать ответ
Ответ:
kuchera2
kuchera2
25.04.2022 17:49

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.

0,0(0 оценок)
Ответ:
MaxPositiv
MaxPositiv
05.05.2023 23:25

Кол-во перестановок = 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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота