Matlab

1) Escribir un programa que tome un numero entero al azar entre 0 y 9 pregunte un numero al usuario y le informe si acertó o no

x=input('numero=');
y=round(9*rand(1));
if x==ydisp('Acertaste');
else
disp('intenta de nuevo');
end

2) Escribir un programa que tome un número entero al azar entre el 0 y el 9, y le pregunte un numero al usuario hasta que acierte.x=round(9*rand(1));
while (1)
y=input('Ingresa un numero entre 0 y 9=');
if (y<10)&(y>=0)
if x==y
disp('Acertaste');
break;
else
clcdisp('Intenta nuevamente');
end
else
disp('Solo puede ingresar numeros entre 0 y 9');
end
end

3) Escribir un programa que simule un juego de dados (dos dados)
while(1)x=input('1=para tirar 2=para terminar el programa :');
clc
switch x
case 1
disp(['Dado1 ',num2str(ceil(6*rand(1)))]);
disp(['Dado2 ',num2str(ceil(6*rand(1)))]);case 2
break,
otherwise
disp('Teclea "1" o "2"');
end
end


4) Escribir un programa que encuentre los números pitagóricos del 0 y 100.

clc
x=0;m=0;
n=1;
while x<49
x=x+1;
m=m+1;
n=n+1;
a=n.^2-m.^2;
b=2.*n.*m;
c=n.^2+m.^2;
fprintf('(%0.f, %0.f, %0.f)\n',a,b,c)
end

5) Escribir una función quedevuelva el radio( distancia al origen), recibiendo como argumento las coordenadas cartesianas(x,)
function r =radio(x,y)
if nargin<=1
error('Se necesita dos valores (x,y) como argumento');elseif ~isnumeric([x,y])
error('No datos alfanumericos');
else
r=sqrt(x^2+y^2);
end

6) Escribir un programa que calcule las N primeras fracciones del tipo 1/i, tras pedir N al usuarion=input('Numero=');
x=0;
for i=1:n
x=x+1/i;
end
disp(x)

7) escribir un programa que calcule los cuadrados de los números enteros, hasta que el cuadrado sea mayor o igual que 100.
clc...