VPF::Алгоритм преобразования элементов массива

Alexander4321

Дата 28.11.2010, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 11.11.2010

Репутация: нет
Всего: нет

Пытаюсь выполнить лабораторную работу. Дано задание : Задана последовательность значений элементов некоторого массива до и после преобразования по некоторому правилу. Определите алгоритм преобразования и напишите программу, которая:

1) формирует массив из заданного количества случайных целых чисел в заданном диапазоне и выводит элементы массива на экран;

2) по определенному вами алгоритму преобразовывает этот массив и выводит на экран элементы преобразованного массива.

3) производит заданные вычисления и выводит результат на экран.

Мой вариант : Массив C = (–4, 9, 5, –8, –5, 4, 0) преобразован к виду C = (–8, 0, 0, –16, –10, 0, 0). Размер массива C - 40 элементов из диапазона [–23,23]. Вычислить сумму нечетных элементов преобразованного массива.

Не могу понять, как определить алгоритм преобразования. Писал преподу, но тот молчит как партизан. Сможет кто-нибудь объяснить? Заранее спасибо!

~FoX~

Дата 28.11.2010, 17:39 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 1
Всего: 68

Alexander4321,

Цитата(Alexander4321 @ 28.11.2010, 16:54

)

(–4, 9, 5, –8, –5, 4, 0) преобразован к виду C = (–8, 0, 0, –16, –10, 0, 0)

Все положительные в ноль все отрицательные умножить на два...
Заполнили

Код


randomize
for i := 0 to 39 do begin
  c[i] := random (46)-23
end;

Преобразовываем...

Код


for i := 0 to 39 do begin
  if c[i] < 0 then c[i] := c[i]*2 
  else c[i] := 0;
end;

Вычисляем

Код


var
  r: integer;
//......
for i := 0 to 39 do begin
  if not odd(i) then r := r + c[i];
end;

Это сообщение отредактировал(а) ~FoX~ - 28.11.2010, 17:46

--------------------

…множественность никогда не следует полагать без необходимости…

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »