Obliczanie napiwku i całkowitej kwoty

Część sekcji Podstawy ścieżki R w Coddy. Lekcja 35 z 78.

Wyzwanie

Łatwy

W poprzedniej lekcji zebrano kwotę rachunku, procent napiwku i liczbę osób. Teraz dodaj logikę obliczeń, aby obliczyć kwotę napiwku i całkowity rachunek z napiwkiem.

Po wyświetleniu komunikatu potwierdzającego oblicz:

kwotę napiwku: pomnóż kwotę rachunku przez procent napiwku podzielony przez 100
całkowity rachunek: dodaj pierwotną kwotę rachunku i kwotę napiwku

Zapisz te wartości w zmiennych o nazwach tip_amount i total.

Następnie wyświetl wyniki obliczeń w następującym formacie:

Tip amount: $[tip_amount]
Total with tip: $[total]

Użyj cat() do wyświetlania wszystkich danych i w razie potrzeby uwzględnij znaki nowej linii \n.

Na przykład, jeśli dane wejściowe to 100, 20 i 4, pełny wynik powinien wyglądać tak:

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

Spróbuj swoich sił

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