高精度减法
来源:互联网 发布:山东大学网络图书馆 编辑:程序博客网 时间:2024/04/29 10:33
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.
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.
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 怀念母校
- 屏幕抓图的函数
- AutoCAD的.NET二次开发1
- 博鸽1.7国庆上线了~
- 算出任意struct的某个成员的偏移量
- 高精度减法
- Bloom Filter概念和原理
- 我爱故乡的泉水
- Mysql Administrator 弹出"Could not find settings"错误
- C++ Builder初学问与答(廿二)
- Jasper Reports
- 对google黑板报Bloom Filter的补充
- 爱情快餐
- QQ登陆助手