神马品牌网黄金美元 (xauusd ):help一下
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 04:45:14
是以a为底b的对数 （1<=a<=9,1<=b<=9）求f的所有值
程序：
var
s:array[1..255] of real;
k:real;
a,b,n,i:integer;
t:boolean;
begin
n:=1;
for a:=1 to 9 do
for b:=1 to 9 do
begin
k:=ln(b)/ln(a);
t:=true;
for i:=1 to n do
if k=s[i] then t:=false;
if t=true then begin s[n]:=k; n:=n+1; end;
end;
write(n);
readln;
end.
注意一下a 当a=1时，n=56；
当a=2时，n=54
这是为什么呀 按理说应该是一样的呀。
谢谢大家
程序：
var
s:array[1..255] of real;
k:real;
a,b,n,i:integer;
t:boolean;
begin
n:=1;
for a:=1 to 9 do
for b:=1 to 9 do
begin
k:=ln(b)/ln(a);
t:=true;
for i:=1 to n do
if k=s[i] then t:=false;
if t=true then begin s[n]:=k; n:=n+1; end;
end;
write(n);
readln;
end.
注意一下a 当a=1时，n=56；
当a=2时，n=54
这是为什么呀 按理说应该是一样的呀。
谢谢大家