Замок для сейфа состоит из 10 расположенных в ряд ячеек c игральными кубиками. Сумма любых трёх равна 10. Найти код (на Паскале)

[Serge_Bliznykov]

Сообщение от SaLoKiN

3 3 4 5 1 - 1 3 3 3

Сообщение от SaLoKiN

моем примере позиции 1,2,3 дают 10. 3,4,5 дают 10. только пустой убрать нНнНнНнада)

Ваша последовательность СОВСЕМ никуда не годится.
Вы, наверное, не обратили внимание, что в условии сказано сумма должна быть равна 10

в любых трех соседних ячейках

чему у вас равна суммма 2, 3, 4 = ?
или 7,8,9 = ?
или 8,9,10 = ?
про пропущенный кубик (что противоречит условию) я вообще молчу..

оу...вот оно что! тогда по поводу вывода от 1 до 10 все понятно стало.

Это хорошо!
Теперь будем ждать, чтобы автору топика тоже всё стало понятно...

[SaLoKiN]

лол...кароч верные те варианты, когда забиты все ячейки кубиками и когда сумма каждых трех соседних равна 10?

[Аватар]

Прямо в точку С попытки номер...?

[SaLoKiN]

не будем вдаваться в подробности)

[evg_m]

ну или придумать какой-то алгоритм для более разумного перебора.. нацеленного...

любая правильная комбинация определяется первыми тремя кубиками (остальные кубики ее повторяют).
235|235|235|2

a+b+c=10
b+c+d=10 
0 =10-10 =(a+b+c)-(b+c+d) =a - d

соответственно любая случайно заданная комбинация (2 из 10) перестановкой кубиков в первые три сводится к задаче с
1-м (если два попали в "одинаковую" позицию) или 2-мя известными в первых трех ячейках (1,2,3).
2**2****** (2 в 1) = 2*********
2***3***** (2 в 2) = 23********

[Mainak]

1. Var a: array [1..10] of byte;
2. i, x,y,z: byte;
3. Begin
4. ReadLn(x,y);
5. z:=10-x-y;
6. For i:=1 to 10 do begin
7. if i mod 3=1 then a[i]:=x;
8. if i mod 3=2 then a[i]:=y;
9. if i mod 3=0 then a[i]:=z;
10. Write(a[i]:3);
11. end;
12. Readln;
13. End.

[BDA]

Mainak, Ваша программа ставит два известных кубика на фиксированные места, а по условию их можно ставить в любые (пользователь задает положение).

[Mainak]

Var a: array [1..10] of byte;
i,x,y,z, pos1, pos2: byte;
Begin
clrscr;
ReadLn(x,y);
Readln(pos1, pos2);
if x+y>=10 then WriteLn ('Проверьте известные цифры')
else
if pos1=pos2 then WriteLn('Числа не могут быть в одной ячейке')
else
begin
z:=10-x-y;
For i:=1 to 10 do
a[i]:=z;
for i:=1 to 10 do begin
Case pos1 of
1,4,7,10: begin a[1]:=x; a[4]:=x; a[7]:=x; a[10]:=x; end;
2,5,8: begin a[2]:=x; a[5]:=x; a[8]:=x; end;
3,6,9: begin a[3]:=x; a[6]:=x; a[9]:=x; end;
end;
Case pos2 of
1,4,7,10: begin a[1]:=y; a[4]:=y; a[7]:=y; a[10]:=y; end;
2,5,8: begin a[2]:=y; a[5]:=y; a[8]:=y; end;
3,6,9: begin a[3]:=y; a[6]:=y; a[9]:=y; end;
end;
end;
For i:=1 to 10 do
Write(a[i]:3);
readln;
end;
end.

[Аватар]

Mainak, там куча вариантов, когда по начальным значениям пасьянс не раскладывается. Не вижу анализа этих ситуаций в вашем коде. Проверьте, например, для начальных условий: Pos1=1, Pos2=3, x=6, y=6.

[Mainak]

Avatar, как бы учитывалось, что ввод будет правильный. С учетом замечаний ввел проверку.