crono.m

%Cronometro.
clc
clear
resp='s';
while (resp=='s')

clc
clear
a=input('Ingrese horas\n\n');
disp(' ')
b=input('Ingrese minutos\n\n');
disp(' ')
c=input('Ingrese segundos\n\n');
disp(' ')

d=a*3600+b*60+c;
if d==0
    Matriz=[0 0 0]
end

for i=1:d
    seg=i;   
    
   if (d<60)
        h=0;
        m=0;
        s=seg;
        sum=0;
        
               while(sum<25000000)
                     j=1:1000000;   
                     sum=sum+j;
                     j=j+1;
               end
    
    Matriz=[h m s]
    
   elseif d>=3600
          s=seg;
           
        if s<3600
           h=0;
           m=floor(s/60);
           s=seg-m*60;
        else 
            h=floor(seg/3600);
            m=floor((seg-h*3600)/60);
            s=seg-m*60-h*3600;
        end
         
                sum=0;
                while(sum<25000000)
                      j=1:1000000;   
                      sum=sum + j;
                      j=j+1;
                end
                
    Matriz=[h m s]
       
   else
        h=0;
        s=seg;
        if s>=60
           m=floor(s/60);
           s=seg-m*60;
        else
            s=seg;
            m=0;
        end       
                sum=0;
            while(sum<25000000)
                      j=1:1000000;   
                      sum=sum + j;
                      j=j+1;
            end       
            
    Matriz=[h m s]
   
   end
    
end

resp=input('Desea un nuevo contabilizador?(s/n)\n\n','s');
disp(' ')
if resp=='n'
   disp('Usted ha salido de esta programacin')
   disp('Para continuar digite: "crono"')   
end

end