La estructura de repetición while le permite al desarrollador especificar que líneas de código se deben repetir mientras la condición de repetición sea verdadera, la utilidad que tiene while a la hora de programar es grande para desarrollar aplicaciones.

No es nuestro fin enseñar a usar while sino más bien como se implementa en distintos lenguajes, nosotros lo escribiremos el código en los lenguajes c++, delphi y visual basic para poder conocer las pequeñas diferencias que estos tienen a la hora de escribir la sentencia while, y así poder migrar de un lenguaje a otro con facilidad.

Primeramente vamos a hacer un código sencillo que sume 10 números. Para entender a primer vistazo cómo funciona el while en los distintos lenguajes:

Primeramente en c++:

Int x = 0, suma = 0;
while(x<=10){
        suma = suma + x;
        x = x + 1;
}
showmessage("total: "+inttostr(suma));

Ahora en delphi:

X:=0;
suma:=0;
while (x <= 10) do
begin
  suma:= suma + x;
  x:= x + 1;
end;
showmessage('total: '+inttostr (suma));
end;

Ahora vamos a mostrarlo en visual basic:

Dim x, suma as integer

        x = 0

        suma = 0

        while (x <= 10)

            suma = suma + x

            x = x + 1

        end while

        msgbox("total:" + cstr(suma))

Bueno con esa introducción ya podemos hacer un ejemplo más complejo que también lo mostraremos como se escribe en los diferentes lenguajes:

De un vector de 100 elementos sumar el total de números pares que tiene y el total de números impares que tiene usando la sentencia while.

Bueno entonces resolvamos ente problema primeramente en el lenguaje c++:

Int vectornumeros [100] = {0};
int pares=0, impares = 0, c = 0;
while (c<100) {
       if (vectornumeros [c] % 2 == 0)
          pares = pares + 1;
       else
          impares = impares + 1;
       c = c + 1;
}

Ahora vamos a ejemplificar el mismo ejemplo en el lenguaje delphi:

C:=0; impares:= 0; pares:=0;
while (c<100) do
begin
c:= c + 1;
if (vectornumeros[c] mod 2 = 0) then
     pares:= pares + 1;
 if (vectornumeros[c] mod 2 <> 0) then
    impares:= impares + 1;
end;

Ahora veamos el mismo ejemplo en el lenguaje visual basic:

Dim c, pares, impares as integer

        dim vectornumeros(100) as integer

        c = 0

        pares = 0

        impares = 0

        while c < 100 ' se comprueba el valor de counts.

            if (vectornumeros(c) mod 2 = 0) then

                pares = pares + 1

            else

                impares = impares + 1

            end if

        end while

Bueno con esos ejemplo pequeños ya tienes una idea de cómo se codifica while en distintos lenguajes.