高精度减法

来源：百度知道 编辑：UC知道 时间：2024/06/14 01:22:51
【试题描述】

高精度减法，求a-b a,b都不超过240位

【输入描述】

两个整数
每行一个

【输出描述】

一个数

【输入样例】

33333333333333333333333333333333333333333
22222222222222222222222222222222222222222

【输出样例】

11111111111111111111111111111111111111111

【解题提示】

数据并不保证a>b，如果差是负数要输出'-'号；
另外差的高位上的0要去掉。
Pascal 解答

高精度减法程序如下：

program HighPrecision2_Subtract;
const
fn_inp='hp2.inp';
fn_out='hp2.out';
maxlen=100; { max length of the number }
type
hp=record
len:integer; { length of the number }
s:array[1..maxlen] of integer
{ s[1] is the lowest position
s[len] is the highest position }
end;
var
x:array[1..2] of hp;
y:hp; { x:input ; y:output }
positive:boolean;

procedure PrintHP(const p:hp);
var i:integer;
begin
for i:=p.len downto 1 do write(p.s[i]);
end;

procedure init;
var
st:string;
j,i:integer;
begin
assign(input,fn_inp);
reset(input);
for j:=1 to 2 do
begin
readln(st);
x[j].len:=length(st);
for i:=1 to x[j].len do { change string to HP }
x[j].s[i]:=ord(st[x[j].len+1-i])