Laboratorio de Programación: funciones
Enviado por karenybarco • 22 de Noviembre de 2015 • Informe • 1.132 Palabras (5 Páginas) • 164 Visitas
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
...