Pascal/Turbo Pascal - ¿Q falla en este codigo?AYuda :(

   
Vista:

¿Q falla en este codigo?AYuda :(

Publicado por Raul (1 intervención) el 05/12/2007 01:40:27
Hola, estoy empezando a programar y se me ocurrió hacer una tontería, una especie de test, pero me da un error que no entiendo, me dice lo siguiente: (37,4): SYntax error, ";"expected but "." found. Compilation aborted.

EL codigo es el siguiente:

program test;

var
a,b: char;

Begin
writeln('¿Pregunta numero uno?');
writeln('1: opcion 1');
writeln('2: opcion2');
writeln('3: opcion 3');
writeln('4: opcion 4');
read(a);
begin
case a of
'1': writeln('La respuesta es correcta');
'2': writeln('No has acertado!!!');
'3': writeln('No has acertado!!!');
'4': writeln('No has acertado!!!');
end;
writeln('¿Ppregunta numero dos?');
writeln('1: opcion 1');
writeln('2: opcion 2');
writeln('3: opcion 3');
writeln('4: opcion 4');
read(b);
begin
case b of
'1': writeln('Has fallado!!!');
'2': writeln('Has fallado!!!');
'3': writeln('OK, has acertado.');
'4': writeln('Has fallado!!!');
end;
end.


MUchas gracias de antemano por la ayuda!
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

RE:¿Q falla en este codigo?AYuda :(

Publicado por Diego Romero (997 intervenciones) el 05/12/2007 03:55:18
Tienes dos begins que no están cerrados, los que están justo antes de las sentencias case. De hecho, esos dos begins son irrelevantes. El case necesita un end pero no requiere begin.
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