1. priklad
| (%i3) | kill(all); |
| (%i6) |
S(n):=block([i,j:0], if oddp(n) then for i:1 thru n step 2 do j:(j+i) else return("Zadane cislo neni liche"), return(j)); |
| (%i7) | S(7); |
| (%i8) | S(4); |
2. priklad
| (%i4) | kill(all); |
| (%i1) |
S(seznam):=block([j:0,i], for i thru length(seznam) do j:j+seznam[i], return(j/length(seznam))); |
| (%i2) | S([1,2,3]); |
3. priklad
| (%i3) | kill(all); |
| (%i1) | graf(f,x,a,b):=wxplot2d([f(x),diff(f(x),x)],[x,a,b]); |
| (%i2) | graf(sin,x,-%pi,%pi); |
