R-Programlama_Ders04_ornek_06.R

# kendisine gönderilen sayının ASAL olup olmadığını bulmak
AsalKontrol <- function(sayi) {
  asalDurum <- TRUE # başlangıçta asal olduğunu kabul ediyorum
  for(x in 2:(sayi-1)) {
    if(sayi %% x == 0) {
      asalDurum <- FALSE
      break; # asal sayı değildir. Döngüden çıkarız
    }
  }
  if(asalDurum == TRUE) {
    print(paste(sayi, " ASAL"))
  } else {
    print(paste(sayi, " ASAL DEĞİL"))
  }
}


AsalKontrol(19)
AsalKontrol(21)

for(k in 1:100) {
  AsalKontrol(k)
}