%% prog 20230510 while

clearvars;
clear all;
close all;
clc;

%% ejemplo 1
disp(' ');
disp('ejemplo 01');
disp(' ');
n = 1;
N = 10;
while n <= N
      fprintf('n = %d\n',n);
      n = n + 1;
end;

%% ejemplo 2
disp(' ');
disp('ejemplo 02');
disp(' ');
k = 1;
K = 10;
while k <= K
      k = k + 1;
      fprintf('k = %d\n',k);
end;

%% ejemplo 3
disp(' ');
disp('ejemplo 03');
disp(' ');
m = 0;
M = 10;
while m < M
      m = m + 1;
      fprintf('m = %d\n',m);
end;

%% ejemplo 4 ciclo que se repite infinitamente
%disp(' ');
%disp('ejemplo 04');
%disp(' ');
%x = 1;
%X = 10;
%while x < X
%      x = x/(x + 1);
%      fprintf('x = %e\n',x);
%end;

%% ejemplo 5
disp(' ');
disp('ejemplo 05');
disp(' ');
x = 1;
X = 10;
cont = 1
while (x < X) && (x >= 1e-3) && (cont <= 100)
      x = x/(x + 1);
      fprintf('x = %e\n',x);
      cont = cont + 1;
end;