BotonMenu
BotonIndice

Visita : conoce3000.com
Paypal : https://www.paypal.com/donate/?hosted_button_id=XY8TZ3MGN64GE

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL


4. ESTRUCTURAS DE CONTROL.
4.6. ESTRUCTURA DE CONTROL FOR-TO-DO. (ASCENDENTE)
4. ESTRUCTURAS DE CONTROL.
4.6. ESTRUCTURA DE CONTROL FOR-TO-DO. (ASCENDENTE)
4. ESTRUCTURAS DE CONTROL.
4.6. ESTRUCTURA DE CONTROL FOR-TO-DO. (ASCENDENTE)

SIGUIENTE

SIGUIENTE

SIGUIENTE


‒ Estructura de control For-to-do. (Ascendente)

Cuando se conoce el número de veces que deberá ejecutarse un determinado bloque de instrucciones o una instrucción, la estructura de control repetitiva For-to-do es la forma más conveniente a usarse. La estructura For-to-do necesita de la declaración de una variable de control de tipo entero, enumerado o carácter, que nos permitirá controlar el número de repeticiones que realizará la estructura, pero los tipos de datos int64 y qword, no se pueden usar como variables de control en una estructura for-to-do. El siguiente ejemplo nos permite calcular la media de 5 números enteros ingresados por el usuario.


Descargar
{$codepage UTF8}

VAR i:byte;
    a,suma,media:single;

BEGIN
  suma:=0;
  Writeln('Ingrese 5 numeros para calcular su media :');
  for i:= 1 to 5 do
    Begin
      Write('[',i,'] ');readln(a);
      suma:=suma+a;
    End;
  media:=suma/5;
  Writeln('La media de los numeros ingresado es : ',media:10:3)
END.
Código fuente 19: Obtiene media de 5 números ingresados por teclado, usando for-to-do.
Descargar

En el ejemplo la variable i, es la variable de control de la estructura For-to-do, y se debe indicar el valor inicial y final en la estructura. En el ejemplo el valor inicial es 1 y el final es 5. A esta estructura también se le conoce como estructura de repetición ascendente, porque la variable de control se incrementa hasta alcanzar el valor final. Después del do de una estructura for-to-do no se debe colocar un punto y coma. A continuación se hará el mismo programa utilizado en las estructuras Repeat-Until y While-do, que nos permite mostrar el cuadrado y el cubo, desde el 1 hasta el numero entero n ingresado por el usuario; el programa del mismo modo pedirá al usuario si desea continuar con la ejecución del mismo.


Descargar
{$codepage UTF8}

USES math;

VAR rpta : char;
    n,i : integer;

BEGIN
 rpta:='S';
 Repeat
  Write('Ingrese n : ');readln(n);
  for i:=1 to n do
    Begin
      Writeln(i:3,i**2:10,i**3:10);
      i+=1
    End;
  Write('Desea continuar [S] Si, [N] No : ');
  Readln(rpta)
 Until (rpta<>'s') and (rpta<>'S')
END.
Código fuente 20: Uso de for-to-do anidado con While-do.
Descargar

Como puede observar la estructura While-do interior fue reemplazado por la estructura For-to-do. Algo muy importante, es que dentro de una estructura For-to-do no se debe modificar el valor de la variable de control. Es decir el compilador no permite modificar la variable de control dentro de un bucle For-to-do. El ejemplo que se escribe a continuación usa como variable de control a una variable de tipo carácter, no es un programa muy útil ya que sólo muestra el alfabeto ingles en mayúsculas de la A a la Z, pero sirve para mostrar como utilizar una variable de control de tipo carácter.


Descargar
{$codepage UTF8}

VAR a : char;

BEGIN
  for a:='A' to 'Z' do Writeln(a)
END.
Código fuente 21: Uso de for-to-do con caracteres.
Descargar

A continuación otro programa que sirve sólo para mostrarnos como usar una variable de control de tipo enumerado.


Descargar
{$codepage UTF8}

TYPE TDias=(Lunes,Martes,Miercoles,Jueves,Viernes,Sabado,Domingo);

VAR a:TDias;

BEGIN
 for a:= Lunes to Viernes do Writeln(Ord(a))
END.
Código fuente 22: Uso de for-to-do con tipos de datos enumerados.
Descargar

Los bucles for-to-do también se pueden encadenar, se debe tener en cuenta que si el el bucle tiene un bloque de instrucciones, este debe estar entre las palabras reservadas Begin y End. El siguiente programa hace uso de un bucle for-to-do encadenado para saber de cuantas maneras pueden caer 2 dados, numerados del 1 al 6:


Descargar
{$codepage UTF8}

VAR Dado01,Dado02:byte;

BEGIN
 for Dado01:= 1 to 6 do 
   for Dado02:= 1 to 6 do
     Writeln(Dado01,',',Dado02) 
END.
Código fuente 23: Uso de for-to-do encadenado.
Descargar

En este ejemplo no se usan bloques de instrucciones, por lo que no se hace necesario el uso de las palabras reservadas Begin y End.


Última revisión: 11/12/2013.



SIGUIENTE
SIGUIENTE
SIGUIENTE


 
‒ Comentarios y sugerencias.

Agradezco de antemano, todo comentario, sugerencia, y donativo a través de , que ayude a mejorar los contenidos educativos de Conoce 3000. Además, cualquier pregunta o duda que tengas lo puedes hacer por este medio. Pero, todo contenido que pueda resultar ofensivo, malicioso, racista, sexista, discriminatorio, obsceno, vulgar será eliminado. Para clases particulares contactame por whatsapp al 📲 (+51) 999 264 073








PORTADA |  INTERESANTE |  APUNTES |  LIBROS |  GALERIA


Creative Commons License


Todos los textos, imágenes y videos de Conoce3000 estan colocados bajo una licencia : Creative Commons Reconocimiento-NoComercial 3.0 Unported License.