Practicas scilab.

// Suma de terminos 1/2 + -1/4 + 1/6....

function [dResultado]=ej4(iCant)

dResultado = 0

signo = 1

for iX = 1:iCant

dResultado = dResultado+1/(iX*2)*signo

signo = signo*-1

end

endfunction

------------------------------------------------------------

// Suma de terminos 1+2+3+4+5+6...

function []=ej5(iNum)

iSuma = 0

for iX = 1:iNum

iSuma = iSuma + iX

end

disp(iSuma)

endfunction

-------------------------------------------------------------

// Suma de digitos pares en un numero dado

function [iSuma]=ej6()

iNum = input("Dame un numero")

iSuma = 0

while iNum > 0

iX = modulo(iNum,10)

if modulo(iX,2)==0 then

iSuma = iSuma + iX

end

iNum = int(iNum/10)

end

endfunction

------------------------------------------------------------

function [dSuma]=ej1(iNum)

dSuma=0

Signo=1

for iX=1:iNum

if(modulo(iX,2)== 0) then

iNumerador=Signo^2-Signo+1

iDenominador=2*Signo*(-1)

else

iNumerador=Signo^2-Signo+1

iDenominador=2*Signo

end

dResultado=iNumerador/iDenominador

dSuma=dSuma+dResultado

Signo=Signo+1

end

endfunction

-------------------------------------------------------------

function [iResultado]=fact(iNum)

iResultado = 1

for iZ = 1:iNum

iResultado = iResultado * iZ

end

endfunction

function []=Taylor()

iValorX = input("Asigna un valor a x")

iNum = input("Asigna un valor de n")

dSuma = 0

for iY=0:iNum-1

dSuma = dSuma + iValorX^iY / fact(iY)

end

printf("El resultado es %f",dSuma)

endfunction

----------------------------------------------

function []=Triangulo(iNum)

for iX = 1:iNum

for iY =1:iX

printf("*")

end

printf("\n")

end

endfunction

-----------------------------------------------

Actividad en parejas

function []=IncisoA()

iCuantasX = input("Cuantos valores de X vas a introducir? ")

iResultado = 0

for iX = 1: iCuantasX

iResultado = iResultado + input("teclea el valor de x ")

end

printf("El resultado de la sumatoria es %i",iResultado)

endfunction

...