当前位置: 首页 > news >正文

web做网站访问量统计网络营销logo

web做网站访问量统计,网络营销logo,建筑三维建模,用什么浏览器开wordpress最好1、用repeat、for、while计算从1-10的所有整数的平方和 2、编写一个函数,给出两个正整数,计算他们的最小公倍数 3、编写一个函数,让用户输入姓名、年龄,得出他明年的年龄。用paste打印出来。例如:"Hi xiaoming …

1、用repeat、for、while计算从1-10的所有整数的平方和

2、编写一个函数,给出两个正整数,计算他们的最小公倍数

3、编写一个函数,让用户输入姓名、年龄,得出他明年的年龄。用paste打印出来。例如:"Hi xiaoming you will be 35 next year"

4、编写一个递归函数,实现根据元素索引,得到Fibonacci序列(1,1,2,3,5,8,13…)的值,即f(n)=f(n-1)+f(n-2),n>=3。其中f(1)=1,f(2)=1。

并计算f(20)的值。

5、编写一个函数,将c(2,3,5,8,9,13,21,34)中能被3整除的元素,替换为0,并输出替换后的向量。

  1. 用repeat、for、while计算从1-10的所有整数的平方和

代码:

# 使用 repeat 循环计算total <- 0i <- 1repeat {total <- total + i^2i <- i + 1if (i > 10) {break}}print(paste("从1到10的所有整数的平方和为:", total))# 使用 for 循环计算total <- 0for (i in 1:10) {total <- total + i^2}print(paste("从1到10的所有整数的平方和为:", total))# 使用 while 循环计算total <- 0i <- 1while (i <= 10) {total <- total + i^2i <- i + 1}print(paste("从1到10的所有整数的平方和为:", total))

        截图:

                

  1. 编写一个函数,给出两个正整数,计算他们的最小公倍数

代码:

        

# 定义gcd函数  
gcd <- function(a, b) {  while (b != 0) {  temp <- b  b <- a %% b  a <- temp  }  return(a)  
}  # 定义lcm函数  
lcm <- function(x, y) {  return((x * y) / gcd(x, y))  
}  # 读取用户输入  
num1 <- as.integer(readline("请输入第一个正整数:"))  
num2 <- as.integer(readline("请输入第二个正整数:"))  # 计算并打印LCM  
result <- lcm(num1, num2)  
print(paste("两个正整数的最小公倍数为:", result))

截图:

3、编写一个函数,让用户输入姓名、年龄,得出他明年的年龄。用paste打印出来。例如:"Hi xiaoming you will be 35 next year"

代码:

next_year_age <- function(name, age) {next_age <- age + 1print(paste("Hi", name, "you will be", next_age, "next year."))}name <- readline("请输入您的姓名:")age <- as.integer(readline("请输入您的年龄:"))next_year_age(name, age)

截图:

4、编写一个递归函数,实现根据元素索引,得到Fibonacci序列(1,1,2,3,5,8,13…)的值,即f(n)=f(n-1)+f(n-2),n>=3。其中f(1)=1,f(2)=1。

并计算f(20)的值。

代码:

fibonacci <- function(n) {if (n <= 1) {return(n)} else {return(fibonacci(n-1) + fibonacci(n-2))}}n <- 20print(paste("Fibonacci 序列第", n, "个元素的值为:", fibonacci(n)))

截图:

  1. 编写一个函数,将c(2,3,5,8,9,13,21,34)中能被3整除的元素,替换为0,并输出替换后的向量。

代码:

replace_divisible_by_3 <- function(lst) {for (i in 1:length(lst)) {if (lst[i] %% 3 == 0) {lst[i] <- 0}}return(lst)}c <- c(2, 3, 5, 8, 9, 13, 21, 34)new_c <- replace_divisible_by_3(c)print(paste("替换后的向量为:", new_c))

截图:

http://www.mmbaike.com/news/49634.html

相关文章:

  • 做旅游景区网站直播代运营公司
  • 怎么做阿里巴巴官网站公司宣传推广方案
  • 网站图片优化怎么做企业网站的网络营销功能
  • wordpress activity湖南seo公司
  • 网站内容页模板网站seo哪家做的好
  • 计算机网站建设 是什么意思网站seo设计
  • 惠网 做网站接外包网站
  • 贺州市住房与城乡建设局网站今日头条热搜
  • 专业网站设计公司哪里有seo站长平台
  • 安利的网站谁做的怎么推广一个app
  • 本溪网站建设磁力链最佳的搜索引擎
  • 相城做网站的公司湘潭高新区最新新闻
  • 网站建设平台合同模板seo免费资源大全
  • 美国做3d+h动画的网站网站优化排名方法有哪些
  • 建站哪家好论坛网站外链推广平台
  • php做简单网站教程seo是什么意思呢
  • 网站的基本建设投资seo相关岗位
  • 宁波营销型网站建设百度推广的方式有哪些
  • 网站备案要关站吗百度一下app下载安装
  • 搞笑资讯网站源码seoaoo
  • 网站 案例展示快速排名优化推广手机
  • 国内做的比较好的旅游网站网站建设黄页
  • 四川建设人才考试官网简述seo
  • 石河子市建设局网站seo最新
  • 做ppt的网站什么广告推广最有效果
  • 怎么做基金公司网站网销怎么做
  • 新手学纪事本html代码做网站优帮云查询数据云查询
  • 做搜狗网站快速排名网站如何进行seo
  • 河北企业建站推广方法有哪几种
  • 做网站开发的公司销售现在百度怎么优化排名