Сложение длинных чисел

[Snake95_95]

1. Выберите для представления длинных чисел подходящий тип (массив или строку). Помните, каждая из указанных структурн имеют преимущества и недостатки, которые будут влиять на реализацию алгоритмов обработки целых чисел в дальнейшем.
2. Объявите псевдоним TLong для представления типа целых чисел с числом разрядов не менее 255. В комментарии укажите, в каком порядке будут располагаться разряды длинного числа в вашем типе (в младших элементах - младшие разряды, или в младших элементах - старшие разряды).
3. Опишите процедуру инициализации переменной типа TLong: процедура должна иметь два параметра, один из которых - переменная для инициализации TLong, второй - строковое значение, которое содержит "естественную" запись длинного числа в виде последовательности цифр. Помните, что при использовании массива, следует обнулять его элементы, соответсвующие старшим разрядам длинного числа.
4. Опишите процедуру, которая осуществляет сложение двух длинных чисел. Подсказка: можно попробовать (не обязательно) использовать рекурсию - поразрядное сложение повторяющаяся регулярная операция. Не забудьте перенос в следующий разряд.
5. Опишите процедуру, которая выводит заданное длинное число на экран в "естественном" порядке.
6. Напишите программу, которая складывает длинные числа, хранящиеся в текстовом файле (количество чисел в файле неизвестно, но не менее одного).Вот числа которые находятся в файле middle.txt через ентер

928375892375972345729579824358
345872346782368462
873587136762347876826357678265
9837687874672

.ответ при сложении: Результат сложения чисел в файле middle.txt
1801963029138666104740407745757. проблема в том программа выдает ошибку пишет, что индекс находится вне границ массива. и указывает на эту строчку: for i:=1 to u do s1[i]:=Chr(ch1[u-i+1]+48); Моежете помочь, как сделать что программа работала. Вот она сама.

var s1,s2:string;
ch1,ch2:array[1..255] of integer;
fileIN: text;
p,i,u:integer;
begin
Assign(fileIN,'C:\Users\hp-pc\Documents\Война и мир\middle.txt');
Reset(fileIn);
readln(fileIN,s1);
while not eof(fileIN) do begin
readln(fileIN,s2);
p:=0;
for i:=1 to length(s1) do ch1[length(s1)-i+1]:=Ord(s1[i])-48;
for i:=1 to length(s2) do ch2[length(s2)-i+1]:=Ord(s2[i])-48;
if length(s1)>length(s2) then u:=length(s1)
else u:=length(s2);
for i:=1 to u do
begin
p:=p+ch1[i]+ch2[i];
ch1[i]:=p mod 10;
p:= p div 10;
end;
if p>0 then begin
inc(u);
ch1[u]:=p;
end;
for i:=1 to u do s1[i]:=Chr(ch1[u-i+1]+48);
end;
for i:=u downto 1 do write(ch1[i]);
close(fileIN);
end.

[ZX Spectrum-128]

Компилятор fpc. Ошибок компиляции нет.
Содержимое текстового файла

11111111111111111111111111111111111 111111
222222222222222222222222222
333333333333333333333333333

Результат

[Snake95_95]

Ну так программа правильный результат не выводит. Она не работает. А прпвильный результкт при сложении вот:Результат сложения чисел в файле middle.txt
1801963029138666104740407745757
Ошибка где то аёв программе, и я найти не могу. Чтоб выдавал правильный результат.

[ZX Spectrum-128]

Сообщение от Snake95_95

Ну так программа правильный результат не выводит. Она не работает. А прпвильный результкт при сложении вот:Результат сложения чисел в файле middle.txt
1801963029138666104740407745757
Ошибка где то аёв программе, и я найти не могу. Чтоб выдавал правильный результат.

for i:=1 to u do s1[i]:=Chr(ch1[u-i+1]+48);
end;

Вот здесь вы теряете последний символ в строке.
Сделайте так

 if p>0 then
        begin
          inc(u);
          ch1[u]:=p;
          SetLength(s1,u);
        end;

uses crt;

var
  s1,s2:string;
  ch1,ch2:array[1..255] of integer;
  fileIN: text;
  p,i,u:integer;
begin
  clrscr;
  Assign(fileIN,'middle.txt');
  Reset(fileIn);
  readln(fileIN,s1);
  while not eof(fileIN) do
    begin
      for i:=1 to 255 do
        begin
          ch1[i]:=0; // обнуление массивов
          ch2[i]:=0;
        end;
      readln(fileIN,s2);
      p:=0;
      for i:=1 to length(s1) do
        ch1[length(s1)-i+1]:=Ord(s1[i])-48;
      for i:=1 to length(s2) do
        ch2[length(s2)-i+1]:=Ord(s2[i])-48;
      if length(s1)>length(s2) then
        u:=length(s1)
      else
        u:=length(s2);
      for i:=1 to u do
        begin
          p:=p+ch1[i]+ch2[i];
          ch1[i]:=p mod 10;
          p:= p div 10;
        end;
      if p>0 then
        begin
          inc(u);
          ch1[u]:=p;
          SetLength(s1,u);
        end;
      for i:=1 to u do
        s1[i]:=Chr(ch1[u-i+1]+48);
    for i:=u downto 1 do
      write(ch1[i]);
    writeln;
    end;
  close(fileIN);
  writeln(s1);
end.
//1801963029138666104740407745757

[Snake95_95]

А программа работает? Просто сейчас не начем проверить. Компа нет под рукой.

[ZX Spectrum-128]

Да, работает.

[Snake95_95]

Спасибо. Программа работает, но выдает неверный результат. Мне нужно чтоб получился ответ:18019630291386661047404077457 57

[Serge_Bliznykov]

Судя по всему, у Вас "кривой" файл middle.txt

Ну, в таком случае попробуйте код (я дополнил буквально пару строк в коде ZX Spectrum-128)

var
  s1,s2:string;
  ch1,ch2:array[1..255] of integer;
  fileIN: text;
  p,i,u:integer;
begin
  Assign(fileIN,'middle.txt');
  Reset(fileIn);
  readln(fileIN,s1);
  s1 := trim(s1);
  while not eof(fileIN) do
    begin
      for i:=1 to 255 do
        begin
          ch1[i]:=0; {// обнуление массивов}
          ch2[i]:=0;
        end;
      readln(fileIN,s2);
      s2 := trim(s2);
      p:=0;
      for i:=1 to length(s1) do
        ch1[length(s1)-i+1]:=Ord(s1[i])-48;
      for i:=1 to length(s2) do
        ch2[length(s2)-i+1]:=Ord(s2[i])-48;
      if length(s1)>length(s2) then
        u:=length(s1)
      else
        u:=length(s2);
      for i:=1 to u do
        begin
          p:=p+ch1[i]+ch2[i];
          ch1[i]:=p mod 10;
          p:= p div 10;
        end;
      if p>0 then
        begin
          inc(u);
          ch1[u]:=p;
          SetLength(s1,u);
        end;
      for i:=1 to u do
        s1[i]:=Chr(ch1[u-i+1]+48);
    for i:=u downto 1 do
      write(ch1[i]);
    writeln;
    end;
  close(fileIN);
  writeln(s1);
  Readln
end.

на всякий случай прилагаю свой middle.txt

[ZX Spectrum-128]

Ну, а какой результат она выводит? Не такой разве?

[Serge_Bliznykov]

Сообщение от ZX Spectrum-128

Ну, а какой результат она выводит? Не такой разве?

коллега, попробуйте свою программу на выложенном мной выше файле middle.txt...
я думаю, что у него в файле куча лишних пробелов, они всё портят