17.03.2011, 21:52 | #1 (permalink) |
Новичок
Регистрация: 17.03.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы.
Заранее бесконечно благодарен!!! Даны массивы: H1,...,H5 - шифры автопредприятий; F1,...,F5 - фамилии директоров; P1,...,P5 - объем перевозок, т; G1,...,G5 - общая грузоподьемность, автотонна Отпечатать список предприятий с указанием фамилий директоров, у которых объем перевозок на одну автотонну составляет от 1500 до 2000т. Определить средний объем перевозок по всем пяти предприятиям. Очень надеюсь на вашу помощь!!! |
17.03.2011, 21:52 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Прошу вас, обратите внимание на похожие топики Массивы Массивы Массивы Массивы |
18.03.2011, 07:05 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Под списком предприятий следует рассматривать их шифры?
Алгоритм решения может быть следующим: 1) определяем и заполняем массивы 2) в цикле вычисляем для каждого предприятия отношение объема перевозок к числу автотонн, проверяем значение на попадание в диапазон и выводим в виде списка 3) вычисляем в цикле сумму объемов перевозок и делим ее на 5
__________________
Убить всех человеков! |
18.03.2011, 08:19 | #3 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
При решении задачи, я обозначил массивы через константу.
Код:
uses crt; const h:array [1..5] of string=('001a','002b','003c','004d','005f'); f:array [1..5] of string=('Иванов','Петров','Сидоров','Макаров','Синичкин'); p:array [1..5] of real=(2012,1213,1624,1546,2890); g:array [1..5] of real=(313,331,332,354,346); var i:integer; s:real; procedure sr_v; begin s:=0; for i:=1 to 5 do s:=s+p[i]; writeln ('Средний объем перевозок ',s/5); end; begin clrscr; for i:=1 to 5 do begin if (p[i]<2000) and (p[i]>1500) then write (h[i],' ',f[i],' ',g[i],' ',p[i]); end; sr_v; readln end. |
18.03.2011, 08:42 | #4 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Михаил, при решении необходимо было делить объем поставки на число автотонн, то есть решить пропорцию с 1 неизвестным, так можно вычислить объем на 1 автотонну, а потом уже вычисленное значение анализировать.
__________________
Убить всех человеков! |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|