InfoMC 1.pótpótZH

2017.12.15

1. Feladat

4 pont

Számítsuk ki az alábbi kifejezéseket Mathematica-val!

a)

(((3^10)+(3^11))/((3^12)-(3^10)))+((((1/49)))^((Subscript[log, (Sqrt[7])])(2)))

b)

c)

Egyszerűsítsük a fentit!

d)

(∫_(-∞)^∞)(e^(-(x^2)))dx

2. Feladat

2 pont

a)

Zárójelezzük a kifejezést úgy, hogy értelmes legyen.

1/(1,2,3,4} [ 1,2

b)

Hány mélységű az alábbi kifejezés?

1+(1/(1+(1/(1+1))))

3. Feladat

5 pont

Írjunk olyan függvényt, aminek egy változója és ha az egy pozitív egész szám, akkor adja vissza az annyi faktoriálist, ha nem akkor False-t adjon vissza. Vagy ha egy lista, akkor hívja meg önmagát a lista elemekre és az eredmények listáját adja vissza.

Például
F[{3,{3.1,-3}}] ⟶ {6,{False,False}}

4. Feladat

2 pont

Egyetlen cellába írjunk olyan parancsokat, melyeknek hatására:

x és y változóknak kitöröljük az értékét (ha volt)

n változónak (pozitív egész) értéket adunk

kiszámoljuk (((x+y))^n)-t

kitöröljük n értékét

5. Feladat

2 pont

Befolyásolja-e az x változó értéke az alábbi kifejezések értékét (igen/nem)?

f[x_]:=(x^n)

Table[f[x],{x,1,x,1}]

If[y>0,x,y]

D[f[x],x]

6. Feladat

5 pont

Készítsünk ilyen ábrát Plot segítségével!

7. Feladat

5 pont

Írjunk olyan függvényt, ami párok listáját kapja, mindegyik listaelem egy sztringből és egy nem-negatív egész számból áll pár. Ehhez rendelje hozzá azt a sztringet, ami mindegyik sztringből annyit tartalmaz, amennyi a hozzá tartozó szám, sorrendben.

Például
S[{{“a”,1}, {“b”, 2}}] ⟶ “abb”