用PASCAL写一个高精度求模(余数)算法

发布网友发布时间：2022-12-25 01:50

共1个回答

热心网友时间：2023-10-11 01:48

Program mo;
type
packetchar:packet array[1..255] of integer;
var
a,b:packet;
s1,s2:string;
l1,l2,i:integer;
function yushu(a,b:packerchar;):integer;
var
i:integer;
begin
for i := 1 to l1 do
begin
a[i]:=(a[i]+10-b[i]) mod 10;
a[i+1]:=a[i+1]+(a[i]-b[i]) div 10;
end;
{接下来不想些了,把我写的写成语句就行了}
从 l1 downto 1 do,如果为0,那么 dec(l1)
如果 l1=l2,哪个从 l1 downto 1 do, 如果全部相同,那么yushu(a,b)=数组里的数字倒序
否则如果数组a>数组b,那么yushu(a,b):=yushu(a,b)
否则yushu(a,b):=yushu(b,a);
如果 l1>l2,那么 yushu(a,b):=yushu(a,b)
否则 yushu(a,b):=yushu(b,a);
end;
begin
fillchar(a,sizeof(a),'0');
fillchar(b,sizeof(b),'0');
readln(s1);
readln(s2);
l1:=length(s1);
l2:=length(s2);
writeln(yushu(a,b);
readln
end.