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.

¿Quieres ser el primero en opinar sobre While en distintos lenguajes. Informática?