68. Määrittel funktio f[x], joka saa arvon 1, kun x<=0 ja arvon 0, kun x>0. Piirrä funktion kuvaaja.

Clear[f]
f[x_] := 1 /; x ≤ 0
f[x_] := 0 /; x > 0

Plot[f[x], {x, -4, 4}]

71. Kirjoita Mathematica ohjelma, joka laskee n ensimmäistä Fibonaccin lukua. Fibonaccin luvut saadaan rekursiokaavalla
(Subscript[x, i])=(Subscript[x, i - 1])+(Subscript[x, i - 2])
(Subscript[x, 0])=0
(Subscript[x, 1])=1,
eli jokainen luku on kahden edeltäjänsä summa. Lukumäärä n kysytään käyttäjältä. Lukujen tulostukseen voit käyttää Print-komentoa.

n = Input["Anna luku!"];
x0 = 0
x1 = 1
For[i = 1, i ≤ n - 2, i++, x2 = x1 + x0; Print[x2]; 
      x0 = x1; x1 = x2]