cifrado cesar (frase)
Publicado por flm14 (2 intervenciones) el 14/05/2020 12:13:54
buenas,
me han pedido que desarrolle un programa en Pascal que pida un desplazamiento y una frase completa (acabada en punto), mostrando por pantalla el resultado de aplicar el cifrado César con ese desplazamiento a toda la frase. El programa tengo que hacerlo a través de un procedimiento,
por ahora llevo esto de programa, pero no me sale lo que me pide al ejecutarlo, si alguien pudiera ayudar le estaría agradecido.
me han pedido que desarrolle un programa en Pascal que pida un desplazamiento y una frase completa (acabada en punto), mostrando por pantalla el resultado de aplicar el cifrado César con ese desplazamiento a toda la frase. El programa tengo que hacerlo a través de un procedimiento,
por ahora llevo esto de programa, pero no me sale lo que me pide al ejecutarlo, si alguien pudiera ayudar le estaría agradecido.
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 cesarfrase;
procedure desplazamiento ( var frase : string; var n : integer);
var
pos, cont : integer;
begin
for cont:= 1 to length (frase) do
begin
pos := ord(frase[cont]);
if (pos >= 65) AND (pos <= (90 - n) ) or (pos >= 97) AND (pos <= (122 - n) ) then
begin
pos := pos + n;
write(chr(pos));
end;
end;
end;
var
frase : string; n : integer;BEGIN
writeln('Introduzca la frase acabada en punto');
readln(frase);
writeln('Introduzca un desplazamiento');
readln(n);
desplazamiento(frase, n);
END.Valora esta pregunta
1
