高精乘

原创 2015年07月10日 09:47:06
var

i,j,la,lb,len:integer;

s1,s2:string;

m:longint;

a,b,c:array[1..250] of integer;

begin

readln(s1);

la:=length(s1);

readln(s2);

lb:=length(s2);

for i:=1 to la do

a[i]:=ord(s1[la-i+1])-48;

for i:=1 to lb do

b[i]:=ord(s2[lb-i+1])-48;

for i:=1 to la do

for j:=1 to lb do

c[i+j-1]:=c[i+j-1]+a[i]*b[j];

len:=la+lb;

for i:=1 to len do

begin

c[i+1]:=c[i+1]+c[i] div 10;

c[i]:=c[i] mod 10;

end;

while c[len]=0 do dec(len);

m:=c[len];

while m>0 do

begin

c[len]:=m mod 10;

m:=m div 10;

inc(len);

end;

for i:=len-1 downto 1 do

write(c[i]);

writeln;

end.
代码二:Const

    SIZE = 200+10;

Type

    hugeint = Record

        len : Integer;

        num : Array[1..SIZE] Of int64;

    End;

var a:hugeint;

    s1:string;

    i:integer;

    x:longint;

 procedure lowmul(a:hugeint;x:longint);

   var

    i:longint;

    ans:hugeint;

  begin

   fillchar(ans.num,sizeof(ans.num),0);

   ans.len:=a.len;

   for i:=1 to ans.len do ans.num[i]:=a.num[i]*x;

   for i:=1 to ans.len do

    begin

      inc(ans.num[i+1],ans.num[i] div 10);

      ans.num[i]:=ans.num[i] mod 10;

    end;



   while ans.num[ans.len+1]>0 do

    begin

     inc(ans.len);

     inc(ans.num[ans.len+1],ans.num[ans.len] div 10);

     ans.num[ans.len]:=ans.num[ans.len] mod 10;

    end;

    for i:=ans.len downto 1 do write(ans.num[i]);

    writeln;

  end;





 procedure datain;

   begin

    assign(input,'lowmul.in');  assign(output,'lowmul.out');

    reset(input); rewrite(output);

    readln(s1);

    readln(x);

    a.len:=length(s1);

    for i:=1 to a.len do  a.num[i]:=ord(s1[a.len-i+1])-ord('0');

 end;

 begin

   datain;

   lowmul(a,x);

   close(input);close(output);

 end.
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

相机高精模型&贴图

  • 2015年12月27日 20:03
  • 18.92MB
  • 下载

【日常学习】【高精】【数学递推】tyvj1375 山洞历险题解

P1375 山洞历险 时间: 1000ms / 空间: 131072KiB / Java类名: Main 描述     小A在经历了和许多山头的一番大战后,总算拿到了最多的石子。他跌跌撞撞地来...
  • ametake
  • ametake
  • 2015年10月27日 22:00
  • 495

Uva16009 POJ 1906 Three Powers 数论 玄学找规律题 高精

玄学找规律 高精 有坑 uva poj

中国独创"羲和"室内高精导航 技术领先全球

中国独创"羲和"室内高精导航 技术领先全球 资料图:室内导航系统方便在建筑物内快速定位。在商业和救援上都有较大应用前景 如果说“羲和”是太阳的母亲,那他就是当代通信导航领域...

高精地图在无人驾驶中的应用

高精地图是无人驾驶核心技术之一,精准的地图对无人车定位、导航与控制,以及安全至关重要。 本文是“无人驾驶技术系列”第七篇,首先介绍高精地图与传统地图的区别,然后介绍其特点及制作过程。在了解高精地图基础...

QT 高精计时器

最近需要使用QT5写个上位机串口助手,给嵌入式系统发送指令,时间要求比较短,需要22ms一次数据流。 在网上查阅资料后发现,QT有两种方法设置定时器: 1. QObject 2. QTimer ...

NOIP 2012 T2 国王游戏 (贪心+高精)

思路:呃呃网上那么多题解写得都不错…..就是高精 巨坑。。。这里展出的是任氏高精(纯自己yy滴)//By SiriusRen #include #include #include using ...

【高精度模板】【高精加减乘没有除】

其实我从小就不喜欢高精度…… Code: #include using namespace std; const int maxn=1e3+10; typedef long long LL; st...

noip2002产生数 (高精*单精+深搜)

P1129产生数 Accepted 标签:高精度NOIP普及组2002 背景 给出一个整数 n(n 规则: 一位数可变换成另...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:高精乘
举报原因:
原因补充:

(最多只允许输入30个字)