Введение счетчика проходов цикла

17.12.2012, 23:11. **Показов** 4282. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Помогите пожалуйста решить поставленную задачу! Есть написанная программа:

Visual Basic

Sub telor()
 
Dim x As Double
Dim i As Integer
i = 2
For x = -3 To 3 Step 0.1
Cells(i, 1) = x
Cells(i, 2) = Atn(x)
Cells(i, 3) = my_atn(x)
Cells(i, 4) = Cells(i, 2) - Cells(i, 3)
Cells(i, 5) = slog
i = i + 1
Next x
 
End Sub
 
 
 
Function my_atn(x As Double) As Double
 
' atn(x) = x - x^3/3 + x^5/5 + ((-1)^n/(2*n+1))*x^2n+1
 
 
    Dim dVal As Double
    Dim dTemp As Double
    Dim nStep As Integer
    Dim slog As Integer
    
    nStep = 0
    dVal = 0
    dTemp = 2 * nStep + 1
    slog = 0
 
    Do While Abs(dTemp) < 1E-16
        
        dTemp = ((-1) ^ nStep / dTemp) * x ^ dTemp
        nStep = nStep + 1
        dVal = dVal + dTemp
       
    Loop
    
   
    my_atn = dVal
     
End Function

Надо в цикл Do While... Loop вставить счетчик (slog), который будет считать количество проделывания данного цикла.

@Казанский · 18.12.2012, 00:00

Visual Basic

1	slog=slog+1

?

18.12.2012, 00:32

Мне кажется, что нет. Тут имеется в виду, что счетчик работает пока выполняется цикл Do While, как закончился и счетчик остановился... как-то так

@Hugo121 · 18.12.2012, 01:32

Чем nStep не счётчик?

Добавлено через 4 минуты
Понял.
Объявление slog вынести вне sub (сделать публичной), в функции не объявлять и не обнулять, после do-loop задать значение slog=slog+nStep ну или внутри увеличивать как сказал Алексей.

Astetros
	18.12.2012, 00:32	3
	Мне кажется, что нет. Тут имеется в виду, что счетчик работает пока выполняется цикл Do While, как закончился и счетчик остановился... как-то так

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	18.12.2012, 01:32	4
	Чем nStep не счётчик? Добавлено через 4 минуты Понял. Объявление slog вынести вне sub (сделать публичной), в функции не объявлять и не обнулять, после do-loop задать значение slog=slog+nStep ну или внутри увеличивать как сказал Алексей. 0