VPF::Pascal: факториал очен большого числа

laila

Дата 10.12.2007, 17:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

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

Понимаю как из типа string каждый элемент перевести в integer, а вот с основными действиями-умножением проблемы.. вкладываю программу с суммой, please, помогите кто-нибудь smile

Код



program suma;
const lmax = 1000;
type cislo = array[0..lmax] of byte;


function asciitodec(inputstr:string; var a:cislo): integer;
var i,j: longint;
    digit: byte;
begin
    asciitodec := 0;
    j := lmax;
    if length(inputstr) <= lmax then 
        for i := length(inputstr) downto 1 do 
        begin
            digit := ord(inputstr[i]) - ord('0');
            
            if (digit < 0) or (digit > 9) then asciitodec := -1
            else a[j] := digit;
            dec(j); 
        end
    else asciitodec := -2;
end;


procedure init(var a:cislo);
var i: longint;
begin
    for i := 0 to lmax do a[i]:=0;
end;

procedure print(a: cislo);
var i: longint;
    beg: boolean;
begin
    beg := false;
    for i := 0 to lmax do
    begin
        if (not beg) and (a[i] <> 0) then
        begin
            beg := true;
        end;

        if beg then write(a[i]);
    end;
    writeln('');
end;

function sum(a:cislo; b:cislo):cislo;
var i: longint;
    pamiat: byte;
    c:cislo;
begin
    init(sum);

    pamiat := 0;
    for i := lmax downto 0 do
    begin
        sum[i] := (pamiat + a[i] + b[i]) mod 10;
        pamiat := (pamiat + a[i] + b[i]) div 10;
    end;
end;

var tmp: string;
    a,b: cislo;
    c: char;
begin
    init(a);
    init(b);
    readln(tmp);
    asciitodec(tmp,a);
    readln(tmp);
    asciitodec(tmp,b);
    print(sum(a,b));
    readln();
end.

volvo877

Дата 10.12.2007, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

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

Присоединённый файл ( Кол-во скачиваний: 62 )

BIG_INT.PAS 5,97 Kb

laila

Дата 10.12.2007, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 10.12.2007

Репутация: нет
Всего: нет

Большое спасибо за помощь smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »