g | Sg | h | Sh | |
0,738 | 1,568 | 2,508 | 2,588 | |
0,746 | 1,511 | 2,500 | 2,571 | |
0,765 | 1,529 | 2,446 | 2,582 | |
0,753 | 1,524 | 2,451 | 2,589 | |
0,765 | 1,573 | 2,482 | 2,572 |
, .
g h 0,99 < < ; ε = 2,58 ∙ ( - ; - ; S - ).
0,738 - 0,025 < mg < 0,738 + 0,025 (: 0,71 < mg < 0,77)
2,508 - 0,067 < mh < 2,508 + 0,067 (: 2,44 < mh < 2,58).
, .
, , , . , ( ), , . - h - , w1, w2, w1 - , w2 - (. 7.57 - 7.59).
. 7.57. w1 = 10, w2 = 3 ( , , )
? , . , , , , . , , .. .
.
. 7.58. w1 = 10, w2 = 8 ( )
. 7.59. wl = 10, w2 = 10 ( )
153.
Program Bank;
Uses Graph, Crt;
Var Gm, Gd, P, X, Qq, I, T, V: Integer; St: String[1O];
Begin
Qq:= 0; P:= 6; V:= 2; Randomize; DetectGraph(Gd, Gm);
InitGraph(Gd, Gm, ' ');
SetColor(2); RectAngle(300, 100, 500, 300); :- 0;
Repeat
:= + 1; Str(T, St); SetTextStyle(0, 0, 1);
SetColor(4); OutTextXY(600, 50, St); X:= Random(ll);
If X < P Then Qq:= Qq + 1; SetColor(15);
For I:= 0 To Qq Do Circle(490 - I * 30, 200, 15);
Delay(1000); SetColor(0);
For I:= 0 To Qq Do Circle(490 - I * 30, 200, 15);
|
|
If T Mod V =
Then Begin
Qq:= Qq - 1; If Qq < 0 Then Qq:- 0; Setcolor(15);
For I:= 0 To Qq Do Circle(490 - I * 30, 200, 15);
End;
SetColor(O); OutTextXY(600, 50, St)
Until KeyPressed Or (Qq > 15); ReadLn;
End.