Algoritmos de programación

Informática. Integral normal. Ingeniería mecánica. Matriz cuiadrática. Nombre inverso. Tabla numérica. Maltab 53

  • Enviado por: Giovanni
  • Idioma: castellano
  • País: México México
  • 4 páginas
publicidad

ALGUNOS EJERCICIOS HECHOS EN CLASE DE LA MATERIA ALGORITMOS DE PROGRAMACION: EN MATLAB

EJER:1

%Programa para resolver una integral normal

%Ingenieria mecanica

%26/11/2010

clc;

clear;

syms x;

q=input('introduce la intgral:\n');

for s=1

integ=int(q);

fprintf('la integral es:\n',s);

x=simplify(integ)

pretty(x)

end

EJER 2

%PROGRAMA INTEGRAL POR PARTES.

%INGENIERIA MECANICA

%26/11/2010

clc;

clear all;

syms x;

u=input('\n Introduce el valor de u de la integral:');

dv=input('\n Introduce el valor de dv de la integral:');

du=diff(u);

v=int(dv);

fp=u*v-int(v*du);

fprintf('El valor de la integral es:\n');

sp=simplify(fp);

pretty(sp)

EJER 3

%programa que hace unos en una matriz cuadratica

%

%ingenieria mecanica

%26/11/2010

Mat=input('Introduce la matriz:\n');

disp(Mat);

[n,m]=size(Mat);

if n=m

p=m;

for p=1:n

Mat(p,p)=1:

end

disp(Mat);

else

disp('la matriz no es cuadratica');

EJER 4

clc;

clear;

fprintf('\n obciones que puede elegir\n');

fprintf('\n 1. suma');

fprintf('\n 2. resta');

fprintf('\n 3. multiplicacion');

fprintf('\n 4. exponencial');

opcion=input('\n Introduce el numero de la operacion que quieres realizar:\n');

switch opcion

case 1,

fprintf('\n Suma de matrices\n');

fprintf('\n el valores de la matriz A');

x=input('\n tamaño de la fila(s) a:\n ');

y=input('\n tamaño de la columna(s) a:\n ');

for q=1:x

for r=1:y

if r==1

fprintf('\nfila: %d',q);

end

fprintf('\nColumna %d',r);

S(q,r)=input(':');

a=[x;y];

end

end

disp(S);

fprintf('\n el valor de la matriz b es \n');

X=input('\n tamaño de la fila(s) b:\n ');

Y=input('tamaño de la columna(s) b:\n ');

for Q=1:X

for R=1:Y

if R==1

fprintf('\nfila: %d',Q);

end

fprintf('\nColumna %d',R);

s(Q,R)=input(':');

A=[X;Y];

end

EJER 5

%programa para escribir el nombre inverso

%26/11/2010

clc;

clear;

nombre=input('Deme el nombre:\n ');

[a1,a2]=size(nombre);

for p=1:a2

fprintf('%v',nombre(1,p));

end

fprintf('Y al reves es:\n');

for p=a2:-1:1

fprintf('%v',nombre (1,p));

fprintf('n');

end

EJER 6

%Programa para calcular la tabla de un numero hasta 10.

%INGENIERIA MECANICA

%12-11-2010

clc;

clear;

num=input('escribe el valor de num:\n');

for x=num

for y=1:10

fprintf('%d X %d =%d\n',x,y,x*y)

end

fprintf('\n');

end