Algoritmos y Programación en Pascal

102 Capítulo 6. Instrucciones estructuradas
pero genera un bucle infinito dando como resultado una sucesión infinita de
unos. 6
Como ejemplo de aplicación de la instrucción for podemos considerar, una
vez más, la suma de los primeros números naturales 1, 2, . . . , n.
var
n, i, suma: integer;
...
ReadLn(n);
suma:= 0;
for i:= 1 to n do
suma:=suma + i;
WriteLn(suma)
Otro ejemplo interesante es el siguiente, con el que se halla una tabulación
de la función seno para los valores 0 ◦ , 5 ◦ , . . . , 90 ◦ .
const
Pi = 3.1416;
var
r: real;
n: integer;
...
r:= 2 * Pi/360; {El factor r pasa de grados a radianes}
for n:= 0 to 18 do
WriteLn(Sin(5 * n * r))
Es conveniente recordar que la variable de control puede ser de cualquier
tipo ordinal; por ejemplo, la siguiente instrucción imprime, en una línea, los
caracteres desde la ’A’ a la ’Z’:
for car:= ’A’ to ’Z’ do
Write(car)
Como ejemplo de anidamiento de bucles for podemos considerar el siguiente
fragmento que escribe en la pantalla los elementos de la matriz de tamaño n × m
definida por aij =
i + j
2 :
const
N = 3;
M = 5;
6 En realidad, ése es el comportamiento en Turbo Pascal.