Úloha 2. (prvá časť)

Praktické cvičenie: Kúpa motocykla na úver

Kika si chce kúpiť motocykel. Potrebuje vypočítať: 1. Sumu úveru: Cena motocykla je 15000 €, ona má vlastných 2500 €. 2. Mesačnu splátku na 3 roky s úrokom 6% ročne. 3. Celkovú zaplatenú sumu (hlavica + úroky). 4. Aký percentuálny podiel z celkovej sumy tvoria úroky.

---

Zadané hodnoty

cena_motocykla <- 15000
vlastne_prostriedky <- 2500
urokova_miera <- 0.06  # 6% ročne
pocet_rokov <- 3

1. Výška úveru

sum_uveru <- cena_motocykla - vlastne_prostriedky

2. Výpočet mesačnej splátky

rocna_splatka <- sum_uveru * (1 + urokova_miera * pocet_rokov)
mesacna_splatka <- rocna_splatka / (pocet_rokov * 12)

3. Celková zaplatená suma

celkova_suma <- mesacna_splatka * (pocet_rokov * 12)

4. Percentuálny podiel úrokov

suma_urokov <- celkova_suma - sum_uveru
podiel_urokov <- (suma_urokov / celkova_suma) * 100

Zaokrúhlenie hodnôt

zaokruhlena_mesacna <- round(mesacna_splatka, 2)
zaokruhlena_celkova <- round(celkova_suma, 2)
zaokruhlena_podiel <- round(podiel_urokov, 2)

Výpis výsledkov

sum_uveru

[1] 12500

zaokruhlena_mesacna

[1] 409.72

zaokruhlena_celkova

[1] 14750

zaokruhlena_podiel

[1] 15.25

Vytvorenie jednoduchej tabuľky

prvy_polrok <- c("Január", "Február", "Marec", "Apríl", "Máj", "Jún")
splatky_prvy_polrok <- rep(zaokruhlena_mesacna, 6)
tabuľka_splatok <- data.frame(
  Mesiac = prvy_polrok,
  Splátka = splatky_prvy_polrok,
  Zaplatené = cumsum(splatky_prvy_polrok))

print(tabuľka_splatok)

Jednoduchý graf “Rozloženie celkovej sumy splátok”

casti <- c("Istina (úver)" = sum_uveru, "Úroky" = suma_urokov)
pie(casti,
   main = "Rozloženie celkovej sumy splátok",
   col = c("skyblue", "orange"),
   labels = paste(names(casti), "\n", round(casti, 2), "€")
)

Výpočet celkových nákladov s poistkou

poistka_mesacna <- 15
doprava <- 120
celkove_naklady <- zaokruhlena_celkova + (poistka_mesacna * 36) + doprava
cat("\nÚver:", zaokruhlena_celkova, "€")

Úver: 14750 €

cat("\nPoistka (3 roky):", poistka_mesacna * 36, "€")

Poistka (3 roky): 540 €

cat("\nDoprava a registrácia:", doprava, "€")

Doprava a registrácia: 120 €

cat("\nSPOLU:", celkove_naklady, "€")

SPOLU: 15410 €