%% prog19While

clearvars
close all; 
clc;

%este programa calcula el factorial de un numero 
%usando for y while y los compara

%% factorial con for
N1 = input('N1 = ');

facto1 = 1;
for n1 = 1:N1
    facto1 = facto1*n1;
end

fprintf('facto1 = %f\n',facto1);

%% factorial con while tipo A
N2 = input('N2 = ');

facto2 = 1; %inicializamos el factorial
cont2 = 1;  %inicializamos el contador

while cont2 <= N2
    facto2 = facto2*cont2;
    cont2 = cont2 + 1;
end;

fprintf('facto2 = %f\n',facto2);

%% factorial con while tipo B
N3 = input('N3 = ');

facto3 = 1;	%inicializamos factorial
cont3 = 1;  %inicializamos contador

while cont3 < N3
    cont3 = cont3 + 1;
    facto3 = facto3*cont3;
end;

fprintf('facto3 = %f\n',facto3);

%% niņos no hagan esto en casa
% algo = 1;
% num = 10;
% while algo < num
%     algo = algo - 1;
%     fprintf('algo = %d\n',algo);
% end;

algo = 1;
cont = 1;
while algo ~= -1
    algo = algo/cont;
    fprintf('algo = %d\n',algo);
    cont = cont + 1;
end;