to ima za sad
1. zadatak
a1 = 2;
q = 2;
n = 1000;
While[q*a1 < n, a1 = q*a1; Print[a1]]
3. zadatak
n = 10;
x = Table[2*i, {i, 1, n}];
y = Table[2 + 2*i, {i, 1, n}];
Matrica[x_, y_, n_] := Module[{M},
M = Table[0, {i, 1, n}, {j, 1, n}];
For[i = 1, i <= n,
For[j = 1, j <= n,
M[[i, j]] = x[[i]]*E^y[[j]];
j++];
i++];
MatrixForm[M]];
Matrica[x, y, n]
Post je objavljen 27.01.2012. u 10:21 sati.