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

Posted 2023-05-08

否则，如果n是偶数，则将n除2，并赋给n；否则，将3n+1赋给n。不断循环，直到n=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="运算成功")

参考技术A while(n!=1)

if (n&0x01)

n=3*n+1;

else

n=n>>1;

参考技术B while(n!=1)

if (n%2==0)

n=n/2;

else

n=3n+1;

参考技术C 我不知道你用什么语言，我写个算法吧：
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，不知道什么情况，不过算法思想应该差不多吧，呵呵，祝你早日完成作业哈。

本回答被提问者采纳

Python编写一个函数,求1*2*3*4...*n的乘积,编写主程序,从键盘输入一个整数,并

代码如下：

#coding=utf-8

n = int(input('请输入一个正整数：'))

num = 1

for i in range(1, n + 1):
    num = num * i


print('结果：', num)

运行结果：

追问

用def定义函数的方法怎么写啊

追答#coding=utf-8

# 定义函数calc计算n!
def calc(n):

    num = 1

    for i in range(1, n + 1):
        num = num * i
    return num

n = int(input('请输入一个正整数：'))
result = calc(n)
print('结果：', result)

参考技术A 这是一种代码：
def jc(n):
i=1
s=1
for i in range(1,n+1):
s=s*i
i+=1
return s
a=int(input('请你输入一个整数，李静长091会告诉你这个数的阶乘是多少：'))
if a<0:
print('这个数不能构成阶乘！')
else:
print(a,'！=',jc(a))