高精度减法pascal程序
来源:互联网 发布:华能和国电投合并知乎 编辑:程序博客网 时间:2024/06/06 03:17
const
max=1000;
var
a,b:array[0..max]of longint;
procedure init;
var
s1,s2,s:string;
l1,l2,i:longint;
begin
readln(s1);
readln(s2);
l1:=length(s1);
l2:=length(s2);
if (l2>l1)or(l1=l2)and(s1<s2) then
begin
write('-');
s:=s1;s1:=s2;s2:=s;
l1:=length(s1);
l2:=length(s2);
end;
for i:=1 to l1 do
a[max-l1+i]:=ord(s1[i])-ord('0');
for i:=1 to l2 do
b[max-l2+i]:=ord(s2[i])-ord('0');
end;
procedure jf;
var
g,i:longint;
begin
g:=0;
for i:=max downto 1 do
if a[i]>=b[i]+g then
begin
a[i]:=a[i]-b[i]-g;
g:=0;
end else
begin
a[i]:=a[i]+10-b[i]-g;
g:=1;
end;
end;
procedure print;
var
i,j:longint;
begin
i:=1;
while (i<max)and(a[i]=0) do inc(i);
for j:=i to max do
write(a[j]);
end;
begin
init;
jf;
print;
end.
- 高精度减法pascal程序
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- 高精度减法
- Asp.Net 请求处理机制
- 最小二乘法的一般形式和矩阵形式原理推导和代码实现
- C++ 语法实验室之 inline 关键字
- c++/java中类和对象的区别
- win7下安装TensorFlow
- 高精度减法pascal程序
- IE中iframe跨域访问
- 如何检测到链表中存在循环?
- 如何在Visual C++ 6.0中添加多行注释图标和多行注释快捷键?
- split()及转义的使用
- 【AJAX】基本认识
- 布局
- 第七章 CSS样式基本知识
- 操作系统之分页分段介绍