Matlab - Empleados

clear

%IMPLICIT NONE 

%REAL :: ing_total, ing_neto, impuesto

taza_impuesto=0.25; %REAL :: taza_impuesto = 0.25

%INTEGER :: limite_personal

%CHARACTER*60 :: nombre

limite_personal=0.6;

nombre=input('Ingrese nombre :','s');  %PRINT *, 'Ingrese nombre'     %READ *, nombre

ing_total=input('Ingrese total:'); %PRINT*, 'Ingrese Total'  %READ*, ing_total

impuesto = (ing_total - limite_personal) * taza_impuesto

ing_neto = ing_total - impuesto

disp(['Empleado:', nombre]) %PRINT *, 'Empleado: ', nombre

disp(['Gross Pay :',  num2str(ing_total)])    %PRINT *, 'Gross Pay ', ing_total

disp(['Impuestos :', num2str( impuesto)])   %PRINT *, 'Impuestos: ', impuesto

disp(['Net Pay:', num2str( ing_neto)])   %PRINT *, 'Net Pay ', ing_neto

%end program

clear

%IMPLICIT NONE 

%REAL :: ing_total, ing_neto, impuesto

taza_impuesto=0.25; %REAL :: taza_impuesto = 0.25

%INTEGER :: limite_personal

%CHARACTER*60 :: nombre

limite_personal=0.6;

N=input('ingrese el número de empleados');

nombre=repmat({{}},1,N);

ing_total=repmat({{}},1,N);

impuesto=repmat({{}},1,N);

ing_neto=repmat({{}},1,N);

for k=1:N

nombre{k}=input('Ingrese nombre :','s'); %PRINT *, 'Ingrese nombre' %READ *, nombre

ing_total{k}=input('Ingrese total:'); %PRINT*, 'Ingrese Total' %READ*, ing_total

impuesto{k} = (ing_total{k} - limite_personal) * taza_impuesto;

ing_neto{k} = ing_total{k} - impuesto{k};

end

for k=1:N

disp(['Empleado:', nombre{k}]) %PRINT *, 'Empleado: ', nombre

disp(['Gross Pay :', num2str(ing_total{k})]) %PRINT *, 'Gross Pay ', ing_total

disp(['Impuestos :', num2str( impuesto{k})]) %PRINT *, 'Impuestos: ', impuesto

disp(['Net Pay:', num2str( ing_neto{k})]) %PRINT *, 'Net Pay ', ing_neto

end

%end program