Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32

Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами

26.12.2010, 14:11. Показов 4802. Ответов 19
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Задан массив размером K[1..10]. Сформировать два массива, включая в первый четные элементы исходного массива с нечетными индексами, а во второй нечетные элементы с четными индексами.

 Комментарий модератора 
Именуйте темы осмысленно. Название темы должно максимально полно отражать ее содержание.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
26.12.2010, 14:11
Ответы с готовыми решениями:

Сформировать два массива: в первый включить четные элементы исходного массива, во второй – нечетные
Из одномерного массива сформировать два массива: в первый включить четные элементы исходного массива, во второй – нечетные. Массив с...

Сформировать два массива: в первый включить элементы исходного с четными номерами, а во второй с нечетными
помогите пожалуйста решить задачи=) язык программирования паскаль №2) задан массив а размерности 2n. сформируйте два массива в и с: в...

Сформировать два массива : в первый включить элементы исходного с черными номерами, во второй с нечетными
Задан массив с количеством элементов n. Сформировать два массива : в первый включить элементы исходного массива с черными номерами, а во...

19
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
26.12.2010, 14:32
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
kol:=0;
kol2:=0;
randomize;
for i:=1 to 10 do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
  if (a[i] mod 2=0) and (odd(i)) then 
  begin
   inc(kol);
   b[kol]:=a[i] 
  end
  else
   begin
    inc(kol2);
    c[kol2]:=a[i]
   end;
end;
Писал прям здесь.Так что прроверяйте.
1
 Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32
26.12.2010, 14:48  [ТС]
Спасибо.Только это FreeP....или Т???
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
26.12.2010, 14:49
да я думаю и там и там пойдёт
1
 Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32
26.12.2010, 17:10  [ТС]
(odd(i)) then Что это означает?inc(kol) и это)))
0
Фрилансер
Эксперт С++
 Аватар для Dekio
5845 / 1226 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
26.12.2010, 21:27
odd() - непарность числа
inc() - увеличение числа на 1
1
 Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32
27.12.2010, 01:36  [ТС]
МММ...можно как нибудь это с начало сделась)))А не отрывком
0
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
27.12.2010, 01:42
МММ...можно как нибудь это с начало сделась)))А не отрывком
Конечно можно!!!Что за вопрос!Почему же нет!!!Делайте я разрешаю.
Описание, объявление и заполнение массивов (матриц)
1
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
27.12.2010, 03:18
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
kol:=0;
kol2:=0;
randomize;
for i:=1 to 10 do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
  if (a[i] mod 2=0) and (odd(i)) then 
  begin
   inc(kol);
   b[kol]:=a[i] 
  end
  else
   begin
    inc(kol2);
    c[kol2]:=a[i]
   end;
end;
Писал прям здесь.Так что прроверяйте.
В массив c войдут все элементы a, не вошедшие в b - что совершенно не согласуется с условием задачи..
настасья23, делай вот так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
  nb:=0;
  nc:=0;
  for i:=1 to 10 do begin
    if Odd(i) and not Odd(a[i]) then begin
      Inc(nb);
      b[nb]:=a[i] 
    end;
    if not Odd(i) and Odd(a[i]) then begin
      Inc(nc);
      c[nc]:=a[i] 
    end
  end;
1
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
27.12.2010, 08:59
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
use
я чёто разницы не заметил.Может поясните?
Нет проблем, пожалуйста.
Вот массив (левый столбец - номера элементов)

1 1
2 3
3 4
4 6

Массив b у нас формируется одинаково, в данном случае - только одно четное число 4 (на нечетной позиции 3).

Массив c в твоем варианте получается такой: 1, 3, 6

На самом деле надо выбрать только нечетные на четных местах, то есть нечетное число 3 (на четной позиции 2). Именно это и сделает вариант, предложенный мной.

Стало понятнее? Если нет, то ты просто погоняй оба варианта и повнимательнее рассмотри результаты. Или задавай еще вопросы.
0
 Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32
27.12.2010, 09:19  [ТС]
Вы меня запутали))Можно программку попроще написать)
0
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
27.12.2010, 09:27
Цитата Сообщение от настасья23 Посмотреть сообщение
Вы меня запутали))
Нет, Настя, мы тебя распутываем! ))

Можно программку попроще написать)
Хочешь автомобиль попроще - бери телегу )). Вся прелесть в том сочетании простоты и сложности, которая называется элегантностью.

Ты сможешь дописать этот код до рабочей проги или помочь тебе?
1
 Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32
27.12.2010, 09:36  [ТС]
над помочь))))))
0
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
27.12.2010, 09:54
Цитата Сообщение от настасья23 Посмотреть сообщение
над помочь))))))
А что именно тебе тут трудно? Описать переменные? Ввести данные? Распечатать?
Pascal
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
29
30
31
32
33
const
  n=20;
 
var
  nb,nc,i: integer;
  a,b,c: array [1..n] of integer;
 
begin
  Randomize;
  for i:=1 to n do a[i]:=Random(n);
  WriteLn('массив A, ',n,' элементов');
  for i:=1 to n do Write(a[i]:4);
  WriteLn;
  nb:=0;
  nc:=0;
  for i:=1 to n do begin
    if Odd(i) and not Odd(a[i]) then begin
      Inc(nb);
      b[nb]:=a[i]
    end;
    if not Odd(i) and Odd(a[i]) then begin
      Inc(nc);
      c[nc]:=a[i]
    end
  end;
  WriteLn('массив B, ',nb,' элементов');
  for i:=1 to nb do Write(b[i]:4);
  WriteLn;
  WriteLn('массив C, ',nc,' элементов');
  for i:=1 to nc do Write(c[i]:4);
  WriteLn;
  ReadLn
end.
1
 Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32
27.12.2010, 10:07  [ТС]
to ... do Write..... А почему Write?
0
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
27.12.2010, 10:24
Цитата Сообщение от настасья23 Посмотреть сообщение
to ... do Write..... А почему Write?
В смысле - почему не WriteLn? Это чтоб они были на одной строчке. Ты попробуй, замени на WriteLn - и посмотри на результат.

Экспериментируй побольше.

Я правильно понял твой вопрос?
1
 Аватар для SuPeR XaKer
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
27.12.2010, 10:29
use

Не по теме:

я уже пост тридцать лет назад как изменил.Читайте внимательнее.Да и он удалён уже

0
 Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32
27.12.2010, 10:36  [ТС]
for i:=1 to nb do Write(b[i]:4);
воть тут вопрос....
0
 Аватар для use
180 / 180 / 81
Регистрация: 18.12.2010
Сообщений: 346
27.12.2010, 11:08
Цитата Сообщение от настасья23 Посмотреть сообщение
for i:=1 to nb do Write(b[i]:4);
воть тут вопрос....
Настюш, извини - не могла ли бы ты поподробнее спрашивать? Я правда не понимаю, в чем именно вопрос..
В этой строке я вывожу массив b. Цикл по всем элементам, которые мы в него положили (nb). На каждое число отводится 4 позиции при печати (:4). Что-то еще непонятно? Я не догоняю.. )) скажи яснее.

Добавлено через 3 минуты

Не по теме:

Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
useя уже пост тридцать лет назад как изменил.Читайте внимательнее.Да и он удалён уже :D
Да, я заметил. Быват.
И что ты хотел этим сказать?

1
 Аватар для настасья23
1 / 1 / 0
Регистрация: 25.12.2010
Сообщений: 32
27.12.2010, 16:52  [ТС]
Уже не обязательно)))Зачет я сдала)))Огромное спасибо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
27.12.2010, 16:52
Помогаю со студенческими работами здесь

Вывести вначале элементы массива с четными индексами, а затем - с нечетными.
1. Дан массив размера N. Вывести вначале его элементы с четными индексами, а затем - с нечетными. 2. Багаж пассажира характеризуется...

Элементы с четными индексами массива увеличить на второй
Нужно решить 2 задачи, с сортировкой массивов я более менее разобрался, но как решать эти задачи, вобще понятия не имею. 1) К элементам с...

Создать два файла, первый из которых содержит элементы исходного с нечетными номерами, а второй — с четными
Задан файл действительных чисел (создать программным путем). Создать два новых файла, первый из которых содержит элементы исходного файла с...

Создать два новых файла, первый из которых содержит элементы исходного файла с четными номерами, а второй — с нечетными.
Дан файл вещественных чисел с именем Name1. Создать два новых файла с именами Name2 и Name3, первый из которых содержит элементы исходного...

Вывести все элементы массива с четными индексами
1 задача: Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива.Необходимо...


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

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

Новые блоги и статьи
Как украсить новогоднюю елку с Q# и Qiskit
EggHead 24.06.2025
Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .
Системы нулевого доверия на C#
UnmanagedCoder 24.06.2025
Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .
Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку.
Hrethgir 24.06.2025
Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .
Деплой Flask приложения
py-thonny 23.06.2025
За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .
WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур
ArchitectMsa 23.06.2025
Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .
Непрерывная интеграция для пакета Python
Mr. Docker 22.06.2025
Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .
Продвинутый ETL на C# из OLTP БД в хранилище
stackOverflow 22.06.2025
Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .
Мастер-класс по микросервисам на Node.js
Reangularity 21.06.2025
Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .
Управление Arduino из WPF приложения
Wired 21.06.2025
Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .
Звёздная пыль
kumehtar 20.06.2025
Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru