pascal语言编程角谷猜测

这个好像不是纯角谷猜想吧，麻烦楼主把题目说清楚点儿，我这儿有个档掘角谷猜想的递归咐蠢派程序，希衡贺望对你有用处：

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.

这个是角谷猜想。

指对于每一个正整数，如果它是奇侍岩数，则对它乘伏谈茄3再加1；如果它是偶数，则对它除以2，如此循环，缺察若干步后最终都能够得到1。

程序：

Program Jiaogu

Var n, Total: Longint

Procedure JG(Num: Longint)

Begin

If Num >1 Then

If Odd(Num) Then

Begin JG(Num Div 2)Inc(Total)End

Else

Begin JG(Num * 3 + 1)Inc(Total)End

End；

Begin {Main}

Readln(n)

Total:= 0JG(n)

Writeln(Total)

End.

---