Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/11: Рейтинг темы: голосов - 11, средняя оценка - 5.00
muxomor
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
1

Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы с нечетными порядковыми номерами (1, 3, …)

03.02.2010, 14:41. Просмотров 2116. Ответов 11
Метки нет (Все метки)

Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все элементы
с нечетными порядковыми номерами (1, 3, …) и вывести размер полученного массива B и его содержимое.
Условный оператор не использовать.

Добавлено через 11 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
type
  massiv= array[1..10] of integer;
  var
      i,n:integer;
      A,B:massiv;
  begin
  write('vvedite n');
  readln(n);
  randomize;
  for I := 1 to n do begin
    A[i]:=random(81)-40;
end;
  for I := 1 to n do begin
  write (A[i], ' ');
  end;
  for I := 1 to n do begin
  if ((i mod 2)=1) then begin    
  B[i]:=A[i];
  end;
что дальше? подскажите, плиз((
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.02.2010, 14:41
Ответы с готовыми решениями:

Переписать в новый целочисленный массив B все элементы с порядковыми номерами, кратными трем
Доброго времени суток! Выручайте, дали задачу на практике, решить пока не...

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

Переписать в новый целочисленный массив В все элементы с порядковыми номерами, кратными трем (консоль не использовать)
пожалуйста помогите решить задачу: Дан целочисленный массив A размера N...

Переписать в новый массив B все элементы массива A с нечетными порядковыми номерами (1, 3, …)
Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B...

Переписать в новый целочисленное массив B все элементы массива А с порядковыми номерами, кратными трем
Дан целочисленное массив A размера N (≤15). Переписать в новый целочисленное...

11
Vladiator
1569 / 640 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
03.02.2010, 14:45 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
...
const
 n=10;
...
var
 a,b:array[1..n]of integer;
 i:integer;
begin
 //предполагается, что значения уже введены
 i:=1;
 while i<=n do begin
  b[i div 2 +1]:=a[i];
  i:=i+2;
 end;
end;
...
Добавлено через 29 секунд
Цитата Сообщение от muxomor Посмотреть сообщение
if ((i mod 3)=1) then begin
->
Цитата Сообщение от muxomor Посмотреть сообщение
Условный оператор не использовать.
к тому же, можно и
Delphi
1
if i mod 2=1 then
...
а если mod 3 = 1, то это не означает, что число нечётное
0
muxomor
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 14:50  [ТС] 3
да-да, надо (i mod 2)=1, точно
а как, без условного оператора?((
0
Vladiator
1569 / 640 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
03.02.2010, 14:50 4
Цитата Сообщение от muxomor Посмотреть сообщение
а как, без условного оператора?
Я написал в посте №2
0
muxomor
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 14:55  [ТС] 5
выводит 5 элементов, а дальше нули((
0
Vladiator
1569 / 640 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
03.02.2010, 15:04 6
Цитата Сообщение от muxomor Посмотреть сообщение
выводит 5 элементов, а дальше нули
потому что выводить надо до n div 2
0
muxomor
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 15:05  [ТС] 7
добавил в твой код:
Delphi
1
2
3
for I := 1 to n div 2 do begin
write (B[i], ' ');
    end;
5 нулей выводит((
0
Vladiator
1569 / 640 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
03.02.2010, 15:08 8
muxomor, а как он раньше выводил? какой код вы добавили, чтобы он выводил 5 элементов и дальше нули?
0
muxomor
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 15:11  [ТС] 9
не помню((

Добавлено через 1 минуту
у нас программирование вторую сессию идет, я заочник, по массивам тока одну неделю лекции были(( что-то добавил, вывел пяить элементов, потом нули, все убрал, оставил только ваш код, добавил вывод массива, нули вывел
0
Vladiator
1569 / 640 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
03.02.2010, 15:19 10
muxomor, я понял, в чём дело) надо ещё ввод массива создать

Добавлено через 1 минуту
Delphi
1
2
3
4
5
for i:=1 to n do begin
 a[i]:=random(20)+1;
 write(a[i]:4);
end;
writeln;
это надо добавить после begin'а
1
muxomor
1 / 1 / 0
Регистрация: 07.11.2009
Сообщений: 49
03.02.2010, 15:29  [ТС] 11
спс, все работает))))
0
rangerx
1944 / 1553 / 478
Регистрация: 31.05.2009
Сообщений: 2,913
03.02.2010, 15:38 12
Нужно элементарно скопировать элементы с нечетными порядковыми номерами одного массива в другой. Зачем здесь какие-то проверки/деления и т.д?
0
03.02.2010, 15:38
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.02.2010, 15:38

Дан целочисленный массив размера N. Удалить из массива все одинаковые элементы, оставив их первые вхождения.Н
Дан целочисленный массив размера N. Удалить из массива все одинаковые элементы,...

Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN,
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными...

Дан целочисленный массив N. Удалить из массива все одинаковые элементы, оставив их первые вхождения
Дан целочисленный массив N. Удалить из массива все одинаковые элементы, оставив...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru