Длинное число

[Fanyuus]

Нужно записать сумму цифр: 999 999 999 999 + 111 000 000 000

и тут возникли вопросы:
1 - как записать большое число? (int64 или как его там, не пойдёт, потому что число может быть и с 300 знаками)

Допустим, если их записывать через элементы массива, т.е. 1 число = 1 ячейка массива, то

2 - как сложить их, при этом учесть тот факт, что будут переводы (например, 9+1 = 10, в единицы 0, в десятки +1)

[Swarog]

http://www.delphisources.ru/pages/fa...g_numbers.html

такое подойдет?

[Fanyuus]

Swarog
думаю пойдёт, теперь расшифруйте, что это? :D

я ещё не такой супер-пупер программист и поэтому, ничего не могу понять.


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

если первоначальное число использовать как строку, то как перевести из строки в число?
допустим - 123456789123 - это строка, а[1]=3 a[2]=2 a[3] = 1 a[4]=9.....

даже вот чтобы так сделать мне нужно от строки по 1 символу отсекать, переводить его в число и записывать в массив, отсекать с конца.

так вто - как это сделать?
*нужна программа, алгоритм

[Swarog]

в приведенной ссылке модуль создайте текстовый файл запихните туда текст из сслке и схраните под именем UMathServices.pas затем добавьте этот модуль в проект
project -> add to project

в фале в формой в секцию uses добаьте запись , UMathServices

теперь можно использовать, переводить ни чего не надо модуль вроде работает прям со строками

пример как сложить два числа:

s1 := '123456789009876543212345678';
s2 := '98765432345678909876543234567';
s1 := ulSum(s1,s2);

[Hemul]

как перевести из строки в число?

atoi(); .......

[Zer0]

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

так же и со строками - просто оперировать с кодами символа ord(a[i])-48 например)

[Serge_Bliznykov]

Swarog, +1

и вообще, поискать/почитать на тему "Длинная арифметика"

p.s. "как сложить их, при этом учесть тот факт, что будут переводы " - помните, как в начальной школе учили складывать числа в столбик? Вот по такому алгоритму и поступать. Записать оба числа так, чтобы их правые части (младшие разряды) совпали (ну или просто начинать от правых разрядов - два индекса) и складывать. Причём складывать каждый раз очередные разряды + перенос с прошлого разряда. Перенос с прошлого разряда перед циклом положить равным нулю.
Всё. Всё это пишется в коде чуть ли не быстрее, чем я тут словами размусоливаю..

если первоначальное число использовать как строку, то как перевести из строки в число?
допустим - 123456789123 - это строка, а[1]=3 a[2]=2 a[3] = 1 a[4]=9.....

const MaxSize = 300; {300 знаков}
type BigNum = array[1..MaxSize] of byte;
var
   MyNum : BigNum;
   i : integer;
   s : string;
begin
   WriteLn('Введите число (не более ',MaxSize,' знаков): ' );
   Readln(s);
   for i:=Length(s) to 1 do
    if s[i] in ['0'..'9'] then 
        MyNum[MaxSize - (Length(s)-i)] := ord(s[i])- ord('0')
    else begin
        WriteLn('Вы ввели не цифровой символ в разряде ',i);
        Halt; {стоп-машина!}    
    end;

всё.... число введено в MyNum ...

[Fanyuus]

Zer0 да не нужно меня учить как столбиком считать, знаю я, меня интересовало как это с массивами сделать, чуть позже (после моего сообщения) я уже поняла что прибавить к [i+1]+1, где сравнивалась сумма [i], это было всё понятно, волновала потом строка и перевод из неё в число.

Swarog,Hemul,Serge_Bliznykov - спасибо большое!)))

ладно, завтра всё проверю, и скажу чего и как