3n+1问题 pascal语言简介:3n+1问题是一个简单有趣而又没有解决的数学问题.这个问题是由L.Collatz在1937年提出的.克拉兹问题(Collatz problem)也被叫做hailstone问题、3n+1问题、Hasse算法问题、Kakutan
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/19 13:21:57
![3n+1问题 pascal语言简介:3n+1问题是一个简单有趣而又没有解决的数学问题.这个问题是由L.Collatz在1937年提出的.克拉兹问题(Collatz problem)也被叫做hailstone问题、3n+1问题、Hasse算法问题、Kakutan](/uploads/image/z/2413618-34-8.jpg?t=3n%2B1%E9%97%AE%E9%A2%98+pascal%E8%AF%AD%E8%A8%80%E7%AE%80%E4%BB%8B%EF%BC%9A3n%2B1%E9%97%AE%E9%A2%98%E6%98%AF%E4%B8%80%E4%B8%AA%E7%AE%80%E5%8D%95%E6%9C%89%E8%B6%A3%E8%80%8C%E5%8F%88%E6%B2%A1%E6%9C%89%E8%A7%A3%E5%86%B3%E7%9A%84%E6%95%B0%E5%AD%A6%E9%97%AE%E9%A2%98.%E8%BF%99%E4%B8%AA%E9%97%AE%E9%A2%98%E6%98%AF%E7%94%B1L.Collatz%E5%9C%A81937%E5%B9%B4%E6%8F%90%E5%87%BA%E7%9A%84.%E5%85%8B%E6%8B%89%E5%85%B9%E9%97%AE%E9%A2%98%EF%BC%88Collatz+problem%EF%BC%89%E4%B9%9F%E8%A2%AB%E5%8F%AB%E5%81%9Ahailstone%E9%97%AE%E9%A2%98%E3%80%813n%2B1%E9%97%AE%E9%A2%98%E3%80%81Hasse%E7%AE%97%E6%B3%95%E9%97%AE%E9%A2%98%E3%80%81Kakutan)
3n+1问题 pascal语言简介:3n+1问题是一个简单有趣而又没有解决的数学问题.这个问题是由L.Collatz在1937年提出的.克拉兹问题(Collatz problem)也被叫做hailstone问题、3n+1问题、Hasse算法问题、Kakutan
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问题 pascal语言简介:3n+1问题是一个简单有趣而又没有解决的数学问题.这个问题是由L.Collatz在1937年提出的.克拉兹问题(Collatz problem)也被叫做hailstone问题、3n+1问题、Hasse算法问题、Kakutan
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.
稍微改一下即可