Комментарии: Решаем задачи Абрамян на Паскале. Array26

Автор: Anton

Anton — Fri, 21 Apr 2017 06:54:54 +0000

В ответ на Anton. Оочень понравилась идея... в общем чуть чуть подкорректировал :) надеюсь вы не против совместного авторства в шапке :)

Автор: Anton

Anton — Fri, 21 Apr 2017 06:43:22 +0000

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

 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;

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;

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

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 не определено до условия… это плохо… далеко не во всех компиляторах это будет работать.

Автор: Kirk

Kirk — Fri, 21 Apr 2017 04:52:06 +0000

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.

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;

Writeln(d);

End.

Автор: Anton

Anton — Mon, 21 Nov 2016 03:24:31 +0000

Да, хорошее решение. И 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);

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);

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

Автор: Newton

Newton — Sun, 20 Nov 2016 20:19:33 +0000

Я вот так сделал для заданного массива 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);

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);

Автор: Anton

Anton — Thu, 10 Mar 2016 05:06:41 +0000

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

А вот процедура 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;

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;

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 понравился… пока добавил как есть..

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 19:25:02 +0000

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

[crayon-6998fcdf3c652467286042 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-6998fcdf3c652467286042 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]

Автор: Anton

Anton — Wed, 09 Mar 2016 08:09:30 +0000

В ответ на olegst1975. поправил, понапихал везде модулей...

Автор: olegst1975

olegst1975 — Wed, 09 Mar 2016 07:59:58 +0000

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

Автор: Anton

Anton — Wed, 09 Mar 2016 05:42:12 +0000

мда.. опять связался с 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.

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.

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.