Pascal/Turbo Pascal - Ayuda Case of

 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 13 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Ayuda Case of

Publicado por luis (1 intervención) el 11/02/2018 20:13:01
2018-02-11-1
2018-02-11-2
2018-02-11


Hola, estoy dando los primeros pasos para aprender las cosas más básicas de Turbo Pascal.

Quisiera que me ayudaran por favor con este Case of porque simplemente no encuentro en qué estoy mal.
Y si me pudieran decir de paso como poner rangos de (1 al 5) por ejemplo en case of

Muchas gracias de antemano.
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

Ayuda Case of

Publicado por ramon (2127 intervenciones) el 19/02/2018 18:42:01
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program  case;
uses
    crt;
 var
    entrada : char;
    sal : boolean;
 begin
   sal := false;
repeat
      entrada := readkey;
       case entrada of
'A','a' : writeln('  A Pulsado A');
'B','b' : writeln('  A Pulsado B');
'C','c' : writeln('  A Pulsado C');
'S','s' : sal := true;
end
else
     writeln('  Intentelo De Nuevo');
  until sal = true;
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