Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 17.03.2011, 21:52   #1 (permalink)
hexorq
Новичок
 
Регистрация: 17.03.2011
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Массивы.

Здравствуйте, очень прошу помочь мне с решением данной задачи!!!
Заранее бесконечно благодарен!!!

Даны массивы:
H1,...,H5 - шифры автопредприятий;
F1,...,F5 - фамилии директоров;
P1,...,P5 - объем перевозок, т;
G1,...,G5 - общая грузоподьемность, автотонна
Отпечатать список предприятий с указанием фамилий директоров, у которых объем перевозок на одну автотонну составляет от 1500 до 2000т. Определить средний объем перевозок по всем пяти предприятиям.

Очень надеюсь на вашу помощь!!!
hexorq вне форума   Ответить с цитированием

Старый 17.03.2011, 21:52
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Прошу вас, обратите внимание на похожие топики

Массивы
Массивы
Массивы
Массивы

Старый 18.03.2011, 07:05   #2 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,453
Записей в дневнике: 56
Сказал(а) спасибо: 123
Поблагодарили 149 раз(а) в 61 сообщениях
Репутация: 59583
По умолчанию

Под списком предприятий следует рассматривать их шифры?
Алгоритм решения может быть следующим:
1) определяем и заполняем массивы
2) в цикле вычисляем для каждого предприятия отношение объема перевозок к числу автотонн, проверяем значение на попадание в диапазон и выводим в виде списка
3) вычисляем в цикле сумму объемов перевозок и делим ее на 5
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 18.03.2011, 08:19   #3 (permalink)
shrek=)
Студент БГПУ
 
Аватар для shrek=)
 
Регистрация: 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.
shrek=) вне форума   Ответить с цитированием
Старый 18.03.2011, 08:42   #4 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 14,453
Записей в дневнике: 56
Сказал(а) спасибо: 123
Поблагодарили 149 раз(а) в 61 сообщениях
Репутация: 59583
По умолчанию

Михаил, при решении необходимо было делить объем поставки на число автотонн, то есть решить пропорцию с 1 неизвестным, так можно вычислить объем на 1 автотонну, а потом уже вычисленное значение анализировать.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:42.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.