Реферат Алгоритм виконання операцій множення двійкових чисел

ight;

'2 ': Num: = Num + 2 * Weight;

'3 ': Num: = Num + 3 * Weight;

'4 ': Num: = Num + 4 * Weight;

'5 ': Num: = Num + 5 * Weight;

'6 ': Num: = Num + 6 * Weight;

'7 ': Num: = Num + 7 * Weight;

'8 ': Num: = Num + 8 * Weight;

'9 ': Num: = Num + 9 * Weight;;: = Weight * BaseIn;;: = 1/BaseIn; i: = PosDot + 1 to Length (vStr) do beginvStr [i ] of

'0 ': Num: = Num + 0 * Weight;

'1 ': Num: = Num + 1 * Weight;

'2 ': Num: = Num + 2 * Weight;

'3 ': Num: = Num + 3 * Weight;

'4 ': Num: = Num + 4 * Weight;

'5 ': Num: = Num + 5 * Weight;

'6 ': Num: = Num + 6 * Weight;

'7 ': Num: = Num + 7 * Weight;

'8 ': Num: = Num + 8 * Weight;

'9 ': Num: = Num + 9 * Weight;;: = Weight/BaseIn;;: = num;: ='';: = 64;: = Int (Num); Round (TmpNum - Int (TmpNum/BaseOut) * BaseOut) of

: StrRes: = '0 '+ StrRes;

: StrRes: = '1 '+ StrRes;;: = Int (TmpNum/BaseOut);: = tochnost-1; TmpNum = 0;: = 0;: = true;: = Frac ( Num); (TmpNum <> 0) and (tochnost> i) do begin: = false; i = 0 then StrRes: = StrRes + '.';: = TmpNum * BaseOut; Round (Int (TmpNum)) of

: StrRes: = StrRes + '0 ';

: StrRes: = StrRes + '1 ';;: = Frac (TmpNum); (i);;: = 1; q: =''; q: =''; cel = false then begin (StrRes [aq] <> '.') do beginq: = as1q + StrRes [aq]; aq: = aq +1; end; aq: = aq +1; q: = copy (StrRes, aq , length (StrRes) -1);: = as1q;: = as2q; else begin s1: = StrRes; s2: =''; end;; Dec2Bin (a: integer): string;: integer;, j: string; a = 0 then begin Dec2Bin: = '0 '; exit end;: =''; a <> 0 do: = a mod 2; (i, j);: = j + as;: = a div 2; ; Bin: = as;; dr2bin (ds: string): string; i: integer; rs, tp: real; ds = '0 'then begin dr2bin: = '0'; exit end;: = '0. '+ ds; (ds, rs, i); i: = 0;: ='';: = rs; (tp <> 0) and (tochn> i) do begin: = tp * 2; round (int (tp )) of

: ds: = ds + '0 ';