Turbo pascal
3)If
Sintaxis:
If
<cond> then
Begin
<Bloque de Sentencias>;
End
Else
Begin
<Bloque de Sentencias>;
End;
Donde <cond> es una condición que puede ser falsa o verdadera, y <bloque de sentencias> es una sola sentencia, o bien varias sentencias encerradas entre un Begin y un End. El Begin y el End se usan cuando hay mas de una sentencia y Else cuando es necesario. La forma general de una condición es:
<expr1><op-rel><expr2>
donde <expr> son expresiones y <op-rel> son los operadores relacionales.
Es bueno recalcar que el bloque del If se ejecuta sólo si la condición es verdadera, y que el bloque del Else se ejecuta sólo si la condición es falsa. La línea que está antes del Else no se le coloca punto y coma.
Veamos un ejemplo:
Program
Numeros;
Uses
CRT;
Var
numero:integer;
Begin
CLRSCR;
Write ('Escriba un número: ');
Readln (numero);
If numero>0
Then
Writeln ('El número es positivo');
Readln;
End.
Otro ejemplo, pero ahora con Else:
Program
Numeros;
Uses
CRT;
Var
numero:integer;
Begin
CLRSCR;
Write ('Escriba un número: ');
Readln (numero);
If numero<0
Then
Writeln ('El número es negativo')
Else
Writeln ('El número es positivo o cero');
Readln;
End.
· El
programa pide un número.
· Si (IF) el numero
introducido es menor que cero entonces (THEN)
se imprime el mensaje El número es negativo.
· Si no (ELSE), es menor
que cero, entonces se imprime el mensaje El número es positivo.
Otro ejemplo:
Program
Mayor;
Uses
CRT;
Var
N1,N2,N3,NMayor:integer;
Begin
CLRSCR;
Write ('Ingrese primer número: ');
Readln (N1);
Write ('Ingrese segundo número: ');
Readln (N2);
Write ('Ingrese tercer número: ');
Readln (N3);
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;
Writeln ('El numero mayor es: ',NMayor);
Readln;
End.
Otro Ejemplo:
Program
Formula;
Uses
CRT;
Var
x,y,z:real;
Begin
CLRSCR;
Write ('Ingrese el valor de y: ');
Readln (y);
Write ('Ingrese el valor de z: ');
Readln (z);
If z<>0
Then;
Begin
x:=y/z;
Writeln('x= ',x:8:4);
End
Else
Writeln ('el valor de z debe ser diferente de cero');
Readln;
End.
Descargar gratis los programas y compiladores necesarios para aprender a programar
¿Buscas algo?