Pascal/Turbo Pascal - Codificación de caracteres

   
Vista:

Codificación de caracteres

Publicado por Andrés (1 intervención) el 24/10/2017 13:45:59
Escriba un programa en Pascal que lea un carácter y escriba en su lugar un carácter codificado. Si el carácter es letra o dígito, lo reemplazará por el siguiente carácter, excepto en el caso de: Z, que será remplazada por la A; z, que será reemplazada por a, y 9 que será remplazado por 0. De esta forma, el 1 se convierte en 2, C en D, p en q, etc. Cualquier carácter distinto de letra o dígito se sustituirá por un asterisco.
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

Codificación de caracteres

Publicado por David (183 intervenciones) el 25/10/2017 11:59:53
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses CRT;
 
var
  tecla  : char;
  codifi : char;
 
begin
  clrscr;
  tecla :=readkey;
  case tecla of
    'Z' : codifi:='A';
    'z' : codifi:='a';
    '9' : codifi:='0';
    '¤' : codifi:='o';
    '¥' : codifi:='O';
    'a'..'n','o'..'y','A'..'N','O'..'Y','0'..'8' :    codifi:=chr(ord(tecla)+1);
 
  else
  codifi:='*';
  end;
  write(codifi);
  readln;
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