
  17.     
  ,      
       .

     , ,    ,   
.       ,  -
  ,     .
          , 
     .   ,  -
,   ,    -
. ,      -
 -  , , 
. ,   ,  
.      
 ,       -
    .      ,
         -
   ,  .
           -
.  - .       
 . ,    . 
    ,     
  .    
        .
          
.
          -
 .   ,   -
      ,   -
   ,    
   .   , ,  
 .       -
,       
    .    -
    .    
  ,  .
          . 
   " ".  -
   ,    
   (   ), 
   .     -
       ,
    .
        ?    -
    . ,  
     "", 
  ,     -
 , :

     100 GOSUB 1000 '  1
     1000 PRINT " 1 "
     1010 RETURN

      ,     , 
,    -     -
  .   ,   -
 ""     
    ,      , 
         -
.
        ""  
    . ,    -
 -   .  -
  ,      -
,   .   
: -,     , -, -
  ,      ( -
), -,   .
        ?    -
     "".  
    . -
      .    
   .   -  
  ,  : "    ?",
   ,     -  -
,    .   "".
  ""   -
 .     ,  
     ,  .
         ,   ,
    ,     .
,  .  ,    
  .   :

     5 CLS
     10 PRINT "1.  "
     20 PRINT "2.   "
     30 PRINT "3.  "
     40 INPUT C
     50 ON C GOSUB 1000,2000,3000
     60 GOTO 10

      . 
     ( 10-30)   
    ( 40).   -
    .    ,
    

     1000 PRINT " 1"
     1990 RETURN
     2000 PRINT " 2"
     2990 RETURN
     3000 PRINT " 3"
     3990 RETURN

      . 
   ,      -
 .
      .    
 :

     1000 PRINT "  ":PRINT
     1010 INPUT "   ";N
     1020 DIM A(4,N)
     1030 INPUT "   () 
          ";D
     1040 FOR K=1 TO N
     1050 PRINT " ()   (";;")=";:INPUT V
     1060 A(1,K)=V
     1070 PRINT " ()  (";;")=";:INPUT I
     1080 A(2,K)=I
     1090 NEXT K
     1990 RETURN

        ?  ,    -
   -    -
 .     ,   
  ,     
    - . 
,    DIM    N, 
 .  ,    
 , ..      -
  .
       .  ,   
    ,   -
.   :

     2000 PRINT "  "
     2010 PRINT "T","V","I"
     2020 FOR T=1 TO N
     2030 PRINT T,A(1,T),A(2,T)
     2040 NEXT T
     2050 PRINT:PRINT " ?(<>/<>)":INPUT A$
     2060 IF A$="N" OR A$="n" OR A$="H" OR A$="" THEN 2070
          ELSE RETURN
     2070 INPUT "     ?";K
     2080 INPUT "   V";A(1,K)
     2090 INPUT "   I";A(2,K)
     2110 GOTO 2010

        ?     
,  , , , , ,
   .     2060. -
   ?  .    -
   ,      -
,    ,    -
  "" ("").   2050  ,
    ""  "", ..   -
  ""  "".
        - .
   :

     3000 PRINT "    "
     3010 REM  
     3020 FOR T=1 TO N
     3030 A(3,T)=A(1,T)*A(2,T)
     3040 NEXT T
     3050 REM  
     3060 A=0
     3070 FOR T=2 TO N
     3080 A=A+(A(3,T-1)+A(3,T))/2*D:A(4,T)=A
     3090 NEXT T
     3100 PRINT "T";"V","I","W","Q"
     3110 FOR T=1 TO N
     3120 PRINT T;" ";A(1,T),A(3,T),A(4,T)
     3990 RETURN

    ,   .  
    -   
 -    W=V*I.   
 3020-3040.    - .
 ,      
   .     -
,     , -
   .    3070-3090. -
    3080. ,     -
   .
     ,  .      -
   -  . -
     ,  
.
         . ,      -
     - . -
,     .
        R=V/I.  -
       .
  ,      
 "".     -
  :

     35 PRINT "4.    "

   50

     50 ON C GOSUB 1000,2000,3000,4000

     :

     4000 PRINT "  "
     4010 PRINT "T","R"
     4020 FOR T=1 TO N
     4030 R=A(1,T)/A(2,T)
     4040 PRINT T,R
     4050 NEXT T
     4060 RETURN

      ,   ?  , ,
   ,   
.       
  , ,     .
,        -
.
            -
      .
    E=V/L,  L -   -
.       -
   ,   
  L      . -
,     .  ,  
   .
        :

     37 PRINT "5.    "
     50 ON C GOSUB 1000,2000,3000,4000,5000

    .   -
 :

     1015 INPUT "   ";L

, ,   :

     5000 PRINT "   "
     5010 PRINT "T","E"
     5020 FOR T=1 TO N
     5030 E=A(1,T)/L
     5040 PRINT T,E
     5050 RETURN

 GLAWA6  TXT           m~%k  GLAWA7  TXT           }~% =4  