Mover asignaciones en Turbo Pascal

PROGRAM MOVER;
{*MOVE ASIGNATIONS*}
USES
        CRT;
VAR
       UNO,DOS,TRES,CUATRO,CINCO,AUX:INTEGER;
BEGIN
         CLRSCR;
         UNO:=100;
         DOS:=UNO+UNO;
         TRES:=DOS+UNO;
         CUATRO:=TRES+UNO;
         CINCO:=CUATRO+UNO;
         WRITELN(‘UNO= ‘, UNO:3 , ‘ DOS= ‘, DOS:3 , ‘ TRES= ‘, TRES:3 , ‘ CUATRO= ‘, CUATRO:3 , ‘ CINCO= ‘, CINCO:3 );
         WRITELN;
         WRITELN(‘Si desplazamos los valores un lugar….’);
         READKEY;
         AUX:=UNO;
         UNO:=DOS;
         DOS:=TRES;
         TRES:=CUATRO;
         CUATRO:=CINCO;
         CINCO:=AUX;
         WRITELN;
         WRITELN(‘—————————————————————————–‘);
         WRITELN;
         WRITELN(‘UNO= ‘, UNO:3 , ‘ DOS= ‘, DOS:3 , ‘ TRES= ‘, TRES:3 , ‘ CUATRO= ‘, CUATRO:3 , ‘ CINCO= ‘, CINCO:3 );
         READKEY;
END.

Tags:


Add to Technorati Favorites

Anuncios
Esta entrada fue publicada en Turbo Pascal. Guarda el enlace permanente.

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s