Word

Curso de Pascal. Tema 6: Bucles.
Vamos a ver cómo podemos crear bucles, es decir, partes del programa que se repitan un cierto número de veces.
Según cómo queramos que se controle ese bucle, tenemos tres posibilidades, que vamos a comentar en primer lugar:
for..to: La orden se repite desde que una variable tiene un valor inicial hasta que alcanza otro valor final (un cierto NÚMERO de veces).while..do: Repite una sentencia MIENTRAS que sea cierta la condición que indicamos (se verá en el apartado 6.5).
repeat..until: Repite un grupo de sentencias HASTA que se dé una condición (se verá en el apartado 6.6).

La diferencia entre estos dos últimos es que "while" comprueba la condición antes de repetir las demás sentencias, por lo que puede que estas sentencias ni siquiera se lleguen aejecutar, si la condición de entrada es falsa. En "repeat", la condición se comprueba al final, de modo que las sentencias intermedias se ejecutarán al menos una vez.
Vamos a verlos con más detalle...
El formato de "for" es
for variable := ValorInicial to ValorFinal do 
Sentencia;
Se podría traducir por algo como "desde que la variable valga ValorInicial hasta que valga ValorFinal" (y encada pasada, su valor aumentará en una unidad).
Como primer ejemplo, vamos a ver un pequeño programa que escriba los números del uno al diez: 
{--------------------------}
{ Ejemplo en Pascal: }
{ }
{ Primer ejemplo de }
{ "for": contador }
{ FOR1.PAS }
{ }
{ Este fuente procede de }
{ CUPAS,curso de Pascal }
{ por Nacho Cabanes }
{ }
{ Comprobado con: }
{ - Free Pascal 2.2.0w }
{ - Turbo Pascal 7.0 }
{ - Turbo Pascal 5.0 }
{ - Surpas 1.00 }
{--------------------------}
 
Program For1;
 
var
contador: integer;
 
begin
for contador := 1 to 10 do
writeln( contador );
end.
 Ejercicio propuesto: Crea un programa que muestre los números del 10 al 15, cada uno en una línea.
Ejercicio propuesto: Crea un programa que muestre los números del 5 al 20, todos ellos en la misma línea, separados por espacios en blanco.
Ejercicio propuesto: Crea un programa que escriba 10 veces "Hola" (en la misma línea).

Tema 6.2: "For" encadenados.
Los bucles "for" se pueden enlazar unodentro de otro, de modo que podríamos escribier las tablas de multiplicar del 1 al 5, dando 5 pasos, cada uno de los cuales incluye otros 10, así: 


{--------------------------}
{ Ejemplo en Pascal: }
{ }
{ Segundo ejemplo de }
{ "for": bucles enlaza- }
{ dos -> tabla de }
{ multiplicar }
{ FOR2.PAS }{ }
{ Este fuente procede de }
{ CUPAS, curso de Pascal }
{ por Nacho Cabanes }
{ }
{ Comprobado con: }
{ - Free Pascal 2.2.0w }
{ - Turbo Pascal 7.0 }
{ - Turbo Pascal 5.0 }
{ - Surpas 1.00 }
{--------------------------}
 
Program For2;
 
var
tabla, numero: integer;
 begin
for tabla := 1 to 5 do
for numero := 1 to 10 do
writeln( tabla, ' por ', numero ,' es ', tabla * numero );
end.
 
Ejercicio propuesto: Crea un programa que escriba tres veces seguidas los números del 1 al 3.
Ejercicio propuesto: Crea un programa que escriba 3 líneas, cada una de las cuales contendrá 4 veces la palabra "Hola".
 

Tema 6.3: "For" y sentenciascompuestas.
Hasta ahora hemos visto sólo casos en los que después de "for" había un única sentencia. ¿Qué ocurre si queremos repetir más de una orden? Basta encerrarlas entre "begin" y "end" para convertirlas en una sentencia compuesta, como hemos hecho hasta ahora.
Así, vamos a mejorar el ejemplo anterior haciendo que deje una línea en blanco entre tabla y tabla: 
{--------------------------}...