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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
| var a1,s,f,w,k,a,v,n,b,h,c,d,z,m,V2,v1,c1,c2,t,t1:real;
www : integer;
begin
Write(' Є®«ЁзҐбвў® «Ёбв®ў Ђ1 s='); readln(s);
a1:=1.667*s+1.667*s*0.35;
Write('Є®«ЁзҐбвў® ᮥ¤Ё*Ґ*Ё© w='); readln(w);
Write('Є®«ЁзҐбвў® Ї«*бвЁ* k='); readln(k);
f:=8*1.2*w+0.008*1.2*4*k;
Write('®ЎкҐ¬ ¬®¤Ґ«Ё V='); readln(v);
a:=sqrt(v*1000);
if v<=0.01 then a:=a*0.765 else
if v<=0.02 then a:=a*0.645 else
if v<=0.04 then a:=a*0.595 else
if v<=0.05 then a:=a*0.650 else
if v<=0.07 then a:=a*0.575 else
if v<=0.1 then a:=a*0.515 else
if v<=0.3 then a:=a*0.475 else
if v<=0.6 then a:=a*0.455 else
if v<=1.2 then a:=a*0.43 else
if v<=2.5 then a:=a*0.415 else
if v<=5 then a:=a*0.4025 else
if v<=8 then a:=a*0.4095 else
if v<=10 then a:=a*0.4125 else
if v<=12 then a:=a*0.4225 else
if v<=15 then a:=a*0.455 else
if v<=18 then a:=a*0.475 else
if v<=20 then a:=a*0.4885 else
if v<=22 then a:=a*0.495 else
if v<=25 then a:=a*0.505 else
if v<=28 then a:=a*0.52 else
if v<=30 then a:=a*0.5125 else
if v<=33 then a:=a*0.5325 else
if v<=36 then a:=a*0.555 else
if v<=39 then a:=a*0.5415 else
if v<=42 then a:=a*0.5565 else
if v<=45 then a:=a*0.5485 else
if v<=48 then a:=a*0.5905 else
if v<=50 then a:=a*0.6035
else a:=a*0.6175;
Write('а*§ап¤ а*Ў®в n='); readln(n);
www:=round(n);
case www of
1,
2,
3: b:=a;
4: b:=a*1.2;
5: b:=a*1.5;
6: b:=a*1.8;
end;
Write('Є®*дЁЈга*жЁп Ї®ЇҐаҐз*®Ј® бҐзҐ*Ёп 1-Єў*¤а*в, 2-ЄагЈ, 3-Є®¬ЎЁ*Ёа®ў***®Ґ k='); readln(k);
www:=round(k);
case www of
1: c:=b;
2: c:=b*1.2;
3: c:=b*1.5;
end;
Write('Є®«ЁзҐбвў® бвҐа¦*Ґўле пйЁЄ®ў, ўлЇ®«*Ґ**ле §*¤Ґ«Є*¬Ё d='); readln(d);
Write('а*§ап¤ а*Ў®в ¤«п бвҐа¦*Ґўле пйЁЄ®ў, ўлЇ®«*Ґ**ле §*¤Ґ«Є*¬Ё h='); readln(h);
Write('®ЎкҐ¬ бвҐа¦*Ґў®Ј® пйЁЄ*, ўлЇ®«*Ґ**ле §*¤Ґ«Є*¬Ё V1='); readln(v1);
www:=round(h);
case www of
1: c1:=(1.02+40*sqrt(v1))*d;
2: c1:=(1.02+40*sqrt(v1))*d;
3: c1:=(1.02+40*sqrt(v1))*d;
4: c1:=(1.02+40*sqrt(v1))*1.3*d;
5: c1:=(1.02+40*sqrt(v1))*1.8*d;
6: c1:=(1.02+40*sqrt(v1))*2.7*d;
end;
Write('Є®«ЁзҐбвў® бвҐа¦*Ґўле пйЁЄ®ў, ўлЇ®«*Ґ**ле ¬*ббЁў®¬ m='); readln(m);
Write('®ЎкҐ¬ бвҐа¦*Ґў®Ј® пйЁЄ*, ўлЇ®«*Ґ**®Ј® ¬*ббЁў®¬ V2='); readln(V2);
Write('вЁЇ бвҐа¦*Ґў®Ј® пйЁЄ*, ўлЇ®«*Ґ**®Ј® ¬*ббЁў®¬ z='); readln(z);;
www:=round(z);
case www of
1: c2:=sqrt(V2*1000000000)*0.00032*m;
2: c2:=sqrt(V2*1000000000)*0.0003*m;
3: c2:=sqrt(V2*1000000000)*0.00045*m;
4: c2:=sqrt(V2*1000000000)*0.00045*m;
5: c2:=sqrt(V2*1000000000)*0.00025*m;
6: c2:=(0.8+sqrt(V2*1000-0.25)*0.5305)*m;
7: c2:=(0.8+sqrt(V2*1000-0.245)*0.4)*m;
8: c2:=(0.8+sqrt(V2*1000-0.04)*0.55)*m;
9: c2:=(0.8+sqrt(V2*1000-0.04)*0.5)*m;
10: c2:=(0.8+sqrt(V2*1000000000)*0.00022)*m;
11: c2:=(sqrt(V2*1000000000)*0.000225+1)*m;
12: c2:=(0.9+sqrt(V2*1000000000)*0.00017)*m;
end;
T:=A1+F+c+c1+c2;
if v<=15 then t1:=T*7/100 else
if v<=35 then t1:=T*7/100
else t1:=T*7/100;
writeln;
writeln('ва㤮Ґ¬Є®бвм Ё§Ј®в®ў«Ґ*Ёп ¬®¤Ґ«м*ле Є®¬Ї«ҐЄв®ў а*ў** t=',t:5:2);
writeln('¬*«па*лҐ а*Ў®вл t1=',t1:5:2);
end. |