P1303 A*B Problem

最新推荐文章于 2024-03-25 19:42:18 发布

Kesiruto

最新推荐文章于 2024-03-25 19:42:18 发布

阅读量428

点赞数 1

分类专栏： 2017寒假模拟

本文链接：https://blog.csdn.net/qq_34593871/article/details/54897172

版权

模拟同时被 2 个专栏收录

50 篇文章 0 订阅

订阅专栏

2017寒假

42 篇文章 0 订阅

订阅专栏

题目描述

A*B,求两个数字的积。

样例输入

1
2

样例输出

思路

O(n^2)
高精乘。

var
  a,b,c:array[0..100000] of longint;
  x,y:ansistring;
  i,j,k,l:longint;
begin
  readln(x);
  readln(y);
  if (x='0')or(y='0') then 
    begin
      writeln(0);
      exit;
    end;
  l:=length(x);
  k:=length(y);
  for i:=1 to l do
    val(x[l-i+1],a[i]);
  for i:=1 to k do
    val(y[k-i+1],b[i]);
  for i:=1 to l do
    for j:=1 to k do
      begin
        c[i+j-1]:=c[i+j-1]+a[i]*b[j];
        if c[i+j-1]>=10 then
          begin
            c[i+j]:=c[i+j]+c[i+j-1] div 10;
            c[i+j-1]:=c[i+j-1] mod 10;
          end;
      end;
  l:=l+k;
  while c[l]=0 do dec(l);
  for i:=l downto 1 do
    write(c[i]);
end.