中科新闻网金刚光漫画第几话出场:各位大虾帮个忙（pascal的题）
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 22:55:07
b
f=log （1<=a<=9,1<=b<=9）求f的所有值
a
程序：
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
这是为什么呀 按理说应该是一样的呀。
谢谢大家
是以a为底b的对数
f=log （1<=a<=9,1<=b<=9）求f的所有值
a
程序：
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
这是为什么呀 按理说应该是一样的呀。
谢谢大家
是以a为底b的对数
研究了一下. 说实话, 没懂. 没懂的原因是在你的代码中没见到对 s 初始化的语句. 所以不知道 s 的情况.
虽然有 s[n] := k 这个语句, 但在此之前的 if k = s[i] 中的s[i]是多少不知道