Visual Basic

CAPÍTULO 3. ESTRUCTURAS CONDICIONALES.
Las estructuras condicionales comparan una variable contra otro(s) valor(es), para que en base al resultado de esta comparación, se siga un curso de acción dentro del programa. Cabe mencionar que la comparación se puede hacer contra otra variable o contra una constante, según se necesite. ESTRUCTURA CONDICIONAL SIMPLE La sentencia de control simple enlenguaje PASCAL, tiene la siguiente sintaxis en forma general:
IF (condición) THEN Begin instrucción1; instrucción2; End;
….

Si se va a ejecutar una sola instrucción, se puede omitir las instrucciones BEGIN y END. El programa ejecuta las instrucciones en el caso de que la condición evaluada sea cierta, en caso contrario el programa ejecuta la línea siguiente a la instrucción END; por ejemplo:Dados dos números, realizar la operación aritmética según los símbolos +, -, *, /.

PROGRAM operaciones; USES Crt; VAR ‘Variables de Entrada op1,op2:real; operador: char; ‘Variables de Salida res:real; BEGIN clrscr; ‘Entrada de Datos Write('introduzca operando1:'); Readln(op1);

END.

Write('operador:'); Readln(operador); Write('introduzca operando2:'); Readln(op2); ‘Proceso IF (operador='+')THEN res:=op1+op2; IF (operador='-') THEN res:= op1-op2; IF (operador='*') THEN res:=op1*op2; IF (operador='/') THEN res:=op1/op2; ‘Salida de Datos Write('resultado=',res:0:2);

Determine el mayor de tres números.
PROGRAM mayor; USES Crt; VAR ‘Variables de Entrada N1,N2,N3: integer; ‘Variables de Salida NMayor: integer; BEGIN Clrscr; ‘Entrada de Datos Write ('Ingrese primer número: '); Readln(N1); Write ('Ingrese segundo número: '); Readln (N2); Write ('Ingrese tercer número: '); Readln (N3); ‘Proceso IF (N1>=N2) And (N1>=N3) THEN NMayor:=N1; IF (N2>=N1) And (N2>=N3) THEN NMayor:=N2; IF (N3>=N1) And (N3>=N2) THEN NMayor:=N3; ‘Salida de Datos Writeln ('El número mayor es: ',NMayor); END.

ESTRUCTURA CONDICIONAL DOBLE. El programa ejecuta las instrucciones verdaderas en el caso de quela condición evaluada sea cierta, en caso contrario el programa ejecuta las instrucciones falsas que se encuentran después de la línea ELSE.
IF (condición) THEN Begin instrucción_verdadera_1; instrucción_verdadera_2; ... instrucción_verdadera_n; End ELSE Begin instrucción_falsa_1; instrucción_falsa_2; ... instrucción_falsa_n; End;

Observe que la instrucción que está antes de la instrucciónELSE no lleva punto y coma “;”. Además se recuerda que si se va a ejecutar una sola instrucción, se puede omitir las instrucciones BEGIN y END tanto para las instrucciones verdaderas como para las falsas. Ejemplo de estructura selectiva doble. Escribir un programa en Pascal que muestre un mensaje afirmativo si el número introducido es múltiplo de 5.

PROGRAM multiplo5; USES Crt; VAR ‘Variables deEntrada num:Integer; BEGIN Clrscr; ‘Entrada de Datos write('Introduzca un número : '); Readln(num); ‘Salida de Datos

END.

IF (num mod 5 = 0) THEN Write('El número introducido es múltiplo de 5') ELSE Write('El número introducido no es múltiplo de 5'); Readkey;

ESTRUCTURA CONDICIONAL MÚLTIPLE. En este tipo de estructura se realizan múltiples comparaciones, al final de la estructura se puedecolocar un único caso contrario, el cual se ejecutaría en el caso de que las demás condiciones no se hayan cumplido.
IF (condición) THEN Begin instrucción_1; instrucción_2; ... instrucción_verdadera_n; End ELSE IF (condición) THEN Begin Instrucción_1; instrucción_2; ... instrucción_n; End … ELSE Begin

End;

instrucción_falsa_1; instrucción_falsa_2; ... instrucción_falsa_n;

Ejemplo deestructura condicional múltiple. Escribir un programa en Pascal que detecte si un número introducido desde el teclado es positivo o negativo.

PROGRAM EJER4;

VAR BEGIN

‘Variables de Entrada num:INTEGER; Clrscr; ‘Entrada de Datos Write ('Introduzca un número entero: '); Readln (num); ‘Proceso y Salida de Datos IF (num > 0) THEN Write ('El número es positivo') ELSE IF (num < 0) THEN Write...