function out=calka(a,b,N)

dx=(b-a)/N;

x=a;

S=0.0;

for i=1:N

S=S+dx+f(x);

x=x+dx;

endfor

out=S;

endfunction

N=input("N= ");

calka(0,1,N);

sinx

function out=mysin(x, eps)

S=0.0;

a=x;

n=0;

while (abs(a)>eps)

S=S+a;

n=n+1;

a=-a*(x^2)/(4*n^2+2*n);

endwhile

out=S;

endfunction

x=input('podaj x: ');

sin(x)

mysin(x, 0.00001)

najwieksza liczba:

function out=mymax(A)

n=size(A,1);

out=A(1);

for i=2:n

if (A(i)>out)

out=A(i);

endif

endfor

endfunction

najmniejsza dodatnia liczba

function out=mindod(A)

out=1.0e12;

n=size(A,1);

for i=1:n

if (A(i)>0) && (A(i)<out)

out=A(i);

endif

endfor

endfunction

sortowanie od najmniejszej do najwiekszej

function S=mysort(A)

S=A;

n=size(S,1);

for i=1:n-1

for j=1:n-1

if (S(j) > S(j+1))

a=S(j);

S(j)=S(j+1);

S(j+1)=a;

endif

endfor

endfor

endfunction

B=[-7;-2;4;5;6;9;-3;14;8;11];

BS=mysort(B);

disp(BS);

spr czy pierwsza

function out=czypierwsza(n)

out=1;

for i=2:n-1

a=n/i;

b=round(a);

if (a==b)

out=0;

endif

endfor

endfunction

m=input('podaj liczbe ');

czypierwsza(m)

sume i^2-i

function out=suma(n);
  if(n==1)
      out=0;
  else
      out=n*(n-1) + suma(n-1);
  endif
endfunction

a=input("podaj liczbe ");
suma(a)

E(1->n) sin(pi/4 - x)
function out=suma(x,n)
   if (n==0)
       out=0;
   else
       out=sin(pi/4-x) + suma(x, n-1);
   endif
endfunction

a=input("podaj liczbe x ");
b=input("podaj liczbe n ");
suma(b,a)

---