R Programlama Dili İle Basit Hesap Makinesi

toplama <- function(x, y) {
    return(x + y)
}

cikarma <- function(x, y) {
    return(x - y)
}

carpma <- function(x, y) {
    return(x * y)
}

bolme <- function(x, y) {
    return(x / y)
}

# Girişi Kullanıcıdan Al
print("İşlemi Seç")
print("1.Toplama")
print("2.Çıkarma")
print("3.Çarpma")
print("4.Bölme")

choice = as.integer(readline(prompt="Seçiminizi Girin [1/2/3/4]: "))

sayi1 = as.integer(readline(prompt="İlk Sayıyı Giriniz: "))
sayi2 = as.integer(readline(prompt="İkinci Sayıyı Giriniz: "))

operator <- switch(choice,"+","-","*","/")
result <- switch(choice, toplama(sayi1, sayi2), cikarma(sayi1, sayi2), carpma(sayi1, sayi2), bölme(sayi1, sayi2))

print(paste(sayi1, operator, sayi2, "=", result))

Ekran Görüntüsü

[1] "İşlem Seçin."
[1] "1.Toplama"
[1] "2.Çıkarma"
[1] "3.Çarpma"
[1] "4.Bölme"
Seçiminizi Girin:[1/2/3/4]: 4
İlk Sayıyı Giriniz: 20
İkinci Sayıyı Giriniz: 4
[1] "20 / 4 = 5"

Kaynak=https://www.programiz.com/r-programming/examples/simple-calculator