Ahora realizaremos un programa que nos diga siestamos inscritos en un curso. Para ello utilizaremos de nuevo la sentencia If-else. Primero realizaremos el Pseudocodigo, para evitar futuros errores alcompilar el programa:
*Begin
*Digitar el numero de folio (cred)
*Leer numero de folio (cred)
*Si cred>=5000 y <=10000
*Mostrar en Pantalla = ‘Estas inscrito’
*Si no mostar en pantalla =’No estás inscrito’
*end.
Ahora crearemos el código fuente:
{Titulo del programa}
Program credencial;
Uses
CRT;
{Variables}
Var
cred:real;
Begin
clrscr;
writeln ('Digite su numero de folio:');
Readln(cred);
if(cred >= 5000) and (cred <= 10000) then {Condición}
writeln ('Estas inscrito'){Si se cumple}
else
writeln ('No estas inscrito'); {Si no se cumple}
readln;
end.
 |
Código Fuente |
 |
Si se cumple la condición |
 |
Si no se cumple la condición |
Este es un simple ejemplo de una simple condición (if-else)
Comments
0 Response to '5.1 If-else (Ejemplo) [PASCAL]'
Publicar un comentario