Intercambiar asignaciones en Turbo Pascal

 

Rutina para intercambiar el valor de las variables A=8; B=7

 

PROGRAM INTERCHA;

{*Interchange values between two asignations*}         

USES

        CRT;

VAR

       A,B,C,AUX:=INTEGER;

BEGIN

         CLRSCR;

         WRITELN(‘Primero asignamos A=8 Y B=7’);        

         WRITELN(‘Presione una tecla para continuar’);

         READKEY;

         WRITELN(‘Luego intercambiamos las asignaciones’);    

         WRITELN(‘Presione una tecla para continuar’);

         READKEY;

         AUX:=B;

         A:=8; 

         B:=7;

         C:=A-B; 

         AUX:=A;

         A:=B;

         B:=AUX;

         WRITELN(‘El valor de A es: A’);

         WRITELN(‘El valor de B es: B’);

         READKEY;

END.

 


Rutina para intercambiar valores dentro de un arrays

 

PROGRAM INTERCHB;
{*Interchange values between two asignations*}
USES
    CRT;
VAR
    VEC:ARRAY[1..3] OF INTEGER;
    I:INTEGER;
BEGIN
     CLRSCR;
     WRITELN(‘Primero asignamos A=8 y B=7’);
     VEC[1]:=8;
     VEC[2]:=7;
     WRITELN;
     FOR I:=1 TO 2 DO
         WRITE(VEC[I]:1, ‘ ‘);
     WRITELN;
     WRITELN;
     WRITELN(‘Presione una tecla para continuar’);
     READKEY;
     WRITELN;
     WRITELN(‘Luego intercambiamos las asignaciones’);
     WRITELN;
     VEC[3]:=VEC[1];
     VEC[1]:=VEC[2];
     VEC[2]:=VEC[3];
     WRITELN(‘Presione una tecla para continuar’);
     READKEY;
     WRITELN;
     WRITELN(‘:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:’);
     WRITELN;
     FOR I:=1 TO 2 DO
         WRITE(VEC[I]:1, ‘ ‘);
     READKEY;
END.

 


Ejemplo en Python 2.5

 

""" Interchange value between A and B"""

A = input ("Introduzca el valor de A: ")
B = input ("Introduzca el valor de B: ")
A=A+B
B=A-B
A=A-B
print "El valor de A es: ",A
print "El valor de B es: ",B

 

 Libros recomendados:

 


 

Pascal y Turbo Pascal, enfoque práctico – Joyanes Aguilar Luis

Editorial: Mc. Graw Hill (España)

ISBN:84-481-1895-2

Idioma: Castellano
Páginas: 752

Peso estimado: 500 gramos

 PASCAL_Y_TURBO_PASCAL

Comprar







Turbo Tagger


Add to Technorati Favorites

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 )

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 )

Google+ photo

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

Conectando a %s