Вычисление факториалов

[SeT]

Охота написать прогу, которая бы вычисляла факториалы. Не по одному а пример, типа (7!+5!)/12!
Как сделать обработчик, который понимал бы, сколькизначный факториал нужно вычислить? (7! может 12! МОЖЕТ 123!)

[Konst_One]

пиши парсер выражений

[vvs_adm]

http://algolist.manual.ru/syntax/revpn.php

[SeT]

Konst_One
Вот именно что не знаю как парсер писать
vvs_adm
Это ты ссылку на что сделал?

[vvs_adm]

На "парсер, который ты не знаешь, как писать" ...

[AndreyIl]

Так, чтоли ?

Private Function Fac(Num As Long) As Single
Fac = 1
For i = 2 To Num
Fac = Fac * Num
Next i
End Function

[vvs_adm]

AndreyIl Вау!!! Так вот она, эта волшебная формула... А я-то весь инет уже облазил

P.S.: Ты бы хоть все посты почитал

[AlexBlack]

AndreyIl
Догадайся почему твой код неправильно вычисляет факториалы.

[vvs_adm]

Private Function Fac(Num As Long) As Single

Это ж с какого бодунища надо написать Не считая отсутствия объявлений и проверок ...

[AndreyIl]

To vvs_adm: я приводил простой пример, который надо было самому доработать, поэтому нет проверок.
Что касается "бодунища" (As Single), то при большом Num вылетает ошибка: переполнение памяти.

[AlexBlack]

Помоему всё таки факториал 3 не 9.
А 4 не 16.

И вааще нужно делать это рукурсивно.

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

Sub Fac(Num as integr) as integer
if num=1 then fac=1 else fac=fac(num-1)*num
end Sub

Вот так это работает.

[alibek]

Лучше делать это гибридно.
Т.е. рекурсивно, пока стек позволяет, а когда глубина рекурсии достигнет определенной глубины, либо освобождать стек, либо переходить на цикл.

[keks-n]

У меня стек позволяет до 6460, так что надо циклом...

[Cryonyx]

Кста, вопрос почти в тему: кто-нибудь пытался написать алгоритм для выполнения операций над сверхдлинными числами без потери разрядов?
К примеру, умножить два целых (хотя бы) числа, каждое из которых длиной по паре сотен тысяч разрядов..

[tyomitch]

Cryonyx, а чего тут сложного?


На каждой школьной олимпиаде, где я участвовал, было по задачке на длинную арифметику. Так что лично я - писал, и не раз

[Kovu]

Помоему всё таки факториал 3 не 9.
А 4 не 16.

И вааще нужно делать это рукурсивно.

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

Sub Fac(Num as integr) as integer
if num=1 then fac=1 else fac=fac(num-1)*num
end Sub

Вот так это работает.

Объясните мне пжлста почему функция Fac не возвращается пока условие не выполнится правильно

[Cryonyx]

2 tyomitch
Да ясен пень, что ничего сложного
Просто мне интересны все подходы, которые можно применить в рамках ВБ. В нём ведь довольно трудно напрямую работать с памятью, да и я всё-таки ещё начинающий ламер с двухлетним стажем в нём
Если есть какие наработки в исходниках, можешь кинуть?

[Cryonyx]

2 Kovu
Потому что там ошибка - нельзя использовать имя функции как переменную, только для присвоения значения. Да и с типами данных намудрили..

[tyomitch]

нельзя использовать имя функции как переменную, только для присвоения значения.

Можно. Проверь и убедись.

Зачем для длинной арифметики "прямая работа с памятью" - я не понял.

[GAGArin]

Объясните мне пжлста почему функция Fac не возвращается пока условие не выполнится правильно

Если условие выполненно, то функция возвращает значение, а иначе просто ей требуется вызвать себя для вычисления конечного значения.
Когда вычисляется значение последней функции, завершается предпоследняя, потом та что до нее, и.т.д. Все они завершаются со временем.

[AndreyIl]

Виноват. Вот так работает.

Private Function Fac(Num As Long) As Single
Fac = 1
For i = 2 To Num
Fac = Fac * i
Next i
End Function

[Cryonyx]

2 tyomich
1. Сорри, ступил
2. Сам делаешь аллок памяти необходимого размера, затем используешь её как стек. Не прокатит, по-твоему? Какие ещё есть варианты?

[tyomitch]

Cryonyx, зачем это для умножения чисел стек?

[alibek]

Cryonyx, зачем это для умножения чисел стек?

Ну как же
Суммировать их рекурсией

[Cryonyx]

2 tyomich
Ладно, может я как всегда не так выразился.
Я хочу научить прогу оперировать числами, длина которых превышает допустимый размер переменной в ВБ. Я конечно понимаю, что есть тип Double или Currency, на худой конец, но они ведь тоже точны до определённого предела. Поэтому и нужно какой-нибудь метод, позволяющий, скажем, сбрасывать допустимую часть данных в стек, и продолжать операции с оставшейся частью. Вот.

Надеюсь, теперь я понят
Тёмыч, ну уж тебе-то после ответов на такое количество глупых вопросов, задаваемых на этом форуме, должно же стать понятно..

[alibek]

Поэтому и нужно какой-нибудь метод, позволяющий, скажем, сбрасывать допустимую часть данных в стек, и продолжать операции с оставшейся частью.

А вот это полная чушь.

[tyomitch]

Начинающий ламер с двухлетним стажем Cryonyx не слышал про массивы?

[Cryonyx]

Да не то я имел в виду...
Ведь и у массивов наверняка есть предел?
А как его обойти?

Вот сколько максимально может быть элементов массива?
2^n? Размер каждого элемента под два метра, так что, казалось бы, этого достаточно... А если нет?

[GAGArin]

Ох... Неужели делать массив массивов? Или двумерный? Трехмерный? N-мерный?

[tyomitch]

2Cryonyx: уверяю тебя, что "два целых числа, каждое из которых длиной по паре сотен тысяч разрядов" (т.е. каждое меньше 100Кб) -- в массив поместятся