Pascal/Turbo Pascal - ayuda con este programa

 
Vista:
sin imagen de perfil

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 54
Oro
Ha mantenido su posición en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

ayuda con este programa

Publicado por dario (38 intervenciones) el 23/08/2017 05:54:41
Tu mismo programa corregido

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
PROGRAM horario;
uses crt;
var {te faltaba poner las variables}
    HORARIOS_DIARIOS:byte;
begin {te faltaba "begin"}
    clrscr;
    write ('INGRESA UN DIA DE LA SEMANA');
    WRITELN;
    WRITELN;
 
    WRITELN('1-lunes, 2-martes, 3-miescoles, 4-jueves, 5-viernes');
    READLN(HORARIOS_DIARIOS);
 
    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;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

ayuda con este programa

Publicado por Jose (7 intervenciones) el 24/08/2017 23:48:54
gracias Dario por tu aporte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar