Domáca úloha 2

Malé cvičenie 1

Vypočítajte:

\[\frac{(40^2-4^3)}{15}\]

(40^2 - 4^3) / 15

\[\lvert 5^2 - 5^3 \rvert\]

abs(5^2 - 5^3)

[1] 100

\[\pi \times 5^2\]

pi * 5^2

[1] 78.53982

Text

Vety

slovo1 <- "Ekonometria"
slovo2 <- "je"
slovo3 <- "sranda"
veta<-paste(slovo1, slovo2, slovo3)

Prvá veta: Ekonometria je sranda
Druhá veta: sranda je Ekonometria

Logické úlohy

Jednoduché

3 < 7

[1] TRUE

10 > 20

[1] FALSE

5 == 5

[1] TRUE

8 != 10

[1] TRUE

Zložitejšie

a <- 2.5
b <- 3.2
c <- 4.9
a + b == b + a & a + b != a + c

[1] TRUE

(a < b & b < c) | (c == a + b)

[1] TRUE

!(a + c == b * 2)

[1] TRUE

(a^2 + b^2) == c^2

[1] FALSE

Moje riešenie

V tejto časti som sa rozhodol využiť prácu s textom a logické testovanie na vytvorenie malého programu, ktorý overí, či zadaný e-mail spĺňa základné pravidlá – teda či obsahuje zavináč (@), bodku (.), a nemá medzery.

Takto môžeme demonštrovať praktické použitie príkazov ako grepl(), nchar(), strsplit() a logických operátorov v kombinácii.

# Zadanie e-mailu
mail <- "student.fmuk@uniba.sk"

# Overenie základných podmienok
obsahuje_zavinac <- grepl("@", mail)
obsahuje_bodku <- grepl("\\.", mail)
bez_medzery <- !grepl(" ", mail)
dlzka_ok <- nchar(mail) >= 8 & nchar(mail) <= 40

# Zobrazenie výsledkov
obsahuje_zavinac

[1] TRUE

obsahuje_bodku

[1] TRUE

bez_medzery

[1] TRUE

dlzka_ok

[1] TRUE

Ak všetky tieto podmienky vrátia TRUE, môžeme napísať, že e-mail spĺňa základné pravidlá:

if (obsahuje_zavinac & obsahuje_bodku & bez_medzery & dlzka_ok) {
  print("✅ E-mail spĺňa základné pravidlá.")
} else {
  print("❌ E-mail nespĺňa základné pravidlá.")
}

[1] "✅ E-mail spĺňa základné pravidlá."