.


:




:

































 

 

 

 





 

  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.

 





:


: 2016-11-12; !; : 324 |


:

:

.
==> ...

1634 - | 1567 -


© 2015-2024 lektsii.org - -

: 0.011 .