Ejercicio 7(Procedimientos y funciones)

 Plantee e implemente un subprograma en PASCAL  que  acepte un entero y lo
muestre en pantalla como un LED de siete segmentos. Además del
subprograma, implemente un programa  principal apropiado  para probar su
funcionamiento.


PROGRAM segmentos(input,output);
VAR
   n:char;
(**********************************************)
PROCEDURE uno;
          BEGIN
          writeln('   |');
          writeln('   |');
END;
(**********************************************)
PROCEDURE dos;
          BEGIN
          writeln('  _');
          writeln('   |');
          writeln('  _');
          writeln(' |');
          writeln('  _');
END;
(**********************************************)
PROCEDURE tres;
          BEGIN
          writeln('  _');
          writeln('   |');
          writeln('  _');
          writeln('   |');
          writeln('  _');
END;
(***********************************************)
PROCEDURE cuatro;
          BEGIN
          writeln(' | |');
          writeln('  _');
          writeln('   |');
          writeln('   |');
END;
(************************************************)
PROCEDURE cinco;
          BEGIN
          writeln('  _');
          writeln(' |');
          writeln('  _');
          writeln('   |');
          writeln('  _');
END;
(************************************************)
PROCEDURE seis;
          BEGIN
          writeln('  _');
          writeln(' |');
          writeln('  _');
          writeln(' | |');
          writeln('  _');
END;
(*************************************************)
PROCEDURE siete;
          BEGIN
          writeln('  _');
          writeln('   |');
          writeln('   |');
          writeln('   |');
END;
(**************************************************)
PROCEDURE ocho;
          BEGIN
          writeln('  _');
          writeln(' | |');
          writeln('  _');
          writeln(' | |');
          writeln('  _');
END;
(**************************************************)
PROCEDURE nueve;
          BEGIN
          writeln('  _');
          writeln(' | |');
          writeln('  _');
          writeln('   |');
          writeln('  _');
END;
(***************************************************)
PROCEDURE cero;
          BEGIN
          writeln('  _');
          writeln(' | |');
          writeln(' | |');
          writeln('  _');
END;
BEGIN
write('Escriba un numero comprendido entre 0 y 9:');
read(n);
     CASE n OF
     '1' : uno;
     '2' : dos;
     '3' : tres;
     '4' : cuatro;
     '5' : cinco;
     '6' : seis;
     '7' : siete;
     '8' : ocho;
     '9' : nueve;
     '0' : cero;
     END;
END.