Modulo 2 · Decidere facile R

Rimborso per il ritardo del treno

Lavori all’assistenza clienti di una compagnia ferroviaria e ogni giorno arrivano richieste di rimborso per ritardo. Le condizioni di trasporto sono chiare: se il treno arriva con un ritardo sotto i 60 minuti non è dovuto nulla; da 60 a 119 minuti il passeggero ha diritto al 25% del prezzo del biglietto; da 120 minuti in su al 50%.

Ti chiedono di automatizzare il calcolo: dati il prezzo del biglietto e i minuti di ritardo, l’importo da rimborsare con due decimali. I passeggeri più agguerriti sono quelli con 59 o 60 minuti di ritardo, e con 119 o 120: sono esattamente i casi su cui il tuo programma deve fare la cosa scritta nelle condizioni.

Input

prezzo numero — prezzo del biglietto in euro
ritardo numero — minuti di ritardo all'arrivo

Output

rimborso numero — euro da rimborsare, 2 decimali

Regole

Ritardo sotto i 60 minuti: nessun rimborso.
Da 60 a 119 minuti: rimborso del 25% del prezzo.
Da 120 minuti in su: rimborso del 50%.
Arrotonda a due decimali.

Esempi

prezzo	ritardo	rimborso
50	30	0
50	75	12.5

Ti serve: variabili · operatori di confronto · valori logici

prezzo <- 50
ritardo <- 30

if(ritardo < 60){
  rimborso <- 0
}else if(ritardo < 120){
  rimborso <- round(prezzo * 0.25, 2)
}else{
  rimborso <- round(prezzo * 0.50, 2)
}
rimborso