编程实现两个高精度实数减法，两数分别由键盘输入，均不超过２４０位。
program lxw011;
const n1=250; n2=500;
type strn=string[250];
intn2=array [0..500] of shortint;
var a1,b1,c1:intn2;
ch1,ch2:strn;
operch:char;
i,t1:integer;
procedure chtoint(ch:strn; var a:intn2);
{ 将字符串量转换为整型数组 }
var i,j,t,dot:integer;
begin
for i:=1 to n2 do a[i]:=0;
a[0]:=1; j:=0; dot:=0;
for i:=1 to length(ch) do
case ch[i] of
’0’..’9’: begin j:=j+1; a[j]:=ord(ch[i])-ord(’0’) end;
’.’: dot:=j;
’-’: a[0]:=-1
&n此文共有4页 上一页 1 2 3 4 下一页 |
