Informatica

Clc

Clear all

%-----------------------------------

%definicion de variables

%definir num, como double

%-----------------------------------

Num=input('ingrese el numero: ');

if(isnumeric(num))%validacion tipo

if(mod(num,1)==0 & (floor(num/1000000)==0))%validacion valor

n1 = floor(num/100000);

n2=mod(floor(num/10000),10);

n3=mod(floor(num/1000),10);

n4 =mod(floor(num/100),10);

n5 =mod(floor(num/10),10);

n6 =mod(num,10);

d1= ((((n1-n3)^2)+((n2-n4)^2)))^1/2)

d2= ((((n1-n5)^2)+((n2-n6)^2)))^1/2)

d3= ((((n3-n5)^2)+((n4-n6)^2)))^1/2)

if((d1>0) & (d2>0) & (d3>0))%validacion por valor

if(d3<d1) & (d3<d2)

disp(‘entre los puntos 2 y 3 es la menor distancia’)

elseif(d1<d2) & (d1<d3)

disp(‘entre los puntos 1 y 2 es la menor distancia’)

elseif(d2<d1) & (d2<d3)

disp(‘entre los puntos 1 y 3 es la menor distancia’)

elseif(d1=d2) & (d2=d3)

disp(‘las distancias son las mismas’)

elseif(d1=d2) & (d3<d1)

disp(‘entre los puntos 2 y 3 es la menor distancia’ )

elseif(d1=d3) & (d2<d3)

disp(‘entre los puntos 1 y 3 es la menor distancia’)

elseif(d2=d3) & (d1<d3)

disp(‘entre los puntos 1 y 3 es la menor distancia’)

else

disp.(‘error´)

end

else

disp(‘las distancias deben ser positivas’)

end

else

disp('Error, el valor debe ser de 6 digitos')

end

else

disp('Error, el valor debe ser numerico')

end

...