Informatica

Problema 6.1.

Codifica un programa PASCAL que permita:

 Definir un tipo enumerado con el siguiente rango: Dom, Lun, Mar, Mie, Jue, Vie, Sap, y Dom
Recoger un entero comprendido entre 0 y 6 .
 Escribir en pantalla el día de la semana correspondiente.
 Si el día es Sábado o Domingo, escribir el mensaje enpantalla ‘A seguir durmiendo’, si es día laborable, escribir en pantalla el mensaje ‘Vamos a trabajar’.
 Recoger por teclado el número de horas que se ha trabajadodurante cada día de esa semana, desde el Lunes hasta el día introducido por teclado, y mostrar el número total de horas trabajadas.
 Utiliza dos bucles for paraescribir las siguientes líneas:
 Lunes Martes Miércoles Jueves Viernes Sábado Domingo
 Domingo Lunes Martes Miércoles Jueves Viernes Sábado
 Define unavariable Pulsado de tipo anónimo, con dos valores: on, off. Asigna a Pulsado uno de sus valores válidos, y utiliza la estructura alternativa para escribir el mensaje‘Estoy conectado’ con valor on o ‘Estoy desconectado’ con el valor off.

program Enumerados (output);
uses
crt;

typetDiasSemana=(Dom,Lun,Mar,Mie,Jue,Vie,Sab);
{ tDS=(Lun, Lan, Lon); L¡nea Err¢nea porque duplica el valor Lun}
{ tVocales=('A','E','I','O','U'); Err¢nea han de ser identificadores}{ tMeses=(1,2,3,4,5,6,7,8,9,10,11,12); Err¢nea han de ser identificadores}
var
x,
HorasTrabajadas, Total:integer;
Dia,i: tDiasSemana;

{TipoAn¢nimo}
Pulsado:(on,off);

procedure TomaDato(var x:integer);
begin
repeat
write ('Escribe Numero: ');
readln (x);
until (x>=0) and (x