Turbo pascal

5)For

For <vc>:=<vi> DownTo <vf> Do
     <sentencia>;

Donde <vc> es una variable contadora de tipo entero, <vi> es un valor inicial para dicha variable y <vf> es un valor final. El valor inicial se asigna a a la variable contadora, que después se incrementa en uno (si se usa To) o se decrementa en uno (si se usa DownTo) cada vez que se corre el bloque. Si se usa To, esto se repite hasta que el valor de la variable contadora exceda el valor final. Si se usa el DownTo (segunda forma), esto se repite hasta que el valor de la variable contadora sea menor que el valor final. En general, el bloque se repite (<vf> - <vi> + 1) veces.

De la observación de la manera en que la variable contadora es manipulada según se use la opción To o DownTo, se desprende la siguiente regla: En caso de usar To, el valor inicial debe ser menor que el valor final; en caso de usar DownTo, el valor inicial debe ser mayor que el valor final. Si no se cumple con esto, el bloque del For no correrá jamás.

Si hay que colocar mas de una sentencia en For, se deben de colocar entre un Begin y un End;.

Veamos el siguiente ejemplo:

For i := 1 To 5 Do
     Writeln (i);

Este fragmento imprime los números desde el 1 hasta el 5.

Otro ejemplo:

Program Area;
Uses
     CRT;
Var
     area,B,H:real;
     i,num:integer;

Begin
     CLRSCR;
     Writeln ('¿Cuantas areas desea calcular?');
     Readln (num);
     For i:=1 To num Do
          Begin
               Writeln ('Triangulo #: ',i);
               Writeln ('Ingrese base: ');
               Readln (B);
               Write ('Ingrese altura: ');
               Readln (H);
               area:=(B*H)/2;
               Writeln ('El Area es: ',area:8:4);
          End;
     Readln;
End.

Otro ejemplo:

Program Sumar;
Uses
     CRT;
Var
     N,num,cont,suma:integer;

Begin
     CLRSCR;
     Writeln ('¿Cuantas números desea ingresar?');
     Readln (N);
     suma:=0;
     For cont:=1 To N Do
          Begin
               Write ('Ingrese numero: ')
               Readln (num);
               suma:=suma+num;
          End;
     Writeln ('La suma total es: ',suma);
     Readln;
End.

Otro ejemplo:

Program For;
Uses
     CRT;
Var
     letra:char;

Begin
     CLRSCR;
     For letra:='a' To 'z' Do  
          Writeln (letra);
     Readln;
End.

Descargar gratis los programas y compiladores necesarios para aprender a programar

  ¿Buscas algo?

Regresar al índice de turbo pascal

Regresar a la página principal