Question

编写一个R程序（函数）。输入一个整数n，如果，则终止运算，并输出一句话：“请输入一个正整数”

否则，如果n是偶数，则将n除2，并赋给n；否则，将3n+1赋给n。不断循环，直到n=1，才停止计算，并输出一句话：“运算成功”。

Answer 1

frezo<-function(n){
if(n<=0)
list(fail="要求输入一个正整数")
else {
repeat{
if(n==1) break
else
if(n%%2==0)
n<-n/2
else
n<-3*n+1
}
list(succeed="运算成功")
}
}

Answer 2

while(n!=1)
{
if (n&0x01)
{
n=3*n+1;
}
else
{
n=n>>1;
}
}

Answer 3

while(n!=1)
{
if (n%2==0)
{
n=n/2;
}
else
{
n=3n+1;
}
}

Answer 4

我不知道你用什么语言，我写个算法吧：
input(n);
if n==1 i=1;
else i=0;
for(;i=1;)
{
if n/2==0
n=n/2;
else
n=3*n+1;
if n==1 i=1;
else i=0;
}
printf("运行成功")
不知道你能不能看的懂，呵呵

追问

我知道这个是C哇·····老师布置的要求是用R语言！一种统计软件专用的语言~类似于Mathematical~不过，还是谢谢你啦！我能看懂~^_^~

追答

呵呵，没学过R，不知道什么情况，不过算法思想应该差不多吧，呵呵，祝你早日完成作业哈。