3n+1问题pascal解答

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/09/22 07:06:06

3n+1问题pascal解答
Description
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）步.
克拉兹问题的特殊之处在于：尽管很容易将这个问题讲清楚,但直到今天仍不能保证这个问题的算法对所有可能的输入都有效——即至今没有人证明对所有的正整数该过程都终止.
输入描述 Input Description
第一行是一个整数T.表示输入数据的组数.
第二行是T个正整数n.
输出描述 Output Description
对于每个正整数n,每行输出一个数s,表示n通过多少步变换会变成1,如果n无法变成1,则输出-1.
样例输入 Sample Input
3
1 2 3
样例输出 Sample Output
0
1
7
数据范围及提示 Data Size & Hint
1

program wapiknow;
var n,x,i,op:longint;
begin
    readln(n);
    for i:=1 to n do
    begin
        read(x);
        op:=0;
        while x<>1 do
        begin
            if (x mod 2=1) then x:=3*x+1
            else x:=x div 2;
            inc(op);
        end;
        writeln(op);
    end;
end.希望我的回答能帮到你.

3n+1问题pascal解答 3n+1问题 pascal语言 free pascal的问题（用while语句解答）求PASCAL大牛解答!转圈问题（NOIP2013） pascal语言 3n+1的问题跪求…………………………………… pascal For i:=1 to n Pascal语言某自然数N(1 Free Pascal解答 pascal问题一个递推数列,输入n,输出f[n]； n 请用Free Pascal解答以下3道题. (1/2)谢谢解答下列问题祝中秋快乐.设f(n)=(1/n+1)+(1/n+2)+(1/n+3)+…+(1/2n)(n 用PASCAL语言编写一个求1+2+3+...+N的程序