library(stringr)

Exercices#

for loops#

Numéro1#

En utilisant les variables suivantes: x=1 y=40 i=c(1:10) Pour cet exercice, écrivez une boucle for () qui incrémente x par trois et diminue y par deux, pour chaque i.

x=1
y=40
i=c(1:10)
for (j in i)
{x=x+3
 y=y-2
print(paste(x, y, sep="_"))
}

[1] "4_38"
[1] "7_36"
[1] "10_34"
[1] "13_32"
[1] "16_30"
[1] "19_28"
[1] "22_26"
[1] "25_24"
[1] "28_22"
[1] "31_20"

Numéro 2#

Soit les variables:

a=15:10
b=20:15

Pour cet exercice, écrivez une boucle while() qui calcule un vecteur x = 225 224 221 216 209 200, tel que

x[1]=a[1]*b[6]
x[2]=a[2]*b[5]
x[3]=a[3]*b[5]
.
.
x[6]=a[6]*b[1]

x=c()
i=1
j=6
while (i<7)
{
  x[i]=a[i]*b[j]
  i=i+1
  j=j-1
}
x
  1. 225
  2. 224
  3. 221
  4. 216
  5. 209
  6. 200

numero 3#

en utilisant la variable suivante:

a=1:10

Pour cet exercice, écrivez une boucle while () qui calcule un vecteur x = 1 3 6 10 15 21 28 36 45 55, tel que

x[1]=a[1]
x[2]=a[1]+a[2]
x[3]=a[1]+a[2]+a[3]
.
.

a=1:10

i=1
x=c()
while (i<=10)
  {
  x[i]=sum(a[1:i])
  i=i+1
  }
x
  1. 1
  2. 3
  3. 6
  4. 10
  5. 15
  6. 21
  7. 28
  8. 36
  9. 45
  10. 55

Numéro 4#

en utilisant la variable suivante:

i=10
x=10

Pour cet exercice, écrivez une boucle repeat() qui diminue en calculant x = x / i jusqu’à ce que i = 0.

i=10
x=10

repeat
  {x=x/i
  print(x)
  i=i-1
  if (i==0)
    break
  }

[1] 1
[1] 0.1111111
[1] 0.01388889
[1] 0.001984127
[1] 0.0003306878
[1] 6.613757e-05
[1] 1.653439e-05
[1] 5.511464e-06
[1] 2.755732e-06
[1] 2.755732e-06

Numéro 5#

Puisque vous êtes en fin de session, vous voulez faire un plan d’étude pour bien réussir vos examens. Ecrivez une boucle repeat qui permet d’afficher toutes les dates entre aujourd’hui et le jour de votre dernier examen:

auj<-as.Date(Sys.Date(),"%d/%m/%Y")
dernier_exam<-as.Date("18/04/2018","%d/%m/%Y")
repeat
{
auj<-auj+1
    print(auj)
if (auj==dernier_exam)
  break
}