Mal 2(langzahlen)???

[heiopei]

abend,
ich hab mir das grundgerüst für rechnen mit langen zahlen geschrieben(also langzahlarithmetik; die ziffern der zahlen werden in arrays gespeichert; +, -, div 2 und anzeigen kann ich bereits)
ich möchte nun eine solche zahl mit2 multiplizieren:

division durch 2 realisiere ich so:

Delphi-Quellcode:

...
type ziffern = array[0..100] of Word;
...

function durch2(zahl:ziffern): ziffern;
var
  hilf, uebertrag, i: integer;
begin
  for i := 100 to 0 do
  begin
    hilf := a[i] + (10 * uebertrag);      //10 = die basis
    uebertrag := a[i] and 1;
    a[i] := hilf shr 1;
  end;
end;

wie kann ich nun die multiplikation mit 2 durchführen?
(ich weiss nur, das es mit shl durchgeführt werden muss!!!)

wer die funktion oben nich ganz versteht, dem kann ich auch noch ein bsp geben(bin jetz nur zu faul zu schreiben :-) )

danke für hilfe,
heiopei

[edit=sakura] [delphi]-Tags eingefügt. Mfg, sakura[/edit]
[edit=Admin]BBCodes aktiviert. :mrgreen: Mfg, Daniel[/edit]