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

[Алёнка ))]

ПОЖАЛУЙСТА, ПОМОГИТЕ НАПИСАТЬ КОД ДЛЯ ЗАДАЧИ В ПАСКАЛЕ.

секретный
замок для сейфа состоит из 10 расположенных в ряд ячеек,в которые надо
вставить игральные кубики.Но дверь открывается только в том случае,когда
в любых трех соседних ячейках,сумма точек на игральных гранях кубиков
равна 10.(игральный кубик имеет на каждой грани от 1 до 6
точек). напишите программу,которая разгадывает код замка при условии что 2 кубика уже вставлены в ячейки

[VIK_aka_TOR]

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

какие мысли у вас по этому поводу?

[Аватар]

Аленка, допустим кубики стоят в 1-ой и 2-ой ячейке, то все очень просто - проверить чтобы их сумма была не меньше 4 и не больше 9, остальные ячейки заполнять недостающей цифрой до 10 от предыдущих двух кубиков. Аналогично для последней и предпоследней ячеек и очень похоже для двух подряд в любом месте. Если между ними одна пустая тоже засунуть в промежуток нужную цифру и дальше как для двух в любом месте. Хуже когда между ними больше одной ячейки. Интервал между ними скорее всего перебором. Сделайте самый первый случай, думаю с головой хватит

[Smitt&Wesson]

Аватар, не давай алгоритмы кому попало, а то обвинят в соучастии . А иных следаков, я видел только в фильмах, осталиные - дебилы. Ну, о 5 000-х купюрах, не без нашего брата обошлось. А мест на зонах, хватает. Ещё даже и недозаполнены.

[Алёнка ))]

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

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

какие мысли у вас по этому поводу?

проблема в том, что никаких. Я сделала часть программы для тех ячеек, что стоят рядом, но для тех, которые стоят через 2 и более я вообще не знаю что писать.

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

Аленка, допустим кубики стоят в 1-ой и 2-ой ячейке, то все очень просто - проверить чтобы их сумма была не меньше 4 и не больше 9, остальные ячейки заполнять недостающей цифрой до 10 от предыдущих двух кубиков. Аналогично для последней и предпоследней ячеек и очень похоже для двух подряд в любом месте. Если между ними одна пустая тоже засунуть в промежуток нужную цифру и дальше как для двух в любом месте. Хуже когда между ними больше одной ячейки. Интервал между ними скорее всего перебором. Сделайте самый первый случай, думаю с головой хватит

если бы этого с головой хватило :-( Увы. Я сделала для тех, что стоят рядом. Но мне благополучно преподаватель сказал, что для любых нужно сделать. А как я не представляю.

[SaLoKiN]

в любых трех соседних ячейках,сумма точек на игральных гранях кубиков
равна 10

При условии что мы знаем позиции и значения кубиков. Если не знаем, то скажите- переделать можно.

#include <iostream>
#include <math.h>

using namespace std;

int main()
{
    int adr1,adr2;
    int item1,item2;
    int summ;
    int min;
    cout << "Adr1 Item1 Adr2 Item 2" << endl; 
   cin>>adr1>>item1;
   cin>>adr2>>item2;
   
   if(adr1==adr2)
        {
         cout<<"Adr1=Adr2";
         return 1;
        }
     
   summ=item1+item2;
   
    if (fabs(adr2-adr1)>1)
        {
          cout<<"Ne sosednie kubiki";
          return 1;
        }
    if (summ<4||summ>9)
        {
        cout<<"Oshibka summ";
        return 1;
        }
    
     min=adr2;
     if (adr1<adr2) 
     min=adr1;
     
   
   switch (min)
   {
       case 1: cout<<"CUB :  "<<10-summ<<endl<<"ADRESS CUB  : "<<3;break;
       case 9: cout<<"CUB :  "<<10-summ<<endl<<"ADRESS CUB  : "<<8;break;
       default: cout<<"CUB :  "<<10-summ<<endl<<"ADRESS CUB  : "<<min-1<<"  or  "<< min+2; break;
       
   }
  

   return 0;
}

З.Ы. по проверкам на корректность не все продуманно. Варианты с отрицательным вводом нужно отбросить ну и еще подумайте.

ОМГ ОМГ!!! Паскаль!
Простите-простите! Я на плюсах написал(((
Но алгоритм прозрачен, думаю переделать не сложно )

[Bugrimov]

SaLoKiN а в паскаль сможете переделать.

[SaLoKiN]

Bugrimov
Мне проще псевдокодом написать=) но если сильно надо-могу. Просто я не вижу в этом сложности для Алёнка )). Тем более она говорит что уже написала, но только не все. Просто дописать и все! =)

тип целые
adr1(адрес 1ого кубика)
adr2(адрес 2ого кубика)
item1(значение 1ого кубика)
item2(значение 2ого кубика)
summ(для подсчета суммы)
min(для нахождения самого левого кубика из 2ух) 

Вводим Adr1 Item1 Adr2 Item 2

Если (adr1==adr2) 
    То ошибка ввода. Выход.
     
посчитали сумму  
summ=item1+item2; 


Проверка на соседство
 Если (модуль((adr2-adr1)>1) // модуль т.к. adr1 может быть больше adr2 
     То ошибка ввода. Выход.

Проверка на возможность суммы 10 из 3-ех кубиков    
Если (summ<4||summ>9) // кубик от 1 до 6. тогда сумма двух других должна лежать в диапазоне от 4 до 9
        То ошибка ввода. Выход.

Ищем самый левый адрес кубика    
     min=adr2;
     if (adr1<adr2) 
     min=adr1;
     

Если min =1  т.е.наши кубики лежат в 1 и 2
То адрес 3-его равен 3,а значение 10- summ

Если min =9  т.е.наши кубики лежат в 9 и 10
То адрес 3-его равен 8,а значение 10- summ
Иначе
Адрес равен min-1 или min+2 и значение 10-summ

для тех кто пишет на паскале, это на две минуты работы ;-)

И не забываем проверку на 0 и отрицательные числа на входе.

[Аватар]

Не люблю в паскале ввод-вывод, поэтому в дельфи по кнопке со случайной генерацией начального расклада и вывода результата в Memo. Надеюсь не будет проблем переделать на традиционный паскаль

procedure TForm1.Button1Click(Sender: TObject);
var i,j,i1,i2: Integer;
    a: array[1..10] of Integer;
    xOk: Boolean;
begin
  Memo1.Clear;
  Randomize;
  for i:=1 to 10 do a[i]:=0;
  i1:=Random(10)+1;
  repeat
    i2:=Random(10)+1;
  until i1<>i2;
  if i1>i2 then begin i:=i1; i1:=i2; i2:=i; end;
  a[i1]:=Random(6)+1; Memo1.Lines.Add(Format('a[%d]=%d',[i1,a[i1]]));
  a[i2]:=Random(6)+1; Memo1.Lines.Add(Format('a[%d]=%d',[i2,a[i2]]));
  if i2-i1>1 then begin
    for i:=Max(4-a[i1],1) to Min(9-a[i1],6) do begin
      a[i1+1]:=i;
      for j:=i1+2 to i2-1 do a[j]:=10-a[j-1]-a[j-2];
      xOk:=a[i2]+a[i2-1]+a[i2-2]=10;
      if xOk then Break;
    end;
    if not xOk then begin Memo1.Lines.Add('Нет решения'); Exit; end;
  end;
  for i:=i1-1 downto 1 do begin
    a[i]:=10-a[i+1]-a[i+2];
    if (a[i]<1) or (a[i]>10) then begin Memo1.Lines.Add('Нет решения'); Exit; end;
  end;
  for i:=i2+1 to 10 do begin
    a[i]:=10-a[i-1]-a[i-2];
    if (a[i]<1) or (a[i]>10) then begin Memo1.Lines.Add('Нет решения'); Exit; end;
  end;
  for i:=1 to 10 do Memo1.Lines.Add(Format('%d: %d',[i,a[i]]));
end;

[SaLoKiN]

 for i:=1 to 10 do Memo1.Lines.Add(Format('%d: %d',[i,a[i]]));

может не до 10?