Переписать в массив вначале все элементы исходного массива с четными номерами, а затем — с нечетными

@naru2vlad · Регистрация: 29.10.2017

Author24 — интернет-сервис помощи студентам

Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B того же размера вначале все элементы исходного массива с четными номерами, а затем — с нечетными: A2, A4, A6, …, A1, A3, A5, … .

@Hitoku · 07.01.2018, 16:06

Pascal

const n = 6;
var a, b: array [1..n] of integer;
    i, ii: integer;
begin
  randomize;
  write('A: ');
  for i := 1 to n do begin
    a[i] := -25 + random(51);
    write(a[i], ' ');
  end;
  writeln;
  ii := 2;
  for i := 1 to n div 2 do begin
    b[i] := a[ii]; ii := ii + 2;
  end;
  ii:=1;
  for i := n div 2 + 1 to n do begin
    b[i] := a[ii]; ii := ii + 2;
  end;
  write('B: ');
  for i := 1 to n do
    write(b[i], ' ');
end.

@bormant · 08.01.2018, 20:37

Pascal

const n=6;
var a, b: array [1..n] of Integer; i: Integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=-25+Random(51);
    b[(i+1) div 2+n div 2*Ord(Odd(i))]:=a[i];
  end;
  Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
  Write('B ='); for i:=1 to n do Write(' ',b[i]); WriteLn;
end.

Новичок · 08.01.2018, 22:10

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

Ord(Odd(i))

Можно сократить до i mod 2.

@Cyborg Drone · 08.01.2018, 22:52

i mod 2 в виде текста, конечно, короче получается. Однако, взятие остатка от деления - достаточно дорогостоящая операция.

Если уж сокращать, то лучше будет (i and 1).

Насчёт Ord(Odd(i)) - интересная штука получается. Как ни странно, это эквивалент (i and 1), поскольку компилируется это дело (по крайней мере, в FPC) как раз в

Assembler

1 2	mov i, eax and 1, eax

Вывод: Ord(Odd(i)) - оптимальный вариант. С одной стороны, компилируется в эффективный код, с другой стороны, логически верно отражает задуманное действие (i mod 2 или i and 1 - скажем так, "безликие").

Новичок · 08.01.2018, 23:43

Cyborg Drone, компилятор разве не может соптимизировать такие вещи(если конечно же включить оптимизацию)?

@Cyborg Drone · 09.01.2018, 00:30

Новичок, ??? В данном случае, конечно же, не может быть и речи о результате, который ты ожидаешь. Откуда компилятору знать, что тебе нужно?

Поэтому он i mod 2 компилирует примерно в

Assembler

mov i, eax
cdq   
mov 2, ecx
idiv ecx

Дело в том, что i mod 2 это совсем не то же самое, что ord(odd(i)) или i and 1. В данном случае можно применить i mod 2, но, вообще говоря, для определения чётности / нечётности требуется abs(i mod 2), ну, или abs(i) mod 2, но это уж как-то и не сокращение вовсе.

Пример:

ord(odd(-5)) = 1
-5 mod 2 = -1

Мелочь, вроде бы, но... Не мелочь. Определение чётности с помощью i mod 2 - это, на самом деле, такая бомба замедленного действия. Сидит себе в программе, до поры до времени никаких ошибок, а потом: бац! И долгие танцы с бубном.

@bormant · 09.01.2018, 14:32

Сообщение от Cyborg Drone

но, вообще говоря, для определения чётности / нечётности требуется abs(i mod 2), ну, или abs(i) mod 2

Это если зачем-то сравнивать с 1. Но для сравнения с нулем знак безразличен: i mod 2 <> 0
Тем не менее, FPC 3.0.4 и тут без деления обойтись не сможет даже с включенной оптимизацией (-Ox) от 1 до 4.

Сообщение от Новичок

Можно сократить до i mod 2

... но не нужно, неспроста оно там написано, выше Cyborg Drone пояснил, почему :-)

@naru2vlad 0 / 0 / 0 Регистрация: 29.10.2017 Сообщений: 20
		1
	Переписать в массив вначале все элементы исходного массива с четными номерами, а затем — с нечетными 05.01.2018, 17:12. Показов 2834. Ответов 7 Метки задача, задача, массивы (Все метки) Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B того же размера вначале все элементы исходного массива с четными номерами, а затем — с нечетными: A2, A4, A6, …, A1, A3, A5, … . 0

Новичок 1682 / 1095 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	08.01.2018, 22:10	4
	Сообщение от bormant Ord(Odd(i)) Можно сократить до i mod 2. 1

Новичок 1682 / 1095 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	08.01.2018, 23:43	6
	Cyborg Drone, компилятор разве не может соптимизировать такие вещи(если конечно же включить оптимизацию)? 1

@bormant Модератор 7795 / 4618 / 2831 Регистрация: 22.11.2013 Сообщений: 13,114 Записей в блоге: 1
	09.01.2018, 14:32	8
	Сообщение от Cyborg Drone но, вообще говоря, для определения чётности / нечётности требуется abs(i mod 2), ну, или abs(i) mod 2 Это если зачем-то сравнивать с 1. Но для сравнения с нулем знак безразличен: i mod 2 <> 0 Тем не менее, FPC 3.0.4 и тут без деления обойтись не сможет даже с включенной оптимизацией (-Ox) от 1 до 4. Сообщение от Новичок Можно сократить до i mod 2 ... но не нужно, неспроста оно там написано, выше Cyborg Drone пояснил, почему :-) 1

Переписать в массив вначале все элементы исходного массива с четными номерами, а затем — с нечетными

Решение