задачка на лампочки, имеющих два состояния Опции

[metallic]

Имеется n>= ламп. расположенных в ряд, каждая из которых может быть в одном или двух состояний -"вкл" или "выкл". Каждую секунду лампы одновременно меняют своё состояние по правилам если лампа и ее соседи (для первой и последней лампы - один сосед, для остальных - два) находятся в одинаковом состоянии, то она принимает состояние "выкл", иначе она принимает состояние "вкл''. В начальном положении все лампы находятся в состоянии "выкл", кроме самой левой лампы, имеющей состояние ''вкл'' . Экспериментально найдите ( не менее 5), для каких n все все лампы будут в состоянии '' выкл''.

Сообщение отредактировано: metallic - 23.11.2008 17:05

[metallic]

Все догадался)), вроде так:

Program Lamp;
 var i,k:integer;
  n:real;
  BEGIN
    writeln ('vvedite kol-vo opitov');
     readln (k);
    n:=2;
    writeln ('vse lampi pogasnyt pri n=2');
     for i:= 1 to k do
           begin
               n:=n+exp(i*ln(2));
                writeln ('vse lampi pogasnyt pri n=',n);
            end;
readln 
END.

Сообщение отредактировано: metallic - 23.11.2008 20:53

[Lapp]

Что-то я вообще ничего не понимаю.. Ты же просто считаешь степени двойки:

n:=n+exp(i*ln(2));

- да и все! Но ПОЧЕМУ? Как ты это вывел? Ты что ли основываешься на моем посте? Так это я тебе уже результат сказал. А ты просто делаешь прогу, чтоб она выводила то, что надо - и неважно, что внутри? так, что ли?
Ведь нужно-то ПРОВОДИТЬ эксперименты. Так? Или я чего-то не понимаю?
Отвечай поскорее, я собираюсь спать. Если нужен код - дам.

[Lapp]

Ладно, бери код и разбирайся в нем.
Успехов!

const
  m=26;  // максимальное число ламп

var
  n: integer;
  L,L1: array [1..m] of boolean;

function On: boolean;
var
  i: integer;
  b: boolean;
begin
  b:=false;
  for i:=1 to n do begin
    b:=b or L[i];
    if b then Break
  end;
  On:=b
end;

procedure Show;
var
  i: integer;
begin
  for i:=1 to n do if L[i] then Write('0') else Write('-');
  ReadLn
end;


var
  i: integer;
  j: LongInt;

begin
  for n:=2 to m do begin
    Write('Trying n=',n,' .. ');
    L[1]:=true;
    for i:=2 to n do L[i]:=false;
    j:=0;
    while On and(j<1 shl n) do begin
      for i:=1 to n do
        L1[i]:=(i>1)and(L[i] xor L[i-1])or(i<n)and(L[i] xor L[i+1]);
      L:=L1;
      Inc(j);
    //  Show;
    end;
    if On then WriteLn('Some On') else WriteLn('All Off');
  end
end.

Если найдутся ошибки - не обессудь..
На вопросы, я думаю, тебе тут ответят. А я - спать..