"Длинные" числа в ТР

[Cannibal]

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

[Sibedir]

Если только сложить, то можно хранить число как строку и складывать столбиком.

[Sibedir]

Лови, может поможет, а может не поможет:
BIGINT.zip
Работает только с положительными целыми числами.

Даю наводку
Можно изменить тип TChislo:

TChislo = array [0..256] of Byte;

В нулевом элементе можно хранить признак знака: 0 - плюс, 1 - минус. Но тогда придется доработать и ввод, и вывод числа, и сумму. Добавится разность. А вообще лучше число как записть сделать.

TZnak = (zP, zM);

TChislo = record
  Value: array [1..256] of Byte;
  Znak: TZnak;
end;

[Cannibal]

сложение и вычитание я сделал. осталось умножение. никак не могу найти ошибку в логике.

procedure proiz(a,b:string; var c:string);
type mas=array[0..255] of integer;
var sl1,sl2,rez:mas;
    i,j,n,pr,k:byte;
    prom:array[0..246]of string;
    fl:boolean;
procedure str1(s:string; var t:mas);
var i,k:integer;
   begin
   for i:=length(s) downto 1 do
     val(s[i],t[i],k);
   end;
procedure str2(t:mas;n:byte; var s:string);
var i:byte; st:string;
    begin
    s:='';
    i:=1;
    for i:=1 to n-1 do begin
    str(t[i],st);
    s:=s+st;
    end;
end;
     begin
      str1(a,sl1);
      str1(b,sl2);
      n:=0;
      for i:=length(b) downto 1 do begin
          for k:= 0 to 255 do
              rez[k]:=0;
          for j:=length (a) downto 1 do begin
              pr:=sl1[i]*sl2[j]+rez[j];
              fl:=(pr>10);
              if fl then rez[j+1]:=(pr)div 10;
              rez[j]:=pr;
              n:=n+1;
              end;
           str2(rez,n,prom[i]);
           for k:=1 to length(a)-i+1 do
               prom[i]:=prom[i]+'0';
           end;
      fl:=true;
      n:=0;
      for i:=length(a) downto 0 do begin
      pr:=sl1[i]+sl2[i];
      if fl then rez[i]:=pr mod 10
       else rez[i]:=(pr+1)mod 10;
      fl:=(pr<10)or((pr+1)<10);
      n:=n+1;
      end;
      str2(rez,n,c);
     end;

он не умножает, а складывает, почему-то

[alexBlack]

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


Нужно что-то вроде этого:

   n:=0;
   for i:= 0 to 255 do rez[i]:=0;           // Обнуляем результат
   for i:=length(b) downto 1 do begin
      p := 0; m := n;

      for j:=length (a) downto 1 do begin
         // произведение текущих разрядов + предыдущий перенос + результат предыдущей операции
         pr := sl1[i]*sl2[j] + p + rez[m];
         rez[m] := pr mod 10;
         p := pr div 10;
         inc(m);
      end;

      // Обработка переноса
      while p > 0 do begin
         pr := p + rez[m];
         rez[m] := pr mod 10;
         p := pr div 10;
         inc(m);
      end;

      inc(n);
   end;

[Cannibal]

Спасибо Большое