Помогите решить задачу по Паскалю!!!

[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.

[Окса_на]

Сообщение от 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.

Пожалуйста напишите код паскаля на примере вычитания 320-129,но при этом надо описать как ты занимаешь у 2-ки 1-цу чтобы от 0 отнять 9 вместо строковых предложений, цифрами!

[Arigato]

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

[Окса_на]

Блин Умный народ ну напишите решение этой задачки в коде паскаля))) судьба человека от этого зависит как никак)))

[Окса_на]

ПОМОГИТЕЕЕЕЕЕ!!! Крик Души)))

[Arigato]

Так вам уже написали, немного напильником код обработать и можно сдавать.

[Окса_на]

Сообщение от 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.

Сергей подс к ажите как в этой программе получить правильный ответ когда вычитаем с 321 -129, в программе когда я ввожжу эти числа он выдает не правильный ответ, и когда вычитаешь с 129-321 тоже не выдает правильный ответ. Что можно прописать чтоб программа вычитала правильно?))

[Окса_на]

Ребятки и огромное спасибо вам за помощь))))

[Аватар]

Интересно, какой у ТС правильный ответ для 321-129. Подозреваю, что более правильный, чем у программы

[Окса_на]

Сообщение от Аватар

Интересно, какой у ТС правильный ответ для 321-129. Подозреваю, что более правильный, чем у программы

Я вот когда вычитаю от 321 -129 он мне в ответе выдает 202 (( а когда 129-321 выдает 808 приблизиткльно так