Pascal/Turbo Pascal - mostrar siguiente caracter

   
Vista:

mostrar siguiente caracter

Publicado por pepe (2 intervenciones) el 19/10/2011 13:11:27
Hola mi problema es que tengo un problema que dice que al introducir cualquier caracter lo codifique mostrando el siguiente, pero al ser un caracter no se como se hace. Por ejemplo si introduces un 'a' que ponga 'b' o un digito '2' que ponga '3' .
Tengo esto hecho pero me muestra la letra en codigo ascii.

var
c:char;

begin
writeln('Escribe un caracter: ');
readln(c);
case c of
'a'..'z': begin
if c='z' then writeln('a')
else writeln(ord(c));
end;
'A'..'Z': begin
if c='Z' then writeln('A')
else writeln(ord(c));
end;
'0'..'9': begin
if c='9' then writeln('0')
else writeln(ord(c));
end;
else writeln('*');
end;

readln();
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

mostrar siguiente caracter

Publicado por ramon (2072 intervenciones) el 19/10/2011 18:09:46
program descodi;
uses
crt;

var
c : char;

function sigiente : char;
begin
gotoxy(10,3);write('Entre Caracter : ');
gotoxy(27,3);read(c);
clrscr;
sigiente := chr(ord(c) + 1);
gotoxy(10,3);write('El Sigiente ES : ');
end;

begin
clrscr;
gotoxy(27,3);write(sigiente);
repeat until keypressed;
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

mostrar siguiente caracter

Publicado por pepe (2 intervenciones) el 20/10/2011 12:15:07
muchas gracias, me sirvió
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