Partager l'addition

Fait partie de la section Fondamentaux du Journey R de Coddy — leçon 36 sur 78.

Défi

Facile

Dans la leçon précédente, vous avez calculé le montant du pourboire et le total de la facture. Maintenant, ajoutez l'étape finale : diviser le total entre toutes les personnes.

Après avoir affiché le montant du pourboire et le total avec pourboire, calculez combien chaque personne doit payer en divisant le total par le nombre de people.

Stockez cela dans une variable nommée per_person.

Ensuite, affichez le résultat final au format suivant :

Each person pays: $[per_person]

Utilisez cat() pour toutes les sorties et incluez les caractères de nouvelle ligne \n là où c'est nécessaire.

Par exemple, si les entrées sont 100, 20, et 4, la sortie complète doit être :

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

Essayez vous-même

# 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 = "")