Составить программу для n-разрядных чисел

[Serge_Bliznykov]

LiptonICE,

1) ВНИМАТЕЛЬНО прочитайте задание. не может быть там так написано! Это же не по русски! Или пропущен глагол (например, "составить программу для сложения n-разрядных чисел" или вообще фраза по другому построена.
2) язык, судя по приведённому коду, у Вас Pascal
3) делайте на основе кода из #6 рабочую программу (там алгоритм примерный набросан, только с ошибками!)
DoDge_VipeR прав. Вам нужна длинная арифметика на основе строк.
Можете поискать (тут на форуме были примеры реализации).
А можете и сами написать.. если делать только сложение (и вычитание) - то это совсем несложно!
столбиком складывать умеете? вот, представьте, есть две строчки n1 := '12345' и n2 := '28889999'
надо их выровнять по правому краю (начинать сложение справа налево) и складывать по элементно, учитывая возникающий перенос. результаты записывать в третью строку.

[LiptonICE]

Спасибо, Вы правы наверно пропущен глагол...

[Z1000000]

Полагаю он имеет в виду написать программу-калькулятор, которая будет производить простейшие арифметические вычисления, как то: сложить, вычесть, умножить с n-мерными числами ( в том числе очень большой разрядности). Причем числа представляются в виде строк.

Приведенный им пример, делает как раз это, хотя он и некорректен по синтаксису :

var n,n1,n2:string;
i,t1,t2,d:byte;
begin
n:=0;
d:=0;
k:=lenght[n1];

for i:=k downto 1 do // перебираем число-строку справа-налево
t1:=val(n1[i], code1); // превращаем очередной символ в цифру
t2:=val(n2[i], code2); // превращаем очередной символ в цифру
t:=d+t1+t2; // Операция сложения. Складываем вышеполученные цифры и прибавляем к ранее полученному остатку
d:=t mod 10
p:=t div 10 // Остаток
n3:=str(p); // назад цифру в символ
n:=n+n3 // конкатенация

[LiptonICE]

А что с синтаксисом?

Парни а как конец ввывести?

Program lab;
var 
n,n1,n2:string;
i,t1,t2,d:byte;
n3:string[1];
code1,code2:integer;
begin
Writeln('Input n1');
Readln(n1);
Writeln('Input n2');
Readln(n2);
d:=0;
n:=' ';
k:=lenght[n1];
for i:=k downto 1 do 
{perebiraem chislo-stroki spravo-nalevo}
Val(n1[i],t1 code1);
Val(n2[i],t2 code2);
{prevrachaem simvol cifru}
t:=ed+t1+t2;
ed:=t mod 10
p:=t div 10
{operaciya slogeniya chisla s ostatkom}
str(ed,n3);
n:=n+n3;
end;
writeln(n);
readln;
end.

Cкажите, плиз ошибку.... синтаксически прога оформелена норм, а вот не так щитает она.

[[CODER]]

...............................

[Serge_Bliznykov]

Cкажите, плиз ошибку.... синтаксически прога оформелена норм, а вот не так щитает она.

кто Вам сказал это?! Вас нагло обманули...

ладно. разбирайтесь!

program lab;
var
  n, n1, n2: string;
  i, t, p, t1, t2, d: byte;
  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;
  d := 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}
    t := p + t1 + t2;
    d := t mod 10;
    p := t div 10;
    {operaciya slogeniya chisla s ostatkom}
    str(d, n3);
    n := n3 + n;
  end;
  if p<>0 then begin
    str(p, n3);
    n := n3 + n;
  end;
  Writeln('Результат = ',n);
  readln;
end.

[LiptonICE]

if p<>0 then begin это условие неясно, и что это? Halt(1);

[Serge_Bliznykov]

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

if p<>0 then begin это условие неясно

когда мы закончили цикл суммирования, у нас может остаться перенос, вот это и учитывается!
ну к примеру для 97 + 21 цикл выполнится два раза
получим строку n: 18 (а единичка уйдёт в перенос)
потом if p<>0 then .... и n станет 118

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

и что это? Halt(1);

безусловное и безогоровочное прерывание работы приложение и выход в операционнку. 1 - это необязательный параметер - формируется код ошибки, с которым приложение завершилось.... Вам это не обязательно знать...

[Stilet]

Halt(1);

Это команда досрочного выхода из программы.