IF.. THEN… ELSE en Turbo Pascal

Entorno: Windows XP SP3
Turbo Pascal for Windows 1.5

Uso del IF anidado

USES
WINCRT;
VAR
PASADA,MENORES,NUM1,NUM2:INTEGER;
BEGIN
{PROGRAM TO READ 10 PAIRS OF NUMBERS, PRINT THE MAYOR AND ACUMULATE THE MINOR}
PASADA:=0;
REPEAT
      PASADA:=PASADA+1;
      WRITE (‘Ingrese el valor de un nùmero: ‘);
      READLN(NUM1);
      WRITE (‘Ingrese elvalor de otro número: ‘);
      READLN(NUM2);
      WRITELN;
                   IF NUM1=NUM2 THEN
                   WRITELN (‘Los valores ingresados son iguales.’)
                   ELSE
                       IF NUM1>NUM2 THEN
                       BEGIN
                            WRITELN(‘El valor mayor es: ‘, NUM1);
                            MENORES:=MENORES+NUM2;
                       END
                       ELSE
                       BEGIN
                            WRITELN(‘El valor mayor es: ‘, NUM2);
                            MENORES:=MENORES+NUM1;
                       END;
      READKEY;
      CLRSCR;
UNTIL PASADA=10;
WRITELN(‘La suma acumulativa de menores es igual a: ‘,MENORES)
END.


Uso
del IF


USES
WINCRT;
VAR
PASADA,MENORES,NUM1,NUM2:INTEGER;
BEGIN
{PROGRAM TO READ 10 PAIRS OF NUMBERS, PRINT THE MAYOR AND ACUMULATE THE MINOR}
PASADA:=0;
REPEAT
      PASADA:=PASADA+1;
      WRITE (‘Ingrese el valor de un nùmero: ‘);
      READLN(NUM1);
      WRITE (‘Ingrese elvalor de otro número: ‘);
      READLN(NUM2);
      WRITELN;
                   IF NUM1=NUM2 THEN
                   WRITELN (‘Los valores ingresados son iguales.’);
                   IF NUM1>NUM2 THEN
                       BEGIN
                            WRITELN(‘El valor mayor es: ‘, NUM1);
                            MENORES:=MENORES+NUM2;
                       END;
                   IF NUM1<NUM2 THEN
                       BEGIN
                            WRITELN(‘El valor mayor es: ‘, NUM2);
                            MENORES:=MENORES+NUM1;
                       END;
      READKEY;
      CLRSCR;
UNTIL PASADA=10;
WRITELN(‘La suma acumulativa de menores es igual a: ‘,MENORES)
END.

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 )

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