|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
09.12.2020, 20:04 | #1 (permalink) |
Новичок
Регистрация: 09.12.2020
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача на двумерные массивы
Задача: Имеется отчетность о выпуске деталей десяти наименований семью цехами завода (в тыс. руб.). Определить стоимость выпуска всех наименований деталей каждым из цехов. Сравнить стоимость выпуска по каждому цеху со средней стоимостью по всему заводу. Для каждого варианта сравнения обеспечить печать соответствующего сопроводительного текста. PASCAL constn=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. |
09.12.2020, 20:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что похожие темы могут существенно помочь в решении проблемы Двумерные массивы Двумерные массивы Двумерные массивы Двумерные массивы |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|