Интересная задача в Pascal

[cuzo]

Реализовать операцию сложения чисел в восьмеричной системе счисления. Перевод чисел в десятичную систему счисления не делать.

[cuzo]

При этом нельзя использовать массивы. Пользоваться нужно только строками. Может кто помочь?

[cuzo]

Аууууууууууу есть кто-нибудь живой?

[5naip]

var
  a,b,sum,str:string;
  i,buff,v_ume:integer;
begin
write('a= ');
readln(a);
write('b= ');
readln(b);

str:='01234567';
v_ume:=0;
for i:=0 to Length(a)-1 do
begin
if v_ume<>0
  then
    begin
      buff:=strtoint(a[Length(a)-i])+StrToInt(b[Length(b)-i])+v_ume;
      v_ume:=0;
    end
  else buff:=strtoint(a[Length(a)-i])+StrToInt(b[Length(b)-i]);
if buff>7
  then
    begin
      v_ume:=v_ume+1;
      sum:=str[buff-7]+sum;
    end
  else sum:=IntToStr(buff)+sum;
end;
if v_ume<>0 then sum:=IntToStr(v_ume)+sum;
write(sum);

readln;
end.

попробуй так...
имеется ограничение.
если в числах разное кол-во символов, дополняй меньшее нулями...т.е. если складываешь 123 и 4, то записывай как 123 и 004.

[cuzo]

Нужно ли использовать модуль SysUtils?

[Sm1Le]

Да надо ... + что б не вводить лишние 0 Можно дописать

if length(a)<length(b) then
 begin
 sstr:='';
 for i:=1 to length(b)-Length(a) do
  begin
   sstr:=sstr+'0';
  end;
 a:=sstr+a;
 end
else
 begin
   sstr:='';
 for i:=1 to length(a)-Length(b) do
  begin
   sstr:=sstr+'0';
  end;
 b:=sstr+b;
 end;

после ввода чисел =)еще допиши переменную sstr типа string; =)

[5naip]

я сначала так же сделал
потом запутался в ИФах, потом пошел с досады покурить и решил обойтись нулями

[5naip]

При упоминании, того что НЕЛЬЗЯ пользоваться массивами у меня в памяти что-то щелкнуло...полез в книгу по delphi и вот что нашел:

...каждая стока трактуется как одномерный массив символов...

Так что смело передавай преподу,что без массивов просто никак...

[cuzo]

Я думаю тут нужно описать функции.

[cuzo]

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

Uses crt;
function IntToStr(I: Integer): string;
var
S: string;
begin
Str(I, S);
IntToStr := S;
end;


function StrToInt(S: string): Integer;
var
I, Code: Integer;
begin
Val(S, I, Code);
StrToInt := I;
end;


var
a,b,sum,str:string;
i,j,buff,v_ume:integer;

begin
Repeat


buff:=0;
sum:='';
write('a= ');
readln(a);
write('b= ');
readln(b);

str:='01234567';
v_ume:=0;

if length(a)>length(b) then
for j:=1 to length(a)-length(b) do
b:='0'+b
else
for i:=1 to length(b)-length(a) do
a:='0'+a;
for i:=0 to Length(a)-1 do
begin
if v_ume<>0
then
begin
buff:=strtoint(a[Length(a)-i])+StrToInt(b[Length(b)-i])+v_ume;
v_ume:=0;
end
else buff:=strtoint(a[Length(a)-i])+StrToInt(b[Length(b)-i]);
if buff>7
then
begin
v_ume:=v_ume+1;
sum:=str[buff-7]+sum;
end
else sum:=IntToStr(buff)+sum;
end;
if v_ume<>0 then sum:=IntToStr(v_ume)+sum;
write(sum);

readln;
Until (a='') and(b='');
end.

Вот эта работает без дополнительных масиов. Спасибо.