Membagi Tagihan

Termasuk bagian Dasar-Dasar dalam perjalanan R di Coddy. Pelajaran 36 dari 78.

Tantangan

Mudah

Pada pelajaran sebelumnya, kamu menghitung jumlah tip dan total tagihan. Sekarang, tambahkan langkah terakhir: bagi totalnya di antara semua orang.

Setelah menampilkan jumlah tip dan total termasuk tip, hitung jumlah yang harus dibayar setiap orang dengan membagi total dengan jumlah people.

Simpan nilai ini dalam variabel bernama per_person.

Lalu, tampilkan hasil akhir dengan format berikut:

Each person pays: $[per_person]

Gunakan cat() untuk semua output dan sertakan karakter baris baru \n jika diperlukan.

Misalnya, jika inputnya adalah 100, 20, dan 4, output lengkapnya seharusnya:

Welcome to the Bill Split Calculator!
Let's split your bill fairly.
Bill: $100
Tip: 20%
People: 4
Tip amount: $20
Total with tip: $120
Each person pays: $30

Coba sendiri

# TODO: Write your code below
# Use cat() to display the welcome message
# Remember to use \n for new lines
cat("Welcome to the Bill Split Calculator!\nLet's split your bill fairly.\n")

# Read user inputs
con <- file("stdin", "r")
bill <- as.numeric(suppressWarnings(readLines(con, n = 1)))
tip_percent <- as.numeric(suppressWarnings(readLines(con, n = 1)))
people <- as.numeric(suppressWarnings(readLines(con, n = 1)))
close(con)

# Display confirmation message
cat("Bill: $", bill, "\n", sep = "")
cat("Tip: ", tip_percent, "%\n", sep = "")
cat("People: ", people, "\n", sep = "")

# Calculate tip amount and total
tip_amount <- bill * tip_percent / 100
total <- bill + tip_amount

# Display calculation results
cat("Tip amount: $", tip_amount, "\n", sep = "")
cat("Total with tip: $", total, "\n", sep = "")