×
×
Ir ao conteúdo
  • Cadastre-se

Pascal Como embrulhar e restaurar textos?


Posts recomendados

Olá,

Tenho um exercício para terminar, mas não consigo concluir. Será que alguém pode me dar uma ajuda?

 

Program Pzim ;

var

    {vetor}
   
     str : array[0..511] of integer;

begin 

writeln('Digite um texto para embaralhar/restaurar (sem espaços): ');
    readln(str);

    {repetição}
    for i := 0; str[i] <> 0; i++
    begin 
        * pular := 1;

        {multipla escolha}
        case(str[i]) of
        begin 
                'A':
                str[i] := 'E';
                break;
                'E':
                str[i] := 'A';
                break;
                'I':
                str[i] := 'O';
                break;
                'O':
                str[i] := 'I';
                break;
                'U':
                str[i] := 'U';
                break;
            default:
                pular := 0;
                break;
         end;

        if(pular) then  continue;

        {condicional composta}
        if(str[i] >= '0' and str[i] <= '9') then 
        begin 
            str[i] := '9' - (str[i] - '0');
         end;
        else if(str[i] >= 'a' and str[i] <= 'z') then 
        begin 
            str[i] := 'a' + ((str[i] - 'a' + 13) mod 26);
         end;
     end;

writeln('Resultado é: ', str);
end;

end.

 

  • Amei 1
Link para o comentário
Compartilhar em outros sites

  • DiF alterou o título para Como embrulhar e restaurar textos?

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Curso de Hacker Ético

LANÇAMENTO!

CLIQUE AQUI E CONFIRA!

* Este curso não é ministrado pela equipe do Clube do Hardware.