pascal语言编程角谷猜测

发布网友 发布时间：2024-10-02 14:19

我来回答

共2个回答

热心网友 时间：2024-10-09 03:35

这个好像不是纯角谷猜想吧，麻烦楼主把题目说清楚点儿，我这儿有个角谷猜想的递归程序，希望对你有用处：
var
n,t:longint;
procedure jg(n:longint);
begin
if n>1 then if n mod 2 = 0 then
begin
jg(n div 2);
t:=t+1;
end
else
begin
jg(n * 3 + 1);
t:=t+1;
end;
end;
begin
t:=0;
readln(n);
jg(n);
writeln(t);
end.

热心网友 时间：2024-10-09 03:39

var
a，b：array [-100..100] of integer;
m,n,c,d,i,j:integer;
begin
c:=0;
for i:=-100 to 100 do a[i]:=0;
readln (m,n);
for j:=m to n do
begin
d:=j;
for i:=-100 to 100 do b[i]:=0;
while (d<-100) or (b[d]=0) do
begin
if d>=-100 then b[d]:=1;
if d mod 2=0 then d:=d div 2 else d:=d*3+1;
end;
if a[j]=0 then
begin
a[j]:=1;
c:=c+1;
end;
end;
writeln (c);
end.