![]() |
Модераторы: Poseidon |
![]() ![]() ![]() |
|
Mar |
|
|||
![]() Новичок Профиль Группа: Участник Сообщений: 13 Регистрация: 24.8.2006 Репутация: нет Всего: нет |
Здравствуйте.
Ай нид хэлп, ни магу решить задачу. Вобщем вот задание Сформировать и вывести на печать массив B(15), элементы которого принадлежат интервалу [-35;40]. Найти произведения отрицательных элементов и сумму элементов, кратных 3-м и имеющих нечетный индекс. Как задать интервал [-35;40] ? Если кому не сложно, напишите задачу в общем виде.. |
|||
|
||||
Kuvaldis |
|
||||
![]() механик-вредитель ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1189 Регистрация: 16.6.2006 Где: Минск Репутация: 32 Всего: 61 |
Mar,
const HIGH = 40; LOW = -35; Цикл по всем элементам. Для каждого элемента B[i] массива проверяешь: если B[i] >=LOW и B[i] <= HIGH, то печать Это сообщение отредактировал(а) Kuvaldis - 14.10.2006, 13:12 -------------------- Помни - когда ты спишь, враг не дремлет Спи чаще и дольше, изматывай врага бессоницей |
||||
|
|||||
volvo877 |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2073 Регистрация: 15.11.2004 Репутация: 34 Всего: 116 |
||||
|
||||
Kuvaldis |
|
|||
![]() механик-вредитель ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 1189 Регистрация: 16.6.2006 Где: Минск Репутация: 32 Всего: 61 |
volvo877,
А если диапазон будет больше, чем размерность 1 байта (256 элементов для множества) ? Твой вариант, как всегда, красив, но на этот раз не для общего случая ![]() -------------------- Помни - когда ты спишь, враг не дремлет Спи чаще и дольше, изматывай врага бессоницей |
|||
|
||||
volvo877 |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2073 Регистрация: 15.11.2004 Репутация: 34 Всего: 116 |
Давай не будем заниматься предварительной оптимизацией "подо все случаи"... В задании явно указан интервал, зачем нужно рассматривать какие-то общие случаи?
"Premature optimization is the root of all evil" © Д.Кнут... Кстати, для общей информации - твой вариант ошибочен в общем случае. Хочешь доказательство - в приват... Не будем засорять тему... |
|||
|
||||
Oleg_Ci |
|
|||
![]() Friend ![]() ![]() Профиль Группа: Участник Сообщений: 485 Регистрация: 28.5.2006 Где: Новосиб.обл. Репутация: 25 Всего: 30 |
|
|||
|
||||
Ofer |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 293 Регистрация: 15.10.2006 Где: КривбаСС Репутация: нет Всего: 5 |
Вот код на Турбо Паскале (v 7.1)
uses CRT; var B : array [-35..40] of Integer; i,P,S : Integer; begin ClrScr; P := 1; S := 0; Randomize; for i := 0 to 14 do begin B[i] := Random(10) - 5; Write(B[i]:3,' '); if B[i] < 0 then P := P * B[i]; if (B[i] mod 3 = 0) and (Odd(i)) then S := S + B[i]; end; WriteLn; WriteLn('Произведение отрицательных чисел = ',P); WriteLn('Сумма чисел равных трем с нечетным индексом = ',S); ReadLn; end. Удачи! Надеюсь помогло. |
|||
|
||||
volvo877 |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 2073 Регистрация: 15.11.2004 Репутация: 34 Всего: 116 |
||||
|
||||
Ofer |
|
|||
![]() Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 293 Регистрация: 15.10.2006 Где: КривбаСС Репутация: нет Всего: 5 |
Ну да, натупил.
Тогда достаточно изменить строку B : array [0..14] of Integer; А числа и так задаются в указаном диапозоне ![]() B[i] := Random(10) - 5; Но при желании можно тоже изменить: B[i] := Random(75) - 35; |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Центр помощи" | |
|
ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Более подробно с правилами данного раздела Вы можете ознакомится в этой теме. Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Центр помощи | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |