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

[SaLoKiN]

напишите программу,которая разгадывает код замка при условии что 2 кубика уже вставлены в ячейки

Если два кубика стоят не рядом, то программа Mainak на тесте

1 3 
4 10

решает не верно.

[Аватар]

Mainak, а как для случая: Pos1=1, Pos2=4, x=4, y=3.

[SaLoKiN]

Сообщение от Аватар

Mainak, а как для случая: Pos1=1, Pos2=4, x=4, y=3.

ответ: 3 3 3 3 3 3 3 3 3 3
или я не верно данные скормил....


хочется код Аватара помучить. но так лень ковыряться и убирать все взаимодействия с формами, что не хочется))

[Аватар]

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

ответ: 3 3 3 3 3 3 3 3 3 3
или я не верно данные скормил....

А куда четверка делась

[SaLoKiN]

Ее поглотило!!!

Давно не писал на C++, и собственно глядя на код Mainak возник вопрос.
Паскаль поддерживает вот такую штуку в Switch-case

Case pos1 of
1,4,7,10: begin a[1]:=x; a[4]:=x; a[7]:=x; a[10]:=x; end;

А плюсы не дружат с подобным? Или как это записать для диапазона?

[Аватар]

Для диапазона 1..5 на паскале
(1,2,3,4,5)

[SaLoKiN]

оу, тогда на плюсах

case 1:
case 2:
case 3:
case 4:
case 5: <<"все от 1 до 5 будут тут!!"; break;

не прикольно кароч))
в плане работы с диапазонами if-else решают)

[Mainak]

Var a: array [1..10] of byte;
i,x,y,z, pos1, pos2: byte;
Begin
ReadLn(x,y);
Readln(pos1, pos2);
if x+y>=10 then WriteLn ('Проверьте известные цифры.')
else
if x+y<4 then WriteLn ('Кубика с гранью ', 10-x-y,' *нет.')
else
if pos1=pos2 then WriteLn('Цифры не могут быть в одной ячейке.')
else
if pos1 mod 3 = pos2 mod 3 then Writeln('Код из цифр в таких позициях не существует.')
else
begin
z:=10-x-y;
For i:=1 to 10 do
a[i]:=z;
a[pos1 mod 3]:=x;
a[pos2 mod 3]:=y;
for i:=3 to 10 do
a[i]:=10-a[i-1]-a[i-2];
For i:=1 to 10 do
Write(a[i]:3);
end;
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Аватар]

Между прочим pos1=1, pos2=4 и x=6,y=6 или x=2,y=2 вполне съедобные ситуации, а прога отфутболит. Mainak, создается впечатление, что понятие тестирования программы для вас не знакомо

[Mainak]

Вполне возможно-с