pascal中一节乘法运算给一个详细的解释

program chengfa;
const max=200;
var
a,b,c:array [1..max] of 0..9;
n1,n2:string;
lena,lenb,lenc,j,i,x:integer;
begin
readln(n1);readln(n2);
lena:=length(n1);lenb:=length(n2);
for i:=1 to lena do a[lena-i+1]:=ord(n1[i])-ord('0');
for i:=1 to lenb do b[lenb-i+1]:=ord(n2[i])-ord('0');
for i:=1 to lena do begin
x:=0;
for j:=1 to lenb do begin
x:=a[i]*b[j]+x div 10 +c[i+j-1];
c[i+j-1]:=x mod 10;
end;
c[i+j]:=x div 10;
end;
lenc:=i+j;
while(c[lenc]=0) and (lenc>1) do dec(lenc);
for i:=lenc downto 1 do write(c[i]);
writeln
end.
中
for j:=1 to lenb do begin
x:=a[i]*b[j]+x div 10 +c[i+j-1];
c[i+j-1]:=x mod 10;
end;
c[i+j]:=x div 10;
是什么意识

如何在Excel中进行乘法运算 高精度乘法 pascal VB99乘法运算 pascal中阶乘怎么用数组实现高精度运算 pascal 高精度运算 pascal 输入运算符号 在计算机中如何用加法算乘法和除法运算？？？？？？ PASCAL：XOR是什么运算符 N进制乘法口诀表 pascal 2.下面的竖式是乘法运算，式中P表示为一位的素数，编程输出此乘法竖式的所有可能方案。