BotonMenu
BotonIndice

Visita : http://www.conoce3000.com
Paypal : https://www.paypal.me/conoce3000/1

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL

PASCAL CON FREE PASCAL


4. ESTRUCTURAS DE CONTROL.
4.7. ESTRUCTURA DE CONTROL FOR-DOWNTO-DO. (ASCENDENTE)
4. ESTRUCTURAS DE CONTROL.
4.7. ESTRUCTURA DE CONTROL FOR-DOWNTO-DO. (ASCENDENTE)
4. ESTRUCTURAS DE CONTROL.
4.7. ESTRUCTURA DE CONTROL FOR-DOWNTO-DO. (ASCENDENTE)

SIGUIENTE

SIGUIENTE

SIGUIENTE


‒ Estructura de control For-downto-do. (Descendente)

Esta estructura es otra estructura de repetición, que al igual que la estructura For-to-do, usa una variable de control, y las palabras reservadas For, downto, do. La diferencia con la estructura For-to-do, es que esta estructura es descendente, es decir el valor inicial es menor al valor final, haciendo que la variable de control se disminuya hasta alcanzar el valor de la variable final. Con esta estructura también se pueden usar variables de tipo entero, carácter y enumerado, con la variable de control, pero al igual que la estructura for-to-do no se pueden usar los tipos de datos int64 y qword como variable de control. 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; pero con la diferencia que ahora se mostrará desde el número entero n ingresado por el usuario hasta 1; 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:=n downto 1 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 24: Uso de for-downto-do.
Descargar

Al igual que la estructura de repetición For-to-do, la estructura de repetición For-Downto-Do también se puede encadenar.




SIGUIENTE
SIGUIENTE
SIGUIENTE



 
‒ Comentarios y sugerencias.

Agradezco de antemano, todo comentario, sugerencia, y donativo (a través de Paypal me), 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.


Comments System WIDGET PACK






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.