高精度取模(模板) - 平头弟

高精度取模(模板)

2019-04-14 17:38发布生成海报

站内文章 / 模拟电子

9643 0

function mod_(y:string;x:longint):longint;//y是被除数,x是除数
var l,fal,i,tp:longint;
    var a:array[1..10000]of byte;
begin
     fal:=length(y);
     for i:=1 to fal do
     begin
          val(y[i],a[i]);
     end;
     l:=0;tp:=0;
     repeat
           inc(l);
           tp:=(a[l]+tp)mod x;
           if(l<>fal)then tp:=tp*10;
     until l=fal;
     exit(tp);
end;

Ta的文章更多 >>

热门文章