【黄金投资平台】全世界公认的顶级品牌.doc

【题02】乘法运算 从键盘读入两个109以内的正整数，进行乘法计算并输出 例如，输入格式：89 13 输出格式： 89 × 13 -------- 267 89 ------- 1157 又如： 输入格式： 16 8 输出格式： 16 × 8 ------ 128 题解 设被乘数a和乘数b，b的位序号为d (d≥1)；当前位的乘积为mul；最后乘积为mu。按照乘法竖式的规则，b的d位数码与a的乘积mul右对齐20-d列后输出在乘式的第d行，并乘上10d-1后累计入mu（如图7.１.１）。 　图7.１.１ 由于被乘数和乘数的上限为109，因此b，d和js（存储十进制数d位的权10d-1）的数据类型设为longint(longint的有效位数为9位)，a，mu和lmu的数据类型设为extended： {$n+} var b，js，d：longint； 　 {b—乘数；d—当前位序号；js—d位的权 } a，mul，mu：extended； {a—被乘数；mul—b的d位数码与a的乘积；mu—最后乘积} ⑴b的第d位与a的乘积 若乘积mul为b的d位与a的乘积，则mul右对齐20-d列后输出在乘式的第d行(图7.1.2)： 图7.1.2 ⑵mul右移d-1位后计入乘积mu（mu←mul+mul*10d-1） ⑶算法流程 readln(a，b)； {输入被乘数和乘数} writeln(a：20：0)； {输出乘式} writeln(’*’，b：19)； writeln(’--------------------’)； if b10 then writeln(a*b:20:0) else begin d←1；mu←0；js←1； { 位序号、乘积和d位的权初始化} repeat mul←a*(b mod 10)； {计算当前位的乘积} b←b div 10； {略去b的当前位} write(mul：20-d：0)； {输出当前位的乘积} mu←mu+mul*js； {当前位的乘积再乘上权10d-1后累计入mu} js←js*10； {计算下一位的权} d←d+1； {指向b的下一位} until b=0； {直至b的所有位乘完为止} writeln(’--------------------’)；writeln(mu：20：0)； {输出最后乘积} end；{else}