Ejercicio en Pascal
Publicado por Joaquín (1 intervención) el 14/07/2021 18:32:27
ROT13 («rotar 13 posiciones») es un sencillo cifrado utilizado para ocultar un texto sustituyendo cada letra por la letra que está trece posiciones por delante en el alfabeto en orden lexicográfico. A se convierte en N, B se convierte en O y así hasta la M, que se convierte en Z. A partir de la N, el cifrado se invierte: N se convierte en A, O se convierte en B y así hasta la Z, que se convierte en M.
a) (3 puntos) Declare una tabla unidimensional que contenga el cifrado ROT13. Esta tabla debe contener la codificación de cada letra del alfabeto.
He estado intentando hacerlo pero me da error en algunas lineas. Esto tengo hasta ahora:
Me da error en las lineas 22,27 y 32
a) (3 puntos) Declare una tabla unidimensional que contenga el cifrado ROT13. Esta tabla debe contener la codificación de cada letra del alfabeto.
He estado intentando hacerlo pero me da error en algunas lineas. Esto tengo hasta ahora:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program codificacion;
const
Distancia=ord('z')-ord('a');
type cod= array[1..Distancia]of integer;
var
S:text; d:cod; EA:char; t:integer; j:char; i:integer; r:integer;begin;
for i:=1 to Distancia do begin;
readln(EA);
if((EA>='a') and (EA<='m')) then begin;
t:=ord(EA);
S[i]:=t+13;
end;
if((EA>='n') and (EA<='z')) then begin;
r:=ord(EA)-ord('n');
t:=ord('a');
S[i]:=t+r;
end;
end;
for i:=1 to Distancia do begin;
j:=chr(S[i]);
write(j,',');
end;
end.Me da error en las lineas 22,27 y 32
Valora esta pregunta
0