Показать сообщение отдельно
  #4  
Старый 01.08.2011, 11:24
icWasya icWasya вне форума
Местный
 
Регистрация: 09.11.2010
Сообщения: 499
Репутация: 10
По умолчанию

Цитата:
Сообщение от eletted
Пишу программу для работы с большими числами.Создал спец тип format. В него переконвертирую большие числа, а потом работаю с этими массивами(сложение, вычитание)
PHP код:
type
  format
=array of integer;
var
first,second:format
например, массив first[12345,6789,1] - это число 1.6789.12345
в ходе программы выполняется цикл, где
PHP код:
for i:=0 to dlina_first-do
    
begin
      first
[i]:=first[i]+second[i];
      if 
first[i]>=100000 then  
        begin
          
if i=dlina_first-1 then          //если некуда добавлять,то
            
setlength(first,dlina_first+1);//создаем новую ячейку массива
          
j:=first[idiv 100000;
          
first[i+1]:=first[i+1] + ;//добавляем в след ячейку
          
first[i]:=first[i]- j*sample;
        
end;
    
end

В общем, последовательно слагаю ячейки массивов. Если в получившейся ячейке массива first число не пятизначное, то я отсекаю от него лишние числа и эти отсечки складываю их со след ячейкой first (т.е. по принципу сложения в столбик).
ПРОБЛЕМА:
когда складываю один раз, то все нормально. Но когда ставлю цикл, где число складывается само с собой, получается новое число, его я складываю с самим собой, и т.д .По сути делаю возведение числа 2 в степень 64. до числа 262144 все идет норм. но когда складываю
262144+262144 получается не 524288, а 624288.
когда выполняется
PHP код:
if first[i]>=100000 then  
        begin
          
if i=dlina_first-1 then          //если некуда добавлять,то
            
setlength(first,dlina_first+1);//создаем новую ячейку массива
          
j:=first[idiv 100000;
          
first[i+1]:=first[i+1] + ;//добавляем в след ячейку
          
first[i]:=first[i]- j*sample;
        
end
то как бы автоматически выполняется и
PHP код:
second[i+1]:=second[i+1] + 
,а это искажает результат. Не могу понять почему меняется second автоматически?

Код:
if i=dlina_first-1 then          //если некуда добавлять,то 
begin
            setlength(first,dlina_first+1);//создаем новую ячейку массива 
            first[j+1]:=0; // не забыть обнулить
end;
Ответить с цитированием