Большие числа: точность расчёта

Вторник, 09 Февраля 2021 г. 08:23 + в цитатник

BlackSun: Необходимо вычислить 97^4464/98^4464. Чтобы избежать переполнения, делаю так:

Dim Res As Double, iI2 as Integer

Res = 1

For iI2 = 1 To 4464

Res = Res * (97 / 98)

Debug.Print Res

Res = 1

For iI2 = 1 To 4464 / 48 Step 48

Res = Res * (97 ^ 48 / 98 ^ 48)

Debug.Print Res

Результаты сильно разнятся. Где точнее рез-т?

Метки: Visual Basic: Общие вопросы

Комментировать

Страницы: [1] [Новые]

LiveInternetLiveInternet