repeat

x = 1
repeat {
  x = x + 3
  if (x>30)
    break
  print(x)}

## [1] 4
## [1] 7
## [1] 10
## [1] 13
## [1] 16
## [1] 19
## [1] 22
## [1] 25
## [1] 28

repeat

x = 1
repeat {
  x = x + 3
  print(x)
  if (x>30)
    break}

## [1] 4
## [1] 7
## [1] 10
## [1] 13
## [1] 16
## [1] 19
## [1] 22
## [1] 25
## [1] 28
## [1] 31

repeat

100 kisinin goz rengi verisini olusturup goz.rengi veriseti olusturulmustur. 100 kiside goz rengi mavi ve ya yesil olan ilk 20 kişinin id lerini yazdırma işlemini repeat() döngüsü ile yazalım

set.seed(41)
renk<-c("kahverengi","mavi","yesil","ela","siyah")
goz.rengi<-data.frame(id=1:100,renk=
                        sample(renk,100,rep=T))
which(goz.rengi$renk== "mavi" | goz.rengi$renk == "yesil")[1:20]

##  [1]  1  3  5  6  7 10 18 20 21 25 27 28 32 34 42 43 45 48 51 54

repeat

i=0
j=0
ids <- c()
 repeat{
   i= i + 1 
if(goz.rengi$renk[i] == "mavi" | goz.rengi$renk[i] == "yesil"){
  
  j= j+1
  ids[j] <- goz.rengi$id[i]
 }
   if(j==20 | i==100)
       break
  
 }

ids

##  [1]  1  3  5  6  7 10 18 20 21 25 27 28 32 34 42 43 45 48 51 54

repeat

repeat {
  i<-i+1
  if(goz.rengi$renk[i]=="mavi" |     goz.rengi$renk[i]=="yesil") {
    ids[j] <- c(ids,goz.rengi$id[i])}
  
  j= j + 1
  if(i==100 | length(ids)==20) break
}

## Warning in ids[j] <- c(ids, goz.rengi$id[i]): değiştirilecek öğelerin sayısı
## değiştirme uzunluğunun bir katı değil

ids

##  [1]  1  3  5  6  7 10 18 20 21 25 27 28 32 34 42 43 45 48 51  1

ODEV

\[3^2 + 4 ^2 = 5^2\] \[5^2 + 12 ^2 = 13^2\] Bu sayılara pisagor üclüsü adı verilir. Pisagor üçlüsü olan ve toplamı 1000 olan sayıların çarpımını bulunuz.

\[a^2 + b ^2 = c^2\] \[a + b +c=1000\]

a

## [1] 375

b

## [1] 200

c

## [1] 425

a*b*c

## [1] 31875000

ODEV

Eratosthenes yöntemini kullanarak asal sayıları bulunuz

“any” komutunu ve %% mod opertorunu kullanabilirsiniz.

AsalSay(20)

## [1]  2  3  5  7 11 13 17 19