1. vježbe

Primjer 1

Zadatak

Napišite program koji će, koristeći naredbu Input, učitati broj x i vratiti x^3+x^2+1. Program ćemo nazvati pol.

Rješenje

pol := Module[{x, rez},
x = Input["Molim upišite broj:"];
rez = x ^3+x^2+1;
Return[rez];
];

Izvođenje programa

pol

Primjer 2

Zadatak

Napišite program koji će imati tri argumenta  a, b, c koji znače koeficijente kvadratne jednadžbe a (x^2)+b x + c = 0. Program treba "vratiti" listu rješenja. 
Sjetite se da naredba Solve vraća listu pravila za supstituciju Npr.
        Solve[x^2-3 x + 2==0, x] 
vraća kao rezultat 
      {{x->1},{x->2}}
Program treba vratiti listu {1, 2}.

Rješenje

kvadratna[a_, b_, c_] := Module[{rj, x1, x2}, 
rj = Solve[a*x^2 + b*x +c==0,x];
x1 =x /. rj[[1]];
x2 =x /. rj[[2]];
Return[{x1, x2}];
];

Testiranje

kvadratna[1, -5, 6]

kvadratna[1, 3, 1]

Primjer za vježbu

Zadatak

Napišite program koji će Vas, naredbom InputString pitati za Vaše ime i vratiti broj znakova u imenu. Za računanje broja znakova u tekstu koristite funkciju StringLength.

Rješenje

brZnakova := Module[{ime, duljina},
ime = InputString["Molim upišite svoje ime:"];
duljina= StringLength[ime];
Return[duljina];
];

brZnakova