n!

[Daz]

Как заставить программу рассчитать n!>170 ?

[keks-n]

Поясни, что есть "n!"?

[Павлуша]

n! - это n факториал.
надо высчитать такое n при котором ее факториал будет больше 170.
так я понял?

[Viper]

может все-таки факториал для числ большего 170?

Если имеется ввиду именно это, то вычислять его так же как и для меньших чисел, но число получается больше чем вмещает в себя тип Double и произойдет переполнение

[ANDLL]

Писать эмулятор арифметического сопроцессора

[Amed]

http://algolist.manual.ru/ ничего не говорит?

[GAGArin]

Писать длинную арифметику (особенно деление и умножение) очень противное занятие... Я бы попытался обойтись без этого.

[CORBA]

ну, а как работают физики и математики с большими числами? --
представляют их в следующей форме, например 1,232423423423e+10

[GAGArin]

Вспомним сколь знаков после запятой держит дабл и решим так не делать. Лишние 10-30 порядков не особо добавят (ну до 175-180 можно будет считать) А вот точность резко упадет.

[d3drm]

есть способ, но возможно он будет очень медленным. создать калькулятор для string-чисел и работать с ними. медленно, но чтож поделаешь... или склеивать несколько даблов и использовать их как один.

[GM]

У меня когда-то была идея создать класс, для работы с большими числами. Только в ВБ 6.0 нет перегрузки операторов, и я эту работу закинул.

Писать длинную арифметику (особенно деление и умножение) очень противное занятие... Я бы попытался обойтись без этого.

Умножение не так уж сложно, с делением больше проблем, но так как нужно только умножение, то можна чуть поработать.

[Faust]

Ежели не нужно знать каждый знак, то прокатит такой метод:

Код: Выделить всё

Const ln10 = 2.30258509299405
Private Sub Main()
Dim n As Long, i As Long, m As Double, e As Long, t As Byte
n = CLng(InputBox("n:"))
m = 1
e = 0
Do
m = m * n
t = Int(Log(m) / ln10)
e = e + t
For i = 1 To t
    m = m / 10
Next i
n = n - 1
Loop Until n = 1
MsgBox Str(m) & " e" & Str(e), vbOKOnly + vbInformation
End Sub