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

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

 » Programação Desktop » Pascal / Delphi » [source] FTS Cifra de Cesar

[source] FTS Cifra de Cesar

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

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

Kodo no Kami

avatar
master
master
[Você precisa estar registrado e conectado para ver 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.


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum