Двумерные массивы: определить стоимость выпуска всех наименований деталей каждым из цехов

@stalker_174 · Регистрация: 05.11.2020

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

Здравствуйте! Не могли бы вы подсказать, как наиболее правильно выполнить программу? Я попытался создать ее, но она совсем не работает. Я уже правда не имею понятия, как ее реализовывать дальше...

Задача: Имеется отчетность о выпуске деталей десяти наименований семью цехами завода (в
тыс. руб.). Определить стоимость выпуска всех наименований деталей каждым из цехов.
Сравнить стоимость выпуска по каждому цеху со средней стоимостью по всему заводу.
Для каждого варианта сравнения обеспечить печать соответствующего сопроводительного
текста.

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
const
  n=3;
 type
  ceh =
  record
   name: integer;
   kol: integer;
   num: integer;
  end;
 var
  zavod: array [1..7] of ceh;
  s,i:integer;
  f:text;
 
 procedure zapoln (zavod:ceh);
  begin
   for i:=1 to n do
    begin
     writeln('Введите наименование детали: ');
     readln(zavod.name);
     writeln('Количество деталей: ');
     readln(zavod.kol);
     writeln('Номер цеха: ');
     readln(zavod.num);
    end;
  end;
 
begin
  end;
 until s=3;
end.

@Puporev · 09.12.2020, 08:00

Что подвигло Вас на записи? В задании ничего не говорится, просто 7 цехов по 10 деталей и все. Это массив a[1..7,1..10].
Заполняйте и считайте что Вам задано.

Новые блоги и статьи Все статьи Все блоги /
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	09.12.2020, 08:00
	Что подвигло Вас на записи? В задании ничего не говорится, просто 7 цехов по 10 деталей и все. Это массив a[1..7,1..10]. Заполняйте и считайте что Вам задано. 0