Ejercicio 3(Inicio A)

PROGRAM fuerza(input,output);
(*Programa para determinar en funcion de los midiclorianos, el nivel de habilidad para usar la fuerza.+20000 Darth Vader, 15000-20000 miembros del consejo, 10000-15000 caballeros jedi, 5000-10000 iniciados,-5000 habitantes normales.*)
VAR
        midiclorianosml:real;
        total:integer;
  d:integer;
BEGIN
        write('Introduzca el numero de midiclorianos por ml de sangre:');
        read(midiclorianosml);
        total:=round(midiclorianosml*1000);
        CASE total OF
        20000..maxint : writeln('Este habitante de la Galaxia puede llegar a Darth Vader(',total:5,' midiclorianos/l de sangre');
        15000..19999 : writeln('Este habitante de la Galaxia puede llegar a Miembro del Consejo(',total:5,'midiclorianos/l de sangre');
        10000..14999 : writeln('Este habitante de la Galaxia puede llegar a Caballero Jedi(',total:5,' midiclorianos/l de sangre');
        5000..9999 : writeln('Este habitante de la Galaxia puede llegar a Iniciado(',total:5,' midiclorianos/l de sangre');
        0..4999 : writeln('Este habitante de la Galaxia es un habitante normal(',total:5,' midiclorianos/l de sangre');
        OTHERWISE writeln('El numero de midiclorianos es muy reducido, por favor repita la medicion!!!');
        END;
REPEAT writeln('Escriba 0 para finalizar');
readln(d);
UNTIL d=0;
writeln('FIN');
END.

Ejemplo de Ejecución

Anterior                                                                                                                                       Siguiente