R语言计算1到100的奇数和偶数和

àì夳堔傛蜴生んèń 2023-06-25 04:32 11阅读 0赞

## 1到100的奇偶数和 ##

1＋3＋5＋···＋99=﹙1＋99﹚×50÷2=2500  
2＋4＋6＋···＋100=﹙2＋100﹚×50÷2=2550

## 方法一：R语言计算1到100的奇偶数和 ##

i <- 1  #循环计数
    sum2 <- 0   #保存用于存储之和sum
    sum1 <- 0
    while (i <= 100)
    { 
    if (i%%2 == 0){ 
        sum1 = sum1 + i   #将每个i加入到sum1中
    }else{ 
    sum2 = sum2 + i
    }    #循环计数量加1
    i <- i + 1
    }
    za2 <- sprintf("R语言偶数之和为：%d",sum1)
    za1 <- sprintf("R语言奇数之和为：%d",sum2)
    print(za1)
    print(za2)

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]

## 方法二：R语言计算1到100的奇偶数和 ##

sum <- 0
    sum2<-0
    for(i in 1:100)
    { 
     if(i%%2==0){ 
       print(i)
       sum <- sum +i
    }else{ 
    print(i)
    sum2 <- sum2 +i
     }
    }
    print(sum)
    print(sum2)

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 1]

## 方法三：R语言计算1到100的奇偶数和 ##

##求奇数和
    (1:100)[1:100 %% 2 !=0];
    sum((1:100)[1:100 %% 2 !=0])
    
    ##求偶数和
    
    (1:100)[1:100 %% 2 ==0];
    sum((1:100)[1:100 %% 2 ==0])

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 2]

### R语言奇数判断 ###

jishu <- function(x){
        ifelse(x%%2 ==0,F,T)
    }
    jishu(11)
    [1] TRUE

![在这里插入图片描述][20191230102635222.png]

### Python计算1到100的结果 ###

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 3]

>>>i = 1
    >>>sum1 = 0
    >>>sum2 = 0
    >>>while i <= 100:
        if i % 2 == 0:
            sum1 += i
        else:
            sum2 += i
        i +=1
    >>>print("1-100之间偶数和为：%d" % sum1)
    >>>print("1-100之间奇数和为：%d" % sum2)
    1-100之间偶数和为：2550
    1-100之间奇数和为：2500

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70]: https://img-blog.csdnimg.cn/20191225164941609.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 1]: https://img-blog.csdnimg.cn/20191225165641680.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 2]: https://img-blog.csdnimg.cn/20191225170047936.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70
[20191230102635222.png]: https://img-blog.csdnimg.cn/20191230102635222.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu_size_16_color_FFFFFF_t_70 3]: https://img-blog.csdnimg.cn/20191225170735820.png?x-oss-process=image/watermark,type_ZmFuZ3poZW5naGVpdGk,shadow_10,text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3RhbmRlbGlu,size_16,color_FFFFFF,t_70