0 İLE 100 ARASINDA Kİ RASTGELE TUTULAN SAYIYI BULAN PROGRAM
UYGULAMA KODLARI
#Yardımcı Fonksiyonlar
readinteger <- function()
{
n <- readline(prompt="Bir Tam Sayı Giriniz: ")
if(!grepl("^[0-9]+$",n))
{
return(readinteger())
}
return(as.integer(n))
}
// Buradaki fonksiyonumuzda kullanıcıdan bir sayı girmesini isteriz ve bu sayıyı program içinde okuturuz
# Uygulamanın gerçek başlangıcı
num <- round(runif(1) * 100, digits = 0)//'num' adlı değişkenimiz ile kullanıcıdan tahmin etmesini isteyeceğimiz sayıyı rastgele belirleriz
guess <- -1// Kullanıcının 1 tane tahmin edeceği sayı vardır.
cat("0 ile 100 arasında bir sayı tahmin edin.\n")//'cat' Burada Ekrana Yazma Komutudur.
while(guess != num)//While bir döngüdür ve tahmini bulana dek burada girilen tahminleri döndürecektir.
{
guess <- readinteger()//Burada ekrandan girdiğimiz sayıyı okuyoruz.Aynı zamanda fonksiyonumuzdur
if (guess == num)//Tahmin edilen ile rastgele tutulan sayı eğer eşit yani aynıysa
{
cat("Doğru ,", num, "Tebrikler.\n")//"Tebrikler 'sayi' Doğru" Bilgisini ekrana verecektir.
}
else if (guess < num)//Eğer ki tahmin edilen küçük ise
{
cat("Daha Büyük!\n")//Daha büyük bir sayı girmemizi isteyecektir
}
else if(guess > num)//Eğer ki tahmin büyük ise
{
cat("Daha Küçük!\n")//Daha küçük bir sayı girmemezi isteyecektir
}
}
UYGULAMA ÇIKTISI
0 ile 100 arasında bir sayı tahmin edin
Bir tam sayı girin: 50
Daha küçük!
Bir tam sayı girin: 20
Daha büyük!
Bir tam sayı girin: 40
Daha büyük!
Bir tam sayı girin: 45
Daha küçük!
Bir tam sayı girin: 43
Daha büyük!
Bir tam sayı girin: 44
Tebrikler, 44 doğru.