Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Массивы. (http://www.tehnari.ru/f41/t49001/)

hexorq

17.03.2011 21:52

Массивы.

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

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

Очень надеюсь на вашу помощь!!!:tehnari_ru_837::tehnari_ru_837:

AlexZir

18.03.2011 07:05

Под списком предприятий следует рассматривать их шифры?
Алгоритм решения может быть следующим:
1) определяем и заполняем массивы
2) в цикле вычисляем для каждого предприятия отношение объема перевозок к числу автотонн, проверяем значение на попадание в диапазон и выводим в виде списка
3) вычисляем в цикле сумму объемов перевозок и делим ее на 5
:))

shrek=)

18.03.2011 08:19

При решении задачи, я обозначил массивы через константу.

Код:

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.

AlexZir

18.03.2011 08:42

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

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