برنامه تبديل مبنا از 10 به ساير مبناها به صورت function
function Sum=decto(a,b)
I=1;Sum=0;A=a;
if nargin<2
b=2;
end
while a>0
q(I)=mod(a,b);
a=floor(a/b);
I=I+1;
end
for i=1:length(q)
Sum=q(i)*10^(i-1)+Sum;
end
fprintf('%.0f dar mabnaye 10 = %0.f dar mabnaye %g\n',A,Sum,b)