IPB
ЛогинПароль:

> 

Начальные контакты ТОЛЬКО через личку!!

 
 Ответить  Открыть новую тему 
> Задача с массивом, Помогите срочно!!!
сообщение
Сообщение #1


Гость






Пожалуйста, напишите программу. Я бы сам разобрался и сделал, но времени нет, завтра сдавать. Задача простая (у нас всего 3 лекции было). Буду очень признателен.

Задание:
Задана последовательность значений элементов некоторого массива до и после преобразования по некоторому правилу. Определите алгоритм преобразования и напишите программу, которая:
1) Формирует массив из заданного количества случайных целых (63) чисел в заданном диапазоне [-44; 44] и выводит элементы массива на экран;
2) По определённому вами алгоритму (каждый элемент минус 12) преобразовывает этот массив и выводит на экран элементы преобразования массива;
3) Производит заданные вычисления (произведение [-2; 21]) и выводит результаты на экран.


Исходные данные:
Массив F = (5, -8, 4, 8, 12, -4, 0) преобразован к виду F = (-7, -20, -8, -4, 0, -16, -12).
Размер массива F – 63 элемента из диапазона [-44; 44].
Вычислить произведение [-2; 21].
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Начинающий


Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Цитата(Casio @ 18.06.2007 19:03) *
Производит заданные вычисления (произведение [-2; 21])

Если я правильно понял, то это значит: найти произведение элементов преобразованного массива, которые входят в интервал [-2;21].

Если так, то вот код


var
f:array[1..63] of integer;
i:integer;
p:longint;
begin
randomize;
writeln('ishodniy massiv:');
for i:=1 to 63 do
begin
f[i]:=random(89)-44;
write(f[i],' ');
end;
writeln;
writeln('preobrazovanniy massiv:');
p:=1;
for i:=1 to 63 do
begin
f[i]:=f[i]-12;
if (f[i]>=-2) and (f[i]<=21)
then p:=p*f[i];
write(f[i],' ');
end;
writeln;
writeln('proizvedenie [-2,21]: ',p);
readln;
end.


Нужно что-то изменить - пиши что именно. доволен результатом - переведи денюжек на Счета форума.

Сообщение отредактировано: Urnix -


--------------------
Интернет, как смерть - забирает лучших...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 31.10.2020 3:25
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name