Bien, para explicar el funcionamiento de esta sentencia utilizaremoscomo base el ejemplo de Calcular el promedio final de una Materia.
Programpromedio_final; {nombre del programa}
Uses
CRT;
Var
a,b,c,total:real; {variables}
Begin
clrscr;
writeln ('Ingresa la calificacion del PrimerPeriodo:');
Readln (a);
writeln ('Ingresa la calificacion del SegundoPeriodo:');
Readln (b);
writeln ('Ingresa la calificacion del TercerPeriodo:');
Readln (c);
total:=((a+b+c)/3);
writeln ('El promedio final es:',total:0:2);
readln;
end.
La sentencia If funciona de la siguiente manera: La sentencia if, actúa como cabría esperar. Sila condición es verdadera, la sentencia se ejecuta, de otro modo, se saltadicha sentencia, continuando la ejecución del programa con otras sentencias acontinuación de ésta. La forma general de la sentencia If es:
if (condición)
sentencia
else
sentencia2;
Bien, pero para comprenderlo mejor añadiremos unas cuantas líneasal código fuente anterior.
Program promedio_final; {nombre del programa}
Uses
CRT;
Var
a,b,c,total:real; {variables}
Begin
clrscr;
writeln ('Ingresa la calificacion del PrimerPeriodo:');
Readln (a);
writeln ('Ingresa la calificacion del SegundoPeriodo:');
Readln (b);
writeln ('Ingresa la calificacion del TercerPeriodo:');
Readln (c);
total:=((a+b+c)/3);
writeln('Tu calificacion es de ',total:0:2);
iftotal >= 8 then {Sisacas mayor igual que 8}
writeln('Estas excento')
else {Si no sacas mayorigual que 8}
writeln('ESTAS EN EXAMEN FINAL');
readln;
end.
Puesaquí lo que nos interesa ahora son las siguientes líneas:
if total >= 8 then
writeln ('Estas excento')
else
writeln('ESTAS EN EXAMEN FINAL');
if total >= 8 then ----> Si lavariable “total” es mayor igual que 8 hacer esto
writeln('Estas excento') ------->Mostraren pantalla ‘Estas excento’
else------------------------------------> Si no/de lo contrario
writeln('ESTAS EN EXAMEN FINAL');--> Mostar en pantalla 'ESTAS EN EXAMEN FINAL'
 |
Código Fuente |
 |
Si se cumple la condición IF |
 |
Si no se cumple la condición IF |
Tambiénchequen esta parte: writeln ('Estas excento')no lleva “;”
sino hasta la línea : writeln ('ESTAS EN EXAMEN FINAL');
Comments
0 Response to '5.- La sentencia selectiva IF [PASCAL]'
Publicar un comentario