Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.14.246.254] |
|
Сообщ.
#1
,
|
|
|
Необходимо вычислить 97^4464/98^4464. Чтобы избежать переполнения, делаю так:
Dim Res As Double, iI2 as Integer Res = 1 For iI2 = 1 To 4464 Res = Res * (97 / 98) Next Debug.Print Res Res = 1 For iI2 = 1 To 4464 / 48 Step 48 Res = Res * (97 ^ 48 / 98 ^ 48) Next Debug.Print Res Результаты сильно разнятся. Где точнее рез-т? |
Сообщ.
#2
,
|
|
|
Во втором варианте ошибка, должно быть так:
For i = 1 To 4464 / 48 Res = Res * (97 ^ 48 / 98 ^ 48) Next Но лучше так: Debug.Print (97 / 98) ^ 4464 |
Сообщ.
#3
,
|
|
|
Да, вчера пересидел за компом, спс.
|