Умножение длинных целых в паскале

[Olven]

Необходимо умножить два длинных целых числа в двоичной системе счисления в дополнительном коде. Программа считывает строку выделяет из нее число, переводит в двоичный вид в дополнительный код, перемножает и выдает результат в ДОПОЛНИТЕЛЬНОМ коде. Проверяла несколько раз. не могу понять почему он перемножает неправильно. Помогите пожалуйста, в чем ошибка?
Текст программы:

var
 temp,i,j: longint;
 n,n2,res:longint;
 s,s2,sim,sim2:string;
 alf:set of char;
 ch:char;
 p,p2,s1,s22,por,pr,apr,step,a,b,k:longint;
 apr2:integer;
 arr: array[1..10] of string;
begin
 alf:=['0'..'9'];
 Write('vvedite pervoe chislo: ');
 Readln(s);
 Write('vvedite vtoroe chislo: ');
 Readln(s2);
 n:=length(s);
 n2:=length(s2);
 sim:='';p:=0; sim2:=''; p2:=0;
 For i:=1 to n do                         {vudelenie cifr iz 1 stroki}
  If s[i] in alf then sim:=sim+s[i];
 For j:=1 to n2 do                        {vudelenie cifr iz 2 stroki}
  If s2[j] in alf then sim2:=sim2+s2[j];
 For i:=1 to length(sim) do begin         {perevod iz stroki v chislo (1)}
  s1:=ord(sim[i])-ord('0');
  p:=p*10+s1;
 end;
 For j:=1 to length(sim2) do begin        {perevod iz stroki v chislo (2)}
  s22:=ord(sim2[j])-ord('0');
  p2:=p2*10+s22;
 end;
 Writeln('chisla: ',p,' ',p2);
 a:=0; step:=1;n:=1;
 While p>=2 do begin                      {perevod iz 10i ss v 2ss (1)}
  pr:=p div 2;
  apr:=p-pr*2;
  a:=a+apr*step;
  p:=pr;
  step:=step*10;
  n:=n+1;
  If p=1 then a:=step+a;
 end;
 Writeln('dvoichnoe predstavlenie 1 chsla: ',a);
 step:=1; b:=0; por:=1;                      {perevod iz 10i ss v 2ss (2)}
 While p2>=2 do begin
  pr:=p2 div 2;
  apr:=p2-pr*2;
  b:=b+apr*step;
  p2:=pr;
  step:=step*10;
  If p2=1 then b:=step+b;
  por:=por+1;
 end;
 Writeln('dvoichnoe predstavlenie 2 chisla: ',b);
 Writeln('kolichestvo cifr 1: ',n);
 Writeln('                 2: ',por);
 apr:=a; pr:=a; a:=0; k:=1;         {perevod 1go chisla v dopolnitelnui kod}
 For i:=1 to n do begin
  apr:=pr mod 10;
  pr:=pr div 10;
  If apr=0 then apr2:=1;
  If apr=1 then apr2:=0;
  a:=a+apr2*k;
  k:=k*10;
 end;
 k:=a mod 10;
 If k=1 then begin
  apr:=0;
  a:=(a div 10)*10+apr;
 end;
 If k=0 then begin
  k:=1;
  a:=(a div 10)*10+apr;
 end;
 Writeln('v dopolnit kode 1: ',a);
  apr:=b; pr:=b; b:=0; k:=1;      {perevod 2go chisla v dopolnitelnui kod}
 For j:=1 to por do begin
  apr:=pr mod 10;
  pr:=pr div 10;
  If apr=0 then apr2:=1;
  If apr=1 then apr2:=0;
  b:=b+apr2*k;
  k:=k*10;
 end;
 k:=b mod 10;
 If k=1 then begin
  apr:=0;
  b:=(b div 10)*10+apr;
 end;
 If k=0 then begin
  k:=1;
  b:=(b div 10)*10+apr;
 end;
 Writeln('v dopolnit kode 2: ',b);
 res:=0;                                        {ymnozenie}
 k:=0;		
 n:=1;		
 while k<=por do begin
  temp:=n and b;
  if temp<>0
   then res:=res+a;	
  a:=a shl 1;		
  n:=n*2;		
  k:=k+1;
 end;
 writeln('rezyltat v dopolnitelnom kode: ',res);
 readln;
end.

[skyll]

Блин, впадло во всем этом разбираться...
вот тебе код с делфи 2 - 10 когда то делал:

procedure TForm2.Button1Click(Sender: TObject);
  var i,dl,j,k:integer;
      ch,ch1:string;
      step,sum:real;
  begin
    ch1:='';
    dl:=length(Edit1.Text);
    for i:=1 to dl do
      begin
        ch:=Edit1.Text[i];
        ch1:=ch+ch1;
      end;
    sum:=0;
    for i:=1 to dl do
      begin
        ch:=ch1[i];
        if ch='1'
          then step:=exp((i-1)*ln(2));
        if ch='0'
          then step:=0;
        sum:=sum+step;
      end;
    Label1.Caption:=FloatToStr(sum);
  end;

2 -10:

procedure TForm1.Button1Click(Sender: TObject);
var i,x,dl:integer;
    cod,cod1:string;
begin
  x:=StrToInt(Edit1.Text);
  cod:=''; cod1:='';
  if (x = 1) or (x = 0)
    then Label1.Caption:=IntToStr(x);
  if x > 1
    then begin
           repeat
             if x mod 2 = 1
             then cod:=cod+'1'
             else cod:=cod+'0';
             x:=x div 2;
           until (x = 1) or (x = 0);
           cod:=cod+'1';
           dl:=length(cod);
           for i:=dl downto 1 do
             begin
               cod1:=cod1+cod[i];
             end;
           Label1.Caption:=cod1;
         end;
end;

Может поможет...

Кстати, вставь свой код в ВВ код (#), это упростит чтение твоего кода... Если конечно код не линеечный)))

[Olven]

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

Блин, впадло во всем этом разбираться...
вот тебе код с делфи 2 - 10 когда то делал:

procedure TForm2.Button1Click(Sender: TObject);
  var i,dl,j,k:integer;
      ch,ch1:string;
      step,sum:real;
  begin
    ch1:='';
    dl:=length(Edit1.Text);
    for i:=1 to dl do
      begin
        ch:=Edit1.Text[i];
        ch1:=ch+ch1;
      end;
    sum:=0;
    for i:=1 to dl do
      begin
        ch:=ch1[i];
        if ch='1'
          then step:=exp((i-1)*ln(2));
        if ch='0'
          then step:=0;
        sum:=sum+step;
      end;
    Label1.Caption:=FloatToStr(sum);
  end;

2 -10:

procedure TForm1.Button1Click(Sender: TObject);
var i,x,dl:integer;
    cod,cod1:string;
begin
  x:=StrToInt(Edit1.Text);
  cod:=''; cod1:='';
  if (x = 1) or (x = 0)
    then Label1.Caption:=IntToStr(x);
  if x > 1
    then begin
           repeat
             if x mod 2 = 1
             then cod:=cod+'1'
             else cod:=cod+'0';
             x:=x div 2;
           until (x = 1) or (x = 0);
           cod:=cod+'1';
           dl:=length(cod);
           for i:=dl downto 1 do
             begin
               cod1:=cod1+cod[i];
             end;
           Label1.Caption:=cod1;
         end;
end;

Может поможет...

Кстати, вставь свой код в ВВ код (#), это упростит чтение твоего кода... Если конечно код не линеечный)))

блин, это что за код ? что он делает не поняла вообще.
я тут только зарегистрировалась,не разобралась как в вв вставлять) нет, код не линейный)

[Olven]

разобралась

[skyll]

Сделала, все работает?)

[Olven]

для беззнаковых да) нужно для отриц... в общем еще думать и думать)

[skyll]

А для отрицательных, можешь сделать так: убираешь минус, перемножаешь, и добавляешь минус (если он был один). А код выше, то код для Delphi, с двоичной в десятичную и обратно)

[Olven]

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

[Olven]

res:=0; {ymnozenie}
k:=0;
n:=1;
while k<=por do begin
temp:=n and b;
if temp<>0
then res:=res+a;
a:=a shl 1;
n:=n*2;
k:=k+1;
end;
можешь объяснить почему в этом блоке если вместо переменной por написать 8 допустим или другое число начинает правильно работать все. хотя por это как раз число того сколько это нужно все повторить. может ты увидишь что там

[skyll]

Что используешь? Какой компилятор?