Головоломок тред

[Johanan]

логические задачки, а не:

 

навеяно:

 

 

Необходимо провести линию через все стенки так, чтобы одну стенку линия не пересекала два раза.

которую я не смог решить или решения нет, как подсказали местные гуру

хз

 

мля задающий выдал ответ, что:

 

 

 

Вообще, эта задача действительно не решается)

Единственный способ как-то её представить это вот как-то так)

теперь мне хочется убивать.

 

Еще там чем расписался, на вариант, кто имеет возможность может проверить

 

 

Клетка - вершина графа, каждая стена - ребро (если можно от одной клетки пройти 2-мя ребрами в другую, объединял в одно), зеленая цифра - степень вершины, темно-красные цифры - пропускная способность ребра (или кол-во ребер между вершинами).

Внешнее пространство - тоже вершина (1).

Степени всех вершин кроме (4) и (6) нечетные. Значит, если мы первый раз заходим в такую вершину извне, то, чтобы пройти по всем инцедентным ей ребрам мы должны в итоге остаться в ней (например, если степень вершины = 3, внутрь - наружу - внутрь).

Так как вершин с нечетной степенью >2 то мы в итоге застрянем в одной из таких вершин, и некоторые ребра другой такой вершины останутся непройденными.

Если б было 2 таких вершины, надо было бы начинать линию в такой вершине и заканчивать во второй такой.

 

Желающим проверить, сколько максимально стен можно пересечь, быдлопрога для PascalABC

n-текущая вершина, k-глубина рекурсии (кол-во пройденных стен), maxk-максимально длинный путь.

 

type

matr=array[1..6,1..6] of byte;

const

mm:matr=((0,2,2,2,1,2),

(2,0,1,1,1,0),

(2,1,0,0,1,1),

(2,1,0,0,1,0),

(1,1,1,1,0,1),

(2,0,1,0,1,0));

var

maxk:byte;

 

function fnd(m:matr;n,k:byte):boolean;

var

i,j:integer;

m1:matr;

begin

if maxk<k then maxk:=k;

if (k=16) or (maxk=16) then begin

result:=true;

exit;

end;

for i:=1 to 6 do begin

if m[i,n]>0 then begin

m1:=m;

dec(m1[n,i]);dec(m1[i,n]);

if (fnd(m1,i,k+1)) and (maxk=16) then begin

result:=true;

write(i,' ');

end;

end;

 

end;

 

end;

begin

fnd(mm,1,0);

writeln(maxk);

end.

 

Вместо 1 в fnd(mm,1,0); подставляем номер вершины из которой начинаем обход, лень цикл было делать, получается максимальное количество стен из 16:

15

15

15

14

15

14

Из 4 и 6 вершины получается короче, как и положено

 

 

 

 

 

 

 

поиск юзал - нашел только архивную http://prodota.ru/fo...c=129456&st=120

там была годная тема но потом пошел какой-то рак

 

в целом предлагаю кидать сюда нормальные головоломки и всякие задачки

 

постараюсь следить за темой и добавлять что-то новенькое.

 

всем мир

 

апд:

http://projecteuler.net/

Изменено 6 февраля 2013 пользователем Johanan

[KotZhilkina]

логические задачки, а не:

 

навеяно:

 

 

Необходимо провести линию через все стенки так, чтобы одну стенку линия не пересекала два раза.

которую я не смог решить или решения нет, как подсказали местные гуру

хз

 

мля задающий выдал ответ, что:

 

 

 

Вообще, эта задача действительно не решается)

Единственный способ как-то её представить это вот как-то так)

теперь мне хочется убивать.

 

Еще там чем расписался, на вариант, кто имеет возможность может проверить

 

 

Клетка - вершина графа, каждая стена - ребро (если можно от одной клетки пройти 2-мя ребрами в другую, объединял в одно), зеленая цифра - степень вершины, темно-красные цифры - пропускная способность ребра (или кол-во ребер между вершинами).

Внешнее пространство - тоже вершина (1).

Степени всех вершин кроме (4) и (6) нечетные. Значит, если мы первый раз заходим в такую вершину извне, то, чтобы пройти по всем инцедентным ей ребрам мы должны в итоге остаться в ней (например, если степень вершины = 3, внутрь - наружу - внутрь).

Так как вершин с нечетной степенью >2 то мы в итоге застрянем в одной из таких вершин, и некоторые ребра другой такой вершины останутся непройденными.

Если б было 2 таких вершины, надо было бы начинать линию в такой вершине и заканчивать во второй такой.

 

Желающим проверить, сколько максимально стен можно пересечь, быдлопрога для PascalABC

n-текущая вершина, k-глубина рекурсии (кол-во пройденных стен), maxk-максимально длинный путь.

 

type

matr=array[1..6,1..6] of byte;

const

mm:matr=((0,2,2,2,1,2),

(2,0,1,1,1,0),

(2,1,0,0,1,1),

(2,1,0,0,1,0),

(1,1,1,1,0,1),

(2,0,1,0,1,0));

var

maxk:byte;

 

function fnd(m:matr;n,k:byte):boolean;

var

i,j:integer;

m1:matr;

begin

if maxk<k then maxk:=k;

if (k=16) or (maxk=16) then begin

result:=true;

exit;

end;

for i:=1 to 6 do begin

if m[i,n]>0 then begin

m1:=m;

dec(m1[n,i]);dec(m1[i,n]);

if (fnd(m1,i,k+1)) and (maxk=16) then begin

result:=true;

write(i,' ');

end;

end;

 

end;

 

end;

begin

fnd(mm,1,0);

writeln(maxk);

end.

 

Вместо 1 в fnd(mm,1,0); подставляем номер вершины из которой начинаем обход, лень цикл было делать, получается максимальное количество стен из 16:

15

15

15

14

15

14

Из 4 и 6 вершины получается короче, как и положено

 

 

 

 

 

 

 

поиск юзал - нашел только архивную http://prodota.ru/fo...c=129456&st=120

там была годная тема но потом пошел какой-то рак

 

в целом предлагаю кидать сюда нормальные головоломки и всякие задачки

 

постараюсь следить за темой и добавлять что-то новенькое.

 

всем мир

нeт

[dimko-_-syan]

не взлетит

[Johanan]

не претендую на лавры Зенитчика (ну вы понели какой топан я имею ввиду), но хочется верить, что тут есть какой-то % людей, которым тема будет интересна.

[KotZhilkina]

не претендую на лавры Зенитчика (ну вы понели какой топан я имею ввиду), но хочется верить, что тут есть какой-то % людей, которым тема будет интересна.

нeт

[Гость 2poy_nyasha]

Хули задачи для детсада?

 

Давай чо-нибудь по матану и логике. Можно по физике, кодингу хз.

 

десу~~~~

[noname23]

с большой высоты падает резиновый мячик массы m и упруго ударяется о землю. Какая сила действует на шарик сразу после удара?

[Гость 2poy_nyasha]

mg

 

десу~~~~

[noname23]

неа

[Johanan]

Хули задачи для детсада?

Давай чо-нибудь по матану и логике. Можно по физике, кодингу хз.

десу~~~~

да что угодно, чтобы голову поломать.

 

главное просто не захламлять тему, смысл отписывать тем (как выше) кому это не надо.

[Гость 2poy_nyasha]

неа

mg - ma

 

десу~~~~

[noname23]

неа

mg - ma

 

десу~~~~

думай) дана только масса бтв.

2all я правильно понимаю что скидывать можно все что понравилось вне зависимости от свежести?

[Гость 2poy_nyasha]

да, кидай все

 

десу~~~~

[KotZhilkina]

с большой высоты падает резиновый мячик массы m и упруго ударяется о землю. Какая сила действует на шарик сразу после удара?

сила тяжести и сила трения офк

[Гость 2poy_nyasha]

с большой высоты падает резиновый мячик массы m и упруго ударяется о землю. Какая сила действует на шарик сразу после удара?

сила тяжести и сила трения офк

упруго ударяется, следовательно отлетает с той же силой, чо падал, умноженной на два

мой ответ 2mg

 

десу~~~~

[justice_st]

на него охуйлиард сил действует

[Гость 2poy_nyasha]

на него охуйлиард сил действует

понятное дело, его даже юпитер притягивает, но в пределах школьной физики это все не учитывается

 

десу~~~~

[kvaDrug]

http://projecteuler.net/

[noname23]

с большой высоты падает резиновый мячик массы m и упруго ударяется о землю. Какая сила действует на шарик сразу после удара?

сила тяжести и сила трения офк

упруго ударяется, следовательно отлетает с той же силой, чо падал, умноженной на два

мой ответ 2mg

 

десу~~~~

обьяснение я не понял)

 

ответ верный, на него действует сила тяжести - mg и сила сопротивления воздуха - тоже mg. По факту я немного проебался с условием и корректным был бы вопрос с каким ускорением он двигается

 

Школьник, придя домой, удивил своих родителей следующим фокусом. Он тщательно печатными буквами написал на листе бумаги два слова: красным карандашом слово «кофе», а синим — слово «чай». Затем наполнил водой пробирку и предложил через воду посмотреть на каждое из этих слов. Первое слово осталось прежним, а второе перевернулось. В чём здесь дело?

[KotZhilkina]

у нонеймов с физикой пиздец проблемы