Курсовая работа: Системы счисления и коды

i,j,m:byte;

temp:string;

begin

{выбираем самое длинное число}

i:=length(Value1);

j:=length(Value2);

len:=i;

if i>j then

begin

len:=i;

{дополняем меньшую строку нулями до равного колва символов}

for m:=1 to (i-j) do insert(’0’,Value2,1);

end

else {j>i}

begin

len:=j;

{дополняем меньшую строку нулями до равного колва символов}

for m:=1 to (j-i) do insert(’0’,Value1,1);

end;

end;

{двоичное сложение}

function BinPlus(BIN1,BIN2:string):String;

var summ:string[50];

temp,pl_razryad:integer;

k,m:byte;

begin

summ:=’’;

pl_razryad:=0;

{подготовка к сложению чисел}