[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
programinha q codifica uma palavra usando cifra de cesar
programinha q codifica uma palavra usando cifra de cesar
- Código:
//autor: hacker fts315
//linguagem: pascal
//copilador: dev-pascal
program c_cesar;
uses crt;
var texto:string;
cont, pulos, tipo, tam:integer;
begin
writeln('===============================================');
writeln('= FTS Cifra de Cesar =');
writeln('===============================================');
writeln('');
write('digite a palavra: ');
readln(texto);
write('digite quantidade pulos: ');
readln(pulos);
write('digite 1-codificar 2-decodificar: ');
readln(tipo);
tam:= length(texto);
writeln('');
if (tipo = 1) then
begin
for cont:= 1 to tam do
begin
texto[cont]:= chr(longint(texto[cont]) + pulos);
write(texto[cont]);
end;
end
else if (tipo = 2) then
begin
for cont:= 1 to tam do
begin
texto[cont]:= chr(longint(texto[cont]) - pulos);
write(texto[cont]);
end;
end;
readkey;
end.