Aprende a codificar la estructura de repetición FOR en distintos lenguajes como C++, DELPHI, JAVA, y VISUAL BASIC con este curso de informática básica en el cual mediante ejemplos te ayudaremos a entender cómo hacerlo.

El uso de FOR es muy importante a la hora de hacer contadores porque es mucho más fácil que el uso de contadores en WHILE o DO WHILE ya que  esta estructura nació para crear contadores en el mundo de la programación.

Vamos a plantarnos dos ejemplos uno básico y sencillo en el cual usaremos el contadoR FOR y otro medio complejo. Los dos ejemplos lo escribiremos en los tres lenguajes C++, DELPHI y VISUAL BASIC.

Empezaremos haciendo un pequeño contador en la sentencia FOR y que nos muestre los números en un mensaje:

Empecemos con el lenguaje C++:

INT INICIO = 0, FIN = 10;
FOR(INT COUNTER = INICIO; COUNTER <= FIN; COUNTER ++){
       SHOWMESSAGE("NUMERO: " + INTTOSTR(COUNTER));
}

Ahora vamos a hacer lo mismo con el lenguaje DELPHI:

INICIO:= 0;
FIN:= 10;
FOR COUNTER:= INICIO TO FIN - 1 DO
BEGIN
  SHOWMESSAGE(' NUMERO ' + INTTOSTR(COUNTER));
END;
END;

Recordemos que en el código de DELPHI tienen que estar declarados las variables de la siguiente forma:

VAR
INICIO, FIN, COUNTER: INTEGER;

Ahora el mismo código en VISUAL BASIC:

DIM INICIO AS INTEGER

        DIM FIN AS INTEGER

        DIM COUNTER AS INTEGER

        INICIO = 0

        FIN = 10

        FOR COUNTER = INICIO TO FIN

            MSGBOX("NUMERO " + CSTR(COUNTER))

        NEXT

Bueno  ahora vamos a escribir otro ejemplo más complejo:

Encontrar el número 15 en una matriz de 10 por 10 elementos usando la sentencia FOR:

Empecemos con C++:

INT MATRIZ[10][10];
FOR(INT COL = 0; COL < 10; COL++){
       FOR(INT FILA = 0; FILA < 10; FILA++){
             IF(MATRIZ[FILA][COL]==15)
             SHOWMESSAGE("ENCOTRADO EN: FILA:"+INTTOSTR(FILA)+" COL:"+INTTOSTR(COL));
       }
}

Ahora hagamos el mismo ejercicio en DELPHI:

FOR COL := 0 TO 10 - 1 DO
BEGIN
  FOR FILA := 0 TO 10 - 1 DO
  BEGIN
      IF (MATRIZ[FILA,COL] < 15 ) THEN
         BEGIN
         SHOWMESSAGE('ENCOTRADO EN: FILA:'+INTTOSTR(FILA)+' COL:'+INTTOSTR(COL));
     END;
  END;
END;

Ahora hagamos lo mismo con el lenguaje VISUAL BASIC:

DIM MATRIZ(10, 10) AS INTEGER

        FOR COL = 0 TO 10

            FOR FILA = 0 TO 10

                IF MATRIZ(FILA, COL) = 15 THEN

                    MSGBOX("ENCONTRADO EN FILA:" + CSTR(FILA) + " COL:" + CSTR(COL))

                END IF

            NEXT

        NEXT

 

Bueno espero que te haya servido de mucho.

ýQuieres ser el primero en opinar sobre Aprender a usar la sentencia de For para codificar en diferentes lenguajes?