0 / 0 / 0
Регистрация: 20.04.2010
Сообщений: 16
|
|
|
1
|
Блок-схема
21.04.2010, 17:28. Показов 1680. Ответов 4
Народ, помогите с блок-схемой.
| Pascal | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| const
maxSubstr = 3;
NA = -1;
type
subR =
record
D: integer;
LMin, LMax: integer;
VMin, VMax: integer;
HMin, HMax: integer;
end;
R =
record
Title: string; { Марка }
Coeff: double; { Коэффициент }
s: string; { Стойкость дуги }
z: double; { Затрата }
subCount: 1 .. maxSubstr; { Кол-во диаметров }
sub: array[1 .. maxSubstr] of subR; { Данные по диаметрам }
rod: string; { Род тока }
tMin, tMax: integer; { Т прокаливания от/до }
end;
const
Table: array[1 .. 4] of R = (
(
Title: 'ГЛ-14'; Coeff: 8.0; s: 'Удовл'; z: 1.5;
subCount: 3;
sub:
(
(D: 3; LMin:100; LMax:120; VMin: 80; VMax:110; HMin: 80; HMax:110),
(D: 4; LMin:160; LMax:180; VMin:130; VMax:160; HMin:130; HMax:160),
(D: 5; LMin:200; LMax:220; VMin: NA; VMax: NA; HMin: NA; HMax: NA)
);
rod: 'Постоянный'; TMin: 300; TMax: 350
),
(
Title: 'ЦЛ-20-63'; Coeff: 10.3; s: ''; z: 1.6;
subCount: 2;
sub:
(
(D: 4; LMin:140; LMax:160; VMin:110; VMax:130; HMin: NA; HMax: NA),
(D: 5; LMin:180; LMax:210; VMin: NA; VMax: NA; HMin: NA; HMax: NA),
(D:NA; LMin: NA; LMax: NA; VMin: NA; VMax: NA; HMin: NA; HMax: NA)
);
rod: ''; TMin: 330; TMax: 350
),
(
Title: 'ЦЛ-26М-63'; Coeff: 10.5; s: 'Высокая'; z: 1.6;
subCount: 2;
sub:
(
(D: 3; LMin:110; LMax:130; VMin:100; VMax:120; HMin:100; HMax:120),
(D: 4; LMin:160; LMax:180; VMin:140; VMax:160; HMin:140; HMax:160),
(D:NA; LMin: NA; LMax: NA; VMin: NA; VMax: NA; HMin: NA; HMax: NA)
);
rod: ''; TMin: 330; TMax: 350
),
(
Title: 'ЦЛ-17-63'; Coeff: 10.5; s: 'Удовл'; z: 1.6;
subCount: 2;
sub:
(
(D: 3; LMin: 80; LMax:120; VMin: 70; VMax: 90; HMin: 70; HMax:110),
(D: 4; LMin:130; LMax:160; VMin:130; VMax:150; HMin:130; HMax:150),
(D:NA; LMin: NA; LMax: NA; VMin: NA; VMax: NA; HMin: NA; HMax: NA)
);
rod: ''; TMin: 300; TMax: 350
)
); |
|
0
|
(
Сообщение от Aristes
