求PASCAL题高精度减法的程序
语言:PASCAL
要求:就是要能运算100位的减法的,希望各位老手帮帮忙,急用!
希望不要有抄袭的现象,谢谢.
参考答案:唉……算我好心吧,现打一个,有个别打误见谅吧
(默认第一个数大于第二个数喽)
program gaojian;
var
a,b:array[1..500] of longint;
s1,s2:string;
i,j,k,l1,l2:longint;
begin
readln(s1);readln(s2);
l1:=length(s1);l2:=length(s2);
for i:=1 to l1 do a[l1-i+1]:=ord(s1[i])-48;
for i:=1 to l2 do b[l2-i+1]:=ord(s2[i])-48;
k:=0;
for i:=1 to l1 do
begin
a[i]:=a[i]-b[i];
if a[i]<0 then begin
a[i]:=a[i]+10;
a[i+1]:=a[i+1]-1;
end;
end;
while a[l1]=0 do l1:=l1-1;
for i:=l1 downto 1 do write(a[i]);
writeln;
end.