以字符串形式由键盘输入两个高精度的８进制正整数，串长小于２５５，以
第一个数为被除数，第二个数为除数，进行高精度除法运算，并显示按 8 进制表
示的商和余数。
program lxw019;
const
str2:string[32]=’000 001 010 011 100 101 110 111 ’;
str8:string[32]=’0 1 2 3 4 5 6 7 ’;
var a1,a2: string;
flag2:boolean; i:integer;
function s8to2(s8:string):string;
var i,j:integer; s:string;
begin
s:=’’;
for i:=1 to length(s8) do
begin
j:=-3;
repeat j:=j+4 until str8[j]=s8[i];
s:=s+copy(str2,j,3)
end;
此文共有5页 上一页 1 2 3 4 5 下一页 |
