关闭

高精度减法

标签: insertn2integerdivstring
430人阅读 评论(0) 收藏 举报
program GJMinus;
var
 s1,s2,s3,st,s:string;
 i,j,k,l1,l2,li,n1,n2,n3,n4:integer;
begin
readln(s1);
readln(s2);
l1:=length(s1);
l2:=length(s2);
if l1>l2 then li:=l1 else li:=l2;
n4:=0;
if l1>=l2 then
for i:=1 to li do begin
        if i<=l1 then Val(copy(s1,(l1+1-i),1),n1,j) else n1:=0;// writeln(n1);
        if i<=l2 then Val(copy(s2,(l2+1-i),1),n2,j) else n2:=0;// writeln(n2);
 n3:=n1-n2+n4;
 if n3<0 then begin
  n4:=-n3 div 10;
  n3:=n3-n4*10;
 end else n4:=0;
        str(n3,st);
        insert(st,s3,256-i);
end else if l1<l2 then begin
for i:=1 to li do begin
        if i<=l2 then Val(copy(s2,(l2+1-i),1),n2,j) else n2:=0;// writeln(n1);
        if i<=l1 then Val(copy(s1,(l1+1-i),1),n1,j) else n1:=0;// writeln(n2);
 n3:=n2-n1+n4;
 if n3<0 then begin
  n4:=-n3 div 10;
  n3:=n3-n4*10;
 end else n4:=0;
        str(Abs(n3),st);
        insert(st,s3,256-i);
        end;
        insert('-',s3,255-i);
end;
//output
k:=length(s3);
li:=0;
for i:=1 to k do begin
st:=copy(s3,k-i+1,1);
write(st);
end;
readln;
end.
 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:17405次
    • 积分:377
    • 等级:
    • 排名:千里之外
    • 原创:16篇
    • 转载:1篇
    • 译文:3篇
    • 评论:4条
    文章分类
    最新评论