################################################################################################## ######## Úkol 1.2 ############## ukol2 <- function (jednotka){ # Funkce zjisti, jak dlouho bude trvat, nez hmotnost bakterii Yersinia pestis presahne hmotnost Zeme, pokud se bakterie deli kazdych 100 minut, # nehynou a v case t=0 byla na Zemi 1 bakterie. Funkce uvede vypocteny cas v pozadovane jednotce. # # jednotka ... jednotka casu t # = 1 ... minuty # = 2 ... hodiny # = R\{1,2} ... dny # # t ... doba v minutach/hodinach/dnech, po ktere hmotnost mnozicich se # bakterii prekroci hmotnost Zeme m_b = 6e-15 # hmotnost bakterie m_z = 6e24 # hmotnost Zeme t = 0 pocet_bakt = 1 # doplnte kod # # # # # # doplnte kod if (jednotka==1){ paste0('Hmotnost bakterii prekrocila hmotnost Zeme za ', signif(t, 2), ' minut.') }else{ if (jednotka == 2){ t = t / 60 paste0('Hmotnost bakterii prekrocila hmotnost Zeme za ', signif(t, 2), ' hodin.') }else{ t = t / (60*24) paste0('Hmotnost bakterii prekrocila hmotnost Zeme za ', signif(t, 2), ' dnu.') } } } #konec