ayuda con este programa
Publicado por jose (7 intervenciones) el 23/08/2017 01:42:04
buenas seria de mucha ayuda si alguien me ayuda con este programa soy nuevo usando pascal y no lo entiendo mucho. El caso es el siguiente ocupo hacer un horario escolar de lunes a viernes pero no lo consigo hasata ahora lo que tengo es este codigo y me da un error.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
PROGRAM horario;
uses crt;
clrscr;
write ('INGRESA UN DIA DE LA SEMANA');
WRITELN;
WRITELN;
WRITE('1-lunes, 2-martes, 3-miescoles, 4-jueves, 5-viernes');
WRITELN;
READLN(HORARIOS_DIARRIOS);
CASE HORARIOS_DIARIOS OF
1:WRITELN('8:00 COMPUTO,10:30 INGLES, 14:00 MATEMATICAS');
2:WRITELN('7:00 ESPAÑOL,9:00 FISICA,12:00 E.SOCIALES');
3:WRITELN('8:00 CIENCIAS,9:45 CIVICA,13:00 QUIMICA');
4:WRITELN('7:00 ESPANOL;11:00 MUSICA,12:15 RELIGION');
5:WRITELN('8:00 MATEMATICAS,10:00 FISICA,13:20 COMPUTO');
ELSE WRITELN('N0 INGRESO UN NUMERO VALIDO');
END;
READKEY;
end.Valora esta pregunta
0