Комментарии 11

• Исходные данные
  N = 5
  3 -5 -3 -4 2

  Полученные результаты
  3

  Пример верного решения
  2

  Ответить

• мда.. опять связался с for и понадеялся на его счётчик… в delphi 7 выводится результат 2 (вроде как всё хорошо). Но получается не стабильно в зависимости от компилятора переписал решение на while:
  Было:

  program Array26; var a:array[1..10] of integer; N,i,temp:Integer; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; Temp:=a[1] mod 2; for i:=2 to N do if temp = (a[i] mod 2) then begin temp:= i; break; end else temp:= (a[i] mod 2); if temp = i then Writeln(i) else Writeln('0'); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

  program Array26; var   a:array[1..10] of integer;   N,i,temp:Integer;   begin   Write('N: ');   Readln(N);   for i:=1 to N do    begin     write(i,' :');     readln(a[i]);    end;     Temp:=a[1] mod 2;   for i:=2 to N do    if temp = (a[i] mod 2) then     begin      temp:= i;      break;     end    else temp:= (a[i] mod 2);     if temp = i then Writeln(i)   else Writeln('0'); end.

  Стало:

  program Array26; var a:array[1..10] of integer; N,i,temp:Integer; begin Write('N: '); Readln(N); for i:=1 to N do begin write(i,' :'); readln(a[i]); end; Temp:=a[1] mod 2; i:=2; while (i< =N) and (temp <> (a[i] mod 2)) do begin temp:= (a[i] mod 2); inc(i); end; if i=N+1 then Writeln('0') else Writeln(i); readln; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

  program Array26; var   a:array[1..10] of integer;   N,i,temp:Integer;   begin   Write('N: ');   Readln(N);   for i:=1 to N do    begin     write(i,' :');     readln(a[i]);    end;     Temp:=a[1] mod 2;   i:=2;     while (i< =N) and (temp <> (a[i] mod 2)) do    begin     temp:= (a[i] mod 2);     inc(i);    end;     if i=N+1 then Writeln('0')   else Writeln(i);   readln; end.

  Ответить

  • Скорее здесь еще один нюанс — знак остатка при его взятии у отрицательного числа. Здесь, наверное, a[-5] mod 2=-1. Поэтому (a[3] mod 2) не равно (a[-5] mod 2).

    Ответить

    • поправил, понапихал везде модулей…

      Ответить

• Показалось, что проще проверять числа уже при их вводе(+экономим милисекунды), но можно сделать и отдельным циклом

  [crayon-673cfdbd30624586379994 inline="true" ] var i,n,d:integer; a:array [1..10]of integer; begin read(n); for i:=1 to n do begin read(a[i]); if i=1 then d:=0 else if (odd(a[i]))xor(odd(a[i-1])) then continue else if d=0 then d:=i; end; write(d); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

  [crayon-673cfdbd30624586379994 inline="true" ] var   i,n,d:integer;     a:array [1..10]of integer; begin     read(n);     for i:=1 to n do     begin       read(a[i]);             if i=1 then d:=0        else if (odd(a[i]))xor(odd(a[i-1])) then continue                else if d=0 then d:=i;     end;   write(d); end.

  [/crayon]

  Ответить

• Здесь есть момент, по условию массив у нас уже есть. То-есть не имеет значение как мы его получаем.

  А вот процедура continue мне кажется обсолютно не к месту… вроде никто и не собирается останавливать for так что можно так:

  for i:=1 to n do begin read(a[i]); if i=1 then d:=0 else if (odd(a[i]))xor(odd(a[i-1])) then else if d=0 then d:=i; end;

  1 2 3 4 5 6 7

  for i:=1 to n do     begin       read(a[i]);       if i=1 then d:=0        else if (odd(a[i]))xor(odd(a[i-1])) then                else if d=0 then d:=i;     end;

  или так:

  for i:=1 to n do begin read(a[i]); if i=1 then d:=0 else if not(odd(a[i])xor(odd(a[i-1]))) and (d=0) then d:=i; end;

  1 2 3 4 5 6

  for i:=1 to n do     begin       read(a[i]);       if i=1 then d:=0       else if not(odd(a[i])xor(odd(a[i-1]))) and (d=0) then d:=i;     end;

  Но мне всё равно xor понравился… пока добавил как есть..

  Ответить

• Я вот так сделал для заданного массива Vector[1..NumOfElements]:
  (правда, не уверен, что выражение FALSE=FALSE будет TRUE во всех языках программирования или компиляторах)

  OddMix := True; Index := 1; while OddMix and (Index < NumOfElements) do begin OddMix := (odd(Vector[Index]) = (not odd(Vector[Index + 1]))); inc(Index); end; write('The element number that breaks the sequence is: '); if OddMix then writeln(0) else writeln(Index);

  1 2 3 4 5 6 7 8 9 10 11 12

  OddMix := True;    Index  := 1;    while OddMix and (Index < NumOfElements) do       begin          OddMix := (odd(Vector[Index]) = (not odd(Vector[Index + 1])));          inc(Index);       end;    write('The element number that breaks the sequence is: ');    if OddMix then       writeln(0)    else       writeln(Index);

  Ответить

  • Да, хорошее решение. И False всегда равно False. Это логика и соответственно если компилятор хочет выжить, то он всегда это должен правильно обрабатывать. 🙂
    проблемы начинаются с неопределёнными выражениями. Обычно они называются NULL. И вот NULL не равен NULL, обычно! Лучше использовать специальные функции проверки на NULL.
    А ещё по решению, можно убрать пемеременную OddMix. Но получается грамоздко…

    Index := 1; while (odd(Vector[Index]) = (not odd(Vector[Index + 1]))) and (Index < NumOfElements) do inc(Index); write('The element number that breaks the sequence is: '); if Index=NumOfElements then writeln(0) else writeln(Index+1);

    1 2 3 4 5 6 7 8 9 10

    Index  := 1;     while (odd(Vector[Index]) = (not odd(Vector[Index + 1]))) and (Index < NumOfElements) do inc(Index);     write('The element number that breaks the sequence is: ');     if Index=NumOfElements then      writeln(0)   else      writeln(Index+1);

    Добавил ваше решение в шапку.

    Ответить

• Program a26; Var a: array [1..10] of integer; n,i,d: integer; Begin Write('N='); Readln(n); For i:=1 to n do Begin Write(i,': '); Readln(a[i]); End; Writeln(); For i:=2 to n do Begin If odd(a[i-1]) and odd(a[i]) then Begin If (d=0) then d:=i; End; If not odd(a[i-1]) and not odd(a[i]) then Begin If (d=0) then d:=i; End; End; Writeln(d); End.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

  Program a26;   Var a: array [1..10] of integer; n,i,d: integer;   Begin Write('N='); Readln(n); For i:=1 to n do Begin   Write(i,': ');   Readln(a[i]); End; Writeln(); For i:=2 to n do Begin If odd(a[i-1]) and odd(a[i]) then   Begin    If (d=0) then d:=i;   End; If not odd(a[i-1]) and not odd(a[i]) then   Begin    If (d=0) then d:=i;   End; End; Writeln(d); End.

  Ответить

  • Вот эти два условия:

    Delphi/Pascal

    If odd(a[i-1]) and odd(a[i]) then Begin If (d=0) then d:=i; End; If not odd(a[i-1]) and not odd(a[i]) then Begin If (d=0) then d:=i; End;

    1 2 3 4 5 6 7 8

    If odd(a[i-1]) and odd(a[i]) then   Begin    If (d=0) then d:=i;   End; If not odd(a[i-1]) and not odd(a[i]) then   Begin    If (d=0) then d:=i;   End;

    можно заменить на

    Delphi/Pascal

    If odd(a[i-1]) = odd(a[i]) then If (d=0) then d:=i;

    1 2	If odd(a[i-1]) = odd(a[i]) then    If (d=0) then d:=i;

    И ещё d не определено до условия… это плохо… далеко не во всех компиляторах это будет работать.

    Ответить

    • Оочень понравилась идея… в общем чуть чуть подкорректировал 🙂 надеюсь вы не против совместного авторства в шапке 🙂

      Ответить