seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Participe do fórum, é rápido e fácil

seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Você não está conectado. Conecte-se ou registre-se

[source] FTS Cifra de Cesar

Ir para baixo  Mensagem [Página 1 de 1]

1[source] FTS Cifra de Cesar Empty [source] FTS Cifra de Cesar Seg maio 21, 2012 4:06 am

Kodo no Kami

Kodo no Kami
master
master

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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.

https://endoffile.umforum.net

Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos