③ repeat{

if(i%%2!=0)sum <- sum+i i <- i+1

if(i>100)break }

print(sum)

2使用while循环求1+2+3+…+100的和。 i <- 1 sum <- 0

while(i<=100){ sum<- sum+1 i <- i+1 }

print(sum)

3使用repeat循环求1至100之间的奇数和。 i <- 1 sum <- 0

while(i<=100){ sum<- sum+1 i <- i+1 }

print(sum)

4使用for循环输出1至100之间的能够被3或5整除的数，并求和。 sum <- 0 for(i in 1:100){

if(i%%3==0|i%%5==0){ print(i)

sum <- sum+i } }

print(sum)

5定义一个长度为100、mean=1，sd=1的正态分布随机向量，并找出该向量的最小值及其出现的位置。 rnorm（n,mean,sd），种子设为123 set.seed(123)

norm <- rnorm(100,1,1) min.norm <- 100 for(i in 1:100){

if(norm[i]<=min.norm){ min.norm=norm[i] min.count=i } }

cat(min.norm,min.count)

精选

6找出100次产生的长度为100、mean=1，sd=1的正态分布随机向量的最小值与出现位置的关系。(用plot(min.count,min.norm)表示，其中min.count为位置向量，min.norm为最小值向量)

for(i in 1:100){

norm <- rnorm(100,1,1) min.norm[i] <- 100 for(i in 1:100){

if(norm[i]<=min.norm[i]){ min.norm[i]=norm[i] min.count[i]=i } } }

plot(min.count,min.norm) 7

Calculate the first 50 powers of 2, 2*2, 2*2*2, etc.

Calculate the squares of the integer numbers from 1 to 50.

Which pairs are equal, i.e. which integer numbers fulfill the condition 2n?n2. How many pairs are there?(Use R to solve all these questions!)

(思考使用循环和不使用循环两种方式解答) sum=0

for(i in 1:100) if(2^i==i^2){ sum=sum+1 print(i) }

cat(\

n=c(1:50) a=2^n b=n^2 x=a-b n[x==0] sum(x==0)

n=c(1:50) a=2^n b=n^2 x=a-b

n[!((x>0)|(x<0))]

精选

sum(!((x>0)|(x<0)))

精选