 
          249
        
        
          Рис. 8.11. Решение при
        
        
          n
        
        
          =100
        
        
          Решение в редакторе Visual Basic представлено на рис. 8.12.
        
        
          Рис. 8.12. Решение в редакторе Visual Basic
        
        
          Код программы Visual Basic
        
        
          :
        
        
          Function Fz(ByVal t As Double, ByVal P As Double, ByVal z As Double)
        
        
          Fz = 15 - 2 * z - 5 * P
        
        
          End Function