Ejercicio 2(Inicio A)

PROGRAM futbol(input,output);
(*Programa que muestre la situacion de un equipo de futbol en funcion de los puntos,+70 Champions,60-70 EuroCup,45-60 Permanencia, menos de 45 Descenso.*)
VAR
        partidos_ganados:integer;
        partidos_perdidos:integer;
        puntos_totales:integer;
        partidos_empatados:integer;
        d:integer;
BEGIN

        write('Introduzca el numero de partidos ganados:');
        read(partidos_ganados);
        write('Introduzca el numero de partidos perdidos:');
        read(partidos_perdidos);
        partidos_empatados:=38-(partidos_perdidos+partidos_ganados);
        puntos_totales:=(3*partidos_ganados)+(partidos_empatados);
        IF ((partidos_ganados+partidos_perdidos+partidos_empatados)<>38) THEN write('error')
        ELSE

        CASE puntos_totales OF
        71..114 : writeln('El equipo ha obtenido ',puntos_totales:3,' puntos,con lo que es probable que se clasifique para la Champions League');
        61..70 : writeln('El equipo ha obtenido ',puntos_totales:3,' puntos,con lo que es probable que se clasifique para la EuroCup');
        45..60 : writeln('El equipo ha obtenido ',puntos_totales:3,' puntos,con lo que es probable que consiga la permanencia');
        0..44 : writeln('El equipo ha obtenido ',puntos_totales:3,' puntos,con lo que es probable que pierda la categoria');
        OTHERWISE writeln('Fallo al introducir los datos, por favor reinicie el programa y vuelva a introducir los datos');
        END;
REPEAT writeln('Escriba 0 para finalizar');
readln(d);
UNTIL d=0;
writeln('FIN');

END.

Ejemplo de ejecución

Anterior                                                                                                                                       Siguiente