pascal高精度乘法(高精度乘单精度)
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/05 13:41:30
pascal高精度乘法(高精度乘单精度)
Description
输入两个正整数m、n,输出m*n的值.
Input
第一行只有一个正整数:m ( 1 < m < 10^10000 )
第二行只有一个正整数:n ( 1 < n < 10^16 )
Output
只有一行且只有一个正整数:m*n的值
Description
输入两个正整数m、n,输出m*n的值.
Input
第一行只有一个正整数:m ( 1 < m < 10^10000 )
第二行只有一个正整数:n ( 1 < n < 10^16 )
Output
只有一行且只有一个正整数:m*n的值
var
m:array[1..10000] of qword;
ans:array[0..10000] of qword;
mm,i:longint;
n:qword;
ch:char;
begin
mm:=0;
while not eoln do begin inc(mm);read(ch);m[mm]:=ord(ch)-48;end;
readln(n);
for i:=mm downto 1 do
begin
ans[i]:=ans[i]+m[i]*n;
ans[i-1]:=ans[i] div 10;
ans[i]:=ans[i]-ans[i-1]*10;
end;
if ans[0]0 then write(ans[0]);
for i:=1 to mm do write(ans[i]);
writeln;
end.
m:array[1..10000] of qword;
ans:array[0..10000] of qword;
mm,i:longint;
n:qword;
ch:char;
begin
mm:=0;
while not eoln do begin inc(mm);read(ch);m[mm]:=ord(ch)-48;end;
readln(n);
for i:=mm downto 1 do
begin
ans[i]:=ans[i]+m[i]*n;
ans[i-1]:=ans[i] div 10;
ans[i]:=ans[i]-ans[i-1]*10;
end;
if ans[0]0 then write(ans[0]);
for i:=1 to mm do write(ans[i]);
writeln;
end.
pascal高精度乘法(高精度乘单精度)
pascal 高精度乘法压位
高精度阶乘(pascal)
高精度乘法压位 pascal压四位的 最好有标程+讲解
pascal wikioi 3123 高精度练习之超大整数乘法 是超大的,不是普通的高精度乘法,求代码,
pascal高精度快速幂程序
free pascal高精度计算问题
求助一道pascal高精度乘法题:输入两个正整数m、n,输出他们的积.( 1
pascal高精度幂Description对数值很大、精度很高的数进行高精度计算是一类十分常见的问题.比如,对国债进行计
高精度乘法、除法、乘方、开方运算
斐波那契数列(兔子繁殖数列),pascal语言,高精度做~❀❤
free pascal 高精度计算谁有讲解给一下