Вычитание (длинная арифметика)

Posted by obzor under Delphi

Вычитание. Получить правильную разность двух многозначных чисел (более 15 знаков).
В Турбо Паскаль, вычитать из строки строку, числа идут целые, первое число больше 2-го, буквы отсутствуют.

Serge_Bliznykov

program lab;
var
  n, n1, n2: string;
  i, t, p, t1, t2, d: integer;
  n3: string[1];
  code1, code2: integer;
begin
  Writeln('Input n1');
  Readln(n1);
  Writeln('Input n2');
  Readln(n2);
  if length(n1)<>length(n2) then begin
    Writeln('Извините. Но пока ещё программист '+
            'не сделал вычитание чисел разной длины.');
    readln;
    Halt(1);
  end;
  p := 0;
  n := '';
  for i := length(n1) downto 1 do begin
    {perebiraem chislo-stroki spravo-nalevo}
    Val(n1[ i ], t1, code1);
    Val(n2[ i ], t2, code2);
    {prevrachaem simvol cifru}

    d := p + t1 - t2;   {operaciya vychitanya chisla s ostatkom}

    if d<0 then begin p:=-1; d:= d+10; end
    else p:=0; 
    str(d, n3);
    n := n3 + n;
  end;
  if p<0 then 
    WriteLn('Получилось отрицательное число!')
  else
    Writeln('Результат = ',n);
  readln;
end.

тема на форуме

Похожие статьи

• Функция двойной факториал в Pascal
• Задача на целочисленные файлы (Turbo Pascal)
• Проверка файла (Turbo Pascal)
• Меню из процедур. Листать стрелками
• Паскаль Турбо, матрицы
• Turbo Pascal, как создавать динамические многомерные массивы
• Книги для изучения Pascal.