Laboratorio de Programación: funciones

Laboratorio #12 Programación                     Ivan Ramsés Barco Dela Cruz

Programa 1:

clc;

%Programa #1

r=1;

while r==1

     a=input('Dame el valor de a= ');

     b=input('Dame el valor de b= ');

     w=Euclides(a,b);

     sprintf('El valor de w es= %f', w)

     r=input('Dame el valor de r= ');

end

Subprogramas (funciones)

function w=Euclides(a,b)

if a==b

    w=b;

    sprintf('El valor de w es= %f', w)

else

    s=mod(a,b);

    while s~=0

        c=s;

        s=mod(b,s);

        b=c;

    end

    w=c;

    sprintf('El valor de w es= %f', w)

end

end

Dame el valor de a= 4567

Dame el valor de b= 431

ans = El valor de w es= 1.000000

ans = El valor de w es= 1.000000

Dame el valor de r= 1

Dame el valor de a= 9876

Dame el valor de b= 532

ans = El valor de w es= 4.000000

ans = El valor de w es= 4.000000

Dame el valor de r= 1

Dame el valor de a= 2366

Dame el valor de b= 273

ans = El valor de w es= 91.000000

ans = El valor de w es= 91.000000

Dame el valor de r= 0

Programa 2:

clc;

%Programa #2

r=1;

while r==1

     s=0;

     y=input('Dame el valor de y= ');

     n=input('Dame el valor de n= ');

     for i=1:1:n

         x=i;

         for j=1:1:n

             s=s+((fact(x))/((y^i)*(sqrt(2^j))));

         end

     end

     sprintf('El resultado dela suma sera= %f', s)

     r=input('Dame el valorde r= ');

end

Subprogramas (funciones)

function f=fact(x)

f=1;

for i=1:1:x

    f=f*i;

end

end

Dame el valor de y= 1

Dame el valor de n= 2

ans = El resultado dela suma sera= 3.621320

Dame el valorde r= 1

Dame el valor de y= 3

Dame el valor de n= 2

ans = El resultado dela suma sera= 0.670615

Dame el valorde r= 0

Programa 3:

clc;

%Programa #3

i=0;

c=0;

r=1;

while r==1

     x=input('Dame x= ');

     x=(pi*x)/180;

     c=c+1;

     i=i+1;

     j=1;

     a(i,1)=x;

     a(i,2)=sin(x);

     a(i,3)=cos(x);

     a(i,4)=tan(x);

     a(i,5)=cot(x);

     a(i,6)=csc(x);

     a(i,7)=sec(x);

     r=input('Dame el valor de r= ');

end

for i=1:1:c

    for j=1:1:7

    end

end

disp('    x     sin(x)      cos(x)       tan(x)       cot(x)       csc(x)       sec(x)')

[a]

Dame x= 20

Dame el valor de r= 1

Dame x= 40

Dame el valor de r= 1

Dame x= 50

Dame el valor de r= 1

...