Re: Задачка!!!
Dim c#(100, 3) // все переменые обнулены
Dim dc#(100, 3) // все переменые обнулены
For n = 1 To 100
For nn = 1 To 3
c#(n, nn) = c#(n, nn) + dc#(n, nn) //операция 0 = 0+0
dc#(n, nn) = dc#(n, nn) - 0.005 * Sgn(c#(n, nn)) //Sqn(0)=0 поетому тут 0=0-0
Next
Next
вот так вот
|