Как произвести перемножение всех массивов?

10.11.2018, 18:46. Показов 565. Ответов 0

Метки нет (Все метки)

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

Задача такая. В программе нужно ввести данные, к примеру, 10 магазинов: кол-во товаров в каждом магазине и цену штуки товара. Далее программа начинает работу. Она вычисляет общую стоимость товаров и общее количество проданных товаров ВСЕХ магазинов.
Меня интересует последнее. Как сделать это перемножение всех товаров? Понятное дело, что можно сделать так:
a:=tovar[1].title+tovar[2].title+tovar[3].title и т.д. до 10 товаров.
К сожалению, это будет занимать много места. Как можно сократить?

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
34
35
36
37
const n=1;
type cat=record
   title1,title2,title3: real;
   price: real;
   sum: real;
   allprice: real;
end;
var tovar: array [1..n] of cat;
   i: integer;
   a: integer;
begin
   for i:=1 to n do
   begin
      writeln ('Введите сведения о ', i , ' магазине');
      writeln ('Количество проданного товара за январь');
      readln (tovar[i].title1);
       writeln ('Количество проданного товара за февраль');
      readln (tovar[i].title2);
       writeln ('Количество проданного товара за март');
      readln (tovar[i].title3);
      writeln ('Цена за штуку');
      readln (tovar[i].price);
   end;
   writeln ('Ввод закончен');
   writeln;
   writeln ('Товар в наличии:');
   for i:=1 to n do
         begin
         tovar[i].sum:=tovar[i].title1+tovar[i].title2+tovar[i].title3;
         tovar[i].allprice:=tovar[i].sum*tovar[i].price;
         writeln('Продано товара за квартал в ', i , ' магазине: ', tovar[i].sum:0:0, 
         ' Выручка ', i , ' магазина: ',tovar[i].allprice:0:0);
         end;
writeln('Общая выручка: '); readln(a);
a:=
 
end.

Выше добавил код.
Нужно сложить всю выручку всех магазинов. Не смотрите на значение const. Временно изменил, дабы только 1 магазин прокручивало

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

10.11.2018, 18:46

Ответы с готовыми решениями:

перемножение массивов
Помогите, пожалуйста. Есть следующая задача: заданы массивы: a, b, которые инициализированы некоторыми значениями. Например: int a; ...

Перемножение массивов
подскажите ,пожалуйста, как можно умножить первый элемент первого массива на первый элемент второго массива, второй элемент первого на...

Перемножение массивов
Скажите, как можно написать программу чтобы элементы (1 2 3 4) умножались на отсчеты где их 8? Пусть имеются значения 1 2 3 4 надо умножать...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

10.11.2018, 18:46

Помогаю со студенческими работами здесь

Перемножение двух массивов
помогите с программой пожалуйста, когда перемножается 2 матрицы выводится какой то мусор вместо нормальной третей матрицы. Результат...

Создание и перемножение массивов
как создать два масива с числами от 1 до 10 и что б они на друг друга множились в третей строке 1 2 3 4 5 6 7 8 9 10 1 2 3 4 5...

Непонятное перемножение массивов
Доброго времени суток, господа. Выполняю перемножение вектора-столбца и вектора-строки следующим образом: exponenta =...

Перемножение массивов разного ранга
Примерное условие: Есть сводка по кол-ву пяти заказанных элементов восемью производствами. То есть каждое из производств заказало по n...

Перемножение 2-х массивов коэфициентов многочлена
Итак, стоит задача перемножить напрямую 2 многочлена - 2 массива коэффициентов при неизвестных многочлена. Размер исходных массивов...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .

Наверх