| Вопрос: как перевести на VB Script | Добавлено: 17.09.07 21:52 |
Автор вопроса:  Артём | ICQ: 229569922 |
|
написано на JavaScript
alfaW = 5; for (var i=1; i <= 20000; i++) { alfaW += 0.001*i; if ( Math.abs(Math.tan(alfaW*Math.PI/180)-alfaW*Math.PI/180) > invalfaW ) break; } Если это правильно написано > Это на Паскале > alfaW:=5; // Начальное значение, к которому будем прибавлять дельту > > for i:=1 to 20000 do begin // начало цикла > alfaW:=alfaW+0.001*i ; > if abs(tan(alfaW*PI/180)-alfaW*PI/180) > invalfaW then break; как только условие выполнилось - выходим из > цикла по команде break, а в переменной alfaW наше искомое значение помогите перевести на VB Script, срочно, пожалуйста. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  »VladikComper« ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #1 | Добавлено: 18.09.07 16:16 |
|
Помоему так:
Function Mathika()
Dim alfaW alfaW = 5 For i = 1 To 2000 alfaW = alfaW & (0.001 * i) ' А может: alfaW = alfaW + (0.001 * i) If Abs("ТУТ НИЧЕГО НЕ ПОНЯЛ"  - (alfaW * 3.14/180) -(alfaW * 3.14/180) > invalfaW Then
Exit Function End If Next End Function |
||
Страница: 1 |