Блок - схема
Рисунок 2.3 - Блок – схема
Программа
Option Explicit
Const sd = 3
Sub RGR_var8()
Dim I As Byte, GD As Byte, PGR As Long, PP As Long, N As Byte
Dim GB!, OB%, VS!
Dim SPG!, SPP!, SVS!, SROB!, SRGR!
N = 25
SPG = 0: SPP = 0: SVS = 0: SROB = 0: SRGR = 0 'объявляем суммы
For I = 1 To N
'построчно считываем исходные данные
GD = Cells(I + sd, 1) 'железные дороги
PGR = Cells(I + sd, 2) 'пробег груженных вагонов
PP = Cells(I + sd, 3) 'пробег порожних вагонов
'построчно выполняем расчет и выводим полученные значения на лист
GB = (PP / PGR) * 100
Cells(I + sd, 6) = GB
VS = PGR + PP
Cells(I + sd, 4) = VS
OB = PP / VS * 100
Cells(I + sd, 5) = OB
'рассчитываем итоги
SROB = SROB + OB
SRGR = SRGR + GB
SVS = SVS + VS
SPP = SPP + PP
SPG = SPG + GB
Next I
SROB = SROB / N 'рассчитываем среднее арифметическое OB
'выводим итоговое значение на лист
Cells (I + sd, 5) = SROB
Cells (I + sd, 6) = SRGR
Cells (I + sd, 4) = SVS
Cells (I + sd, 3) = SPP
Cells (I + sd, 2) = SPG
End Sub
Расчет средствами табличного процессора и сортировка
Таблица 2.3 - Полученные значения
Железная дорога
|
Пробег вагонов |
% порожнего пробега |
|||
груженных |
порожние
|
всего
|
К общему
|
К груженому
|
|
GD |
PGR |
PP |
VS |
OB |
GR |
01 |
15 |
10 |
25 |
40 |
66,6 |
02 |
12 |
5 |
17 |
29 |
41,6 |
03 |
21 |
7 |
28 |
25 |
33,3 |
04 |
30 |
15 |
45 |
33 |
50 |
05 |
20 |
21 |
41 |
51 |
105 |
06 |
6 |
4 |
10 |
40 |
66,6 |
07 |
8 |
17 |
25 |
68 |
212,5 |
08 |
18 |
9 |
27 |
33 |
50 |
09 |
11 |
13 |
24 |
54 |
118,18 |
10 |
16 |
17 |
33 |
52 |
106,25 |
11 |
5 |
1 |
6 |
17 |
20 |
12 |
2 |
26 |
28 |
93 |
1300 |
13 |
30 |
28 |
58 |
48 |
93,34 |
14 |
31 |
6 |
37 |
16 |
19,35 |
15 |
36 |
5 |
41 |
12 |
13,89 |
16 |
20 |
8 |
28 |
29 |
40 |
17 |
15 |
10 |
25 |
40 |
66,6 |
18 |
10 |
9 |
19 |
47 |
90 |
19 |
19 |
12 |
31 |
39 |
63,1 |
20 |
20 |
1 |
21 |
5 |
5 |
21 |
6 |
13 |
19 |
68 |
216,6 |
22 |
38 |
15 |
53 |
28 |
39,47 |
23 |
42 |
11 |
53 |
21 |
26,1 |
24 |
25 |
4 |
29 |
14 |
16 |
25 |
30 |
2 |
32 |
6 |
6,67 |
Итого |
2866.664 |
269 |
755 |
36,32 |
2866,664 |
Таблица 2.4 - Формулы расчета задания
-
Железная дорога
Пробег вагонов
% порожнего пробега
груженных
порожние
всего
К общему
К груженому
GD
PGR
PP
VS
OB
GR
01
15
10
=B4+C4
=(C4/D4)*100
=(C4/B4)*100
02
12
5
=B5+C5
=(C5/D5)*100
=(C5/B5)*100
03
21
7
=B6+C6
=(C6/D6)*100
=(C6/B6)*100
04
30
15
=B7+C7
=(C7/D7)*100
=(C7/B7)*100
05
20
21
=B8+C8
=(C8/$D8)*100
=(C8/B8)*100
06
6
4
=B9+C9
=(C9/D9)*100
=(C9/B9)*100
07
8
17
=D10+C10
=(C10/D10)*100
=(C10/B10)*100
08
18
9
=D11+C11
=(C11/D11)*100
=(C11/B11)*100
09
11
13
=D12+C12
=(C12/D12)*100
=(C12/B12)*100
10
16
17
=D13+C13
=(C13/D13)*100
=(C13/B13)*100
11
5
1
=D14+C14
=(C14/D14)*100
=(C14/B14)*100
12
2
26
=D15+C15
=(C15/D15)*100
=(C15/B15)*100
13
30
28
=D16+C16
=(C16/D16)*100
=(C16/B16)*100
14
31
6
=D17+C17
=(C17/D17)*100
=(C17/B17)*100
15
36
5
=D18+C18
=(C18/D18)*100
=(C18/B18)*100
16
20
8
=D19+C19
=(C19D19)*100
=(C19/B19)*100
17
15
10
=D20+C20
=(C20/D20)*100
=(C20/B20)*100
18
10
9
=D21+C21
=(C21/D21)*100
=(C21/B21)*100
19
19
12
=D22+C22
=(C22/D22)*100
=(C22/B22)*100
20
20
1
=D23+C23
=(C23/D23)*100
=(C23/B23)*100
21
6
13
=D24+C24
=(C24/D24)*100
=(C24/B24)*100
22
38
15
=D25+C25
=(C25/D25)*100
=(C25/B25)*100
23
42
11
=D26+C26
=(C26/D26)*100
=(C26/B26)*100
24
25
4
=D27+C27
=(C27/D27)*100
=(C27/B27)*100
25
30
2
=D28+C28
=(C28/D28)*100
=(C28/B28)*100
Итого
=СУММ(B4:B28)
=СУММ(C4:C28)
=СУММ(D4:D28)
=(C29/D29)*100
=(C29/B29)*100
Таблица 2.5 - Выполнена сортировка по возрастанию по столбцу VS
Железная дорога
|
Пробег вагонов |
% порожнего пробега |
|||
груженных |
порожние
|
всего
|
К общему
|
К груженому
|
|
GD |
PGR |
PP |
VS |
OB |
GR |
01 |
15 |
10 |
6 |
40 |
66,6 |
02 |
12 |
5 |
10 |
29 |
41,6 |
03 |
21 |
7 |
17 |
25 |
33,3 |
04 |
30 |
15 |
19 |
33 |
50 |
05 |
20 |
21 |
21 |
51 |
105 |
06 |
6 |
4 |
24 |
40 |
66,6 |
07 |
8 |
17 |
25 |
68 |
212,5 |
08 |
18 |
9 |
25 |
33 |
50 |
09 |
11 |
13 |
25 |
54 |
118,18 |
10 |
16 |
17 |
27 |
52 |
106,25 |
11 |
5 |
1 |
28 |
17 |
20 |
12 |
2 |
26 |
28 |
93 |
1300 |
13 |
30 |
28 |
28 |
48 |
93,34 |
14 |
31 |
6 |
29 |
16 |
19,35 |
15 |
36 |
5 |
31 |
12 |
13,89 |
16 |
20 |
8 |
32 |
29 |
40 |
17 |
15 |
10 |
33 |
40 |
66,6 |
18 |
10 |
9 |
37 |
47 |
90 |
19 |
19 |
12 |
41 |
39 |
63,1 |
20 |
20 |
1 |
41 |
5 |
5 |
21 |
6 |
13 |
45 |
68 |
216,6 |
22 |
38 |
15 |
53 |
28 |
39,47 |
23 |
42 |
11 |
53 |
21 |
26,1 |
24 |
25 |
4 |
53 |
14 |
16 |
25 |
30 |
2 |
58 |
6 |
6,67 |
Итого |
2866.664 |
269 |
755 |
36,32 |
2866,664 |
-