大师作文网3n+1问题 pascal语言
来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/12 09:39:24
3n+1问题 pascal语言
简介：
3n+1问题是一个简单有趣而又没有解决的数学问题.这个问题是由L.Collatz在1937年提出的.克拉兹问题（Collatz problem）也被叫做hailstone问题、3n+1问题、Hasse算法问题、Kakutani算法问题、Thwaites猜想或者Ulam问题.
（1）输入一个正整数n；
（2）如果n=1则结束；
（3）如果n是奇数,则n变为3n+1,否则n变为n/2；
（4）转入第（2）步.
克拉兹问题的特殊之处在于：尽管很容易将这个问题讲清楚,但直到今天仍不能保证这个问题的算法对所有可能的输入都有效——即至今没有人证明对所有的正整数该过程都终止.
输入：
第一行是一个整数T.表示输入数据的组数.
第二行是T个正整数n.
输出：
对于每个正整数n,每行输出一个数s,表示n通过多少步变换会变成1,如果n无法变成1,则输出-1.
数据范围：
1
简介：
3n+1问题是一个简单有趣而又没有解决的数学问题.这个问题是由L.Collatz在1937年提出的.克拉兹问题（Collatz problem）也被叫做hailstone问题、3n+1问题、Hasse算法问题、Kakutani算法问题、Thwaites猜想或者Ulam问题.
（1）输入一个正整数n；
（2）如果n=1则结束；
（3）如果n是奇数,则n变为3n+1,否则n变为n/2；
（4）转入第（2）步.
克拉兹问题的特殊之处在于：尽管很容易将这个问题讲清楚,但直到今天仍不能保证这个问题的算法对所有可能的输入都有效——即至今没有人证明对所有的正整数该过程都终止.
输入：
第一行是一个整数T.表示输入数据的组数.
第二行是T个正整数n.
输出：
对于每个正整数n,每行输出一个数s,表示n通过多少步变换会变成1,如果n无法变成1,则输出-1.
数据范围：
1
Var n, Tot: Longint;
Begin
Readln(n);
Tot:= 1;
While n > 1 Do
Begin
Write(n, ' ');
If Odd(n) Then n:= n * 3 + 1
Else n:= n Div 2;
Inc(Tot);
End;
Writeln(1);
Writeln('STEP=', Tot);
End.
稍微改一下即可
Begin
Readln(n);
Tot:= 1;
While n > 1 Do
Begin
Write(n, ' ');
If Odd(n) Then n:= n * 3 + 1
Else n:= n Div 2;
Inc(Tot);
End;
Writeln(1);
Writeln('STEP=', Tot);
End.
稍微改一下即可