В одномерном массиве четные ящики увеличить в 2 раза, а не четные уменьшить в 2 раза

@ikeext · Регистрация: 13.11.2013

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

Дан массив с размером 100. Заполнить массив случайными цифрами. Четные ящики увеличить в 2 раза, а не четные уменьшить в 2 раза.

@FIL · 23.04.2014, 21:48

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

ящики увеличить в 2 раза

Сам-то понял, что написал?

DenNik · 24.04.2014, 09:39

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

замучался думать

нужно не думать, а делать, основываясь на ткоретических знаниях. они есть у тебя?

@Зотов_из_ОСА · 25.04.2014, 20:53

Delphi
1
2
3
4
5
6
...
for i:=1 to sizeof(a) do
 begin
  if i mod 2 = 0 then inc(a[i],a[i]) else a[i]:=a[i] div(/) 2;
 end;
...

Поясняю
sizeof(a) - получить размер массива
i mod 2 = 0 - проверка индекса на четность
inc(a[i],a[i]) - оптимизация удвоения ( прибавление самого себя)
a[i]:=a[i] div(/) 2 - целочисленное или десятичное деление

DenNik · 28.04.2014, 09:33

Сообщение от Зотов_из_ОСА

sizeof(a) - получить размер массива

вот тебе пример. допустим, твой массив объявлен как a: array[5..10]. sizeof(a) = 6, а верхний индекс равен 10. налицо логическая ошибка. в таких случаях используется такая конструкция

for i:= Low(a) to High(a) do...

@Leoparrd · 28.04.2014, 12:48

Увеличивать и уменьшать ящики?
Значится так...
1 Распилить нечётный ящик.
2 Сколотить из него маленький
3 Остатки пустить на увеличение чётного ящика, если не хватило материала, хватаем следующий нечётный ящик.
4 Повторить пункты 1-3 для всех оставшихся ящиков, пока это возможно, пуская в ход отходы производства.
5 То что осталось или не подошло или не хватило, закопать поглубже, чтоб замести следы.

@Cyborg Drone · 28.04.2014, 13:08

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

Четные ящики

Полагаю, это чудеса компьютерного перевода. Задание, видимо, следует читать так:

Дан массив размерности 100. Заполнить массив случайными цифрами. Четные ячейки увеличить в 2 раза, а нечетные уменьшить в 2 раза.

@Зотов_из_ОСА · 28.04.2014, 19:40

DenNik,

a: array[5..10]. sizeof(a) = 6

приведи мне пример такой программы где нумерация обоснованно начинается не с 1 и не с 0

@Cyborg Drone · 28.04.2014, 21:47

Зотов_из_ОСА, дело даже не в том, с 0 или 1... Допустим, переменные объявлены так:

Pascal
1
2
var a: array [1..100] of integer;
    i: integer;

Как Вы полагаете, на какой строке и когда возникнет ошибка в Вашем фрагменте?

@mss · 28.04.2014, 21:53

Сообщение от Зотов_из_ОСА

sizeof(a) - получить размер массива

В попугаях ?)

К примеру, массив объявлен так:

array[1..6] of Cardinal // какого он размера, по-твоему ?

или так:

array of Byte // а этот ?

@Зотов_из_ОСА · 28.04.2014, 22:14

Как Вы полагаете, на какой строке и когда возникнет ошибка в Вашем фрагменте?

Понял на 26, так как sizeof возвращает размер массива в байтах.

Добавлено через 16 минут
mss, Ёрничать не надо, я не виноват что твой пост появился на минуту раньше. В следующем посте все написано.

@mss · 28.04.2014, 22:27

Не по теме:

Сообщение от Зотов_из_ОСА

Ёрничать не надо

Вот уж чего точно не надо - так это из штанов выпрыгивать, пытаясь выдать как можно больше кода в секунду)
Особо про оптимизацию порадовало - вот уж точно медвежья услуга автору, который совершенно не ориентируясь в предмете порадует при этом препода перлами про "оптимизацию"))

@Зотов_из_ОСА · 28.04.2014, 22:32

Модераторы, закройте уже тему, а то на личности переходим!

@Cyborg Drone · 28.04.2014, 23:14

Комментарий модератора

Зотов_из_ОСА, тема по Вашему желанию закрыта быть не может. Читайте правила. mss, Зотов_из_ОСА, оба, прекратите нарушать правила форума 3.1 и 3.2. Не то в угол поставлю.

DenNik · 29.04.2014, 11:01

Сообщение от Зотов_из_ОСА

приведи мне пример такой программы где нумерация обоснованно начинается не с 1 и не с 0

Не по теме:

разбежался... ты абсолютно все алгоритмы на свете знаешь.? и не надо в бутылку лезть

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .

@ikeext 0 / 0 / 0 Регистрация: 13.11.2013 Сообщений: 7

	В одномерном массиве четные ящики увеличить в 2 раза, а не четные уменьшить в 2 раза 23.04.2014, 21:25. Показов 2035. Ответов 14 Метки нет (Все метки) Дан массив с размером 100. Заполнить массив случайными цифрами. Четные ящики увеличить в 2 раза, а не четные уменьшить в 2 раза. 0

@Leoparrd Заблокирован
	28.04.2014, 12:48
	Увеличивать и уменьшать ящики? Значится так... 1 Распилить нечётный ящик. 2 Сколотить из него маленький 3 Остатки пустить на увеличение чётного ящика, если не хватило материала, хватаем следующий нечётный ящик. 4 Повторить пункты 1-3 для всех оставшихся ящиков, пока это возможно, пуская в ход отходы производства. 5 То что осталось или не подошло или не хватило, закопать поглубже, чтоб замести следы. 1

@Зотов_из_ОСА Аналитик 80 / 80 / 63 Регистрация: 24.04.2014 Сообщений: 465 Записей в блоге: 15
	28.04.2014, 22:32
	Модераторы, закройте уже тему, а то на личности переходим! 0