Jump to content

ajuda num exercicio em pascal pf


mhpa
 Share

Recommended Posts

Sera que alguem me podia ajudar a resolver este problema?

Desde já obrigado a todos que poderem ajudar.  😉

Considere a cifra (palavra-chave) constituida pelas letras "SAPO" seguidas de um digito n

(entre 0 e 9). Para a cifragem (codificacao) da mensagem efectuam-se os seguintes passos:

(a) reduzem-se espacos seguidos a um unico espaco e mantem-se os caracteres de pontuacao;

b- aos digitos soma-se n e calcula-se o seu modulo 10 (resto da divisao inteira por 10);

c- convertem-se todas as letras em maiusculas ou minusculas;

(d) considera-se a seguinte tabela de codicacao:

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

S A P O B C D E F G H I J K L M N Q R T U V W X Y Z

A construcao desta tabela limita-se a colocar a palavra chave no inicio e completar com as restantes letras do alfabeto, nao colocando as letras que se repetem.

Para a codificacao, substitui-se cada um dos caracteres da primeira linha pelo caracter correspondente da segunda linha.

Construa um programa que dada uma cifra, codique a mensagem, e um outro que, dada a mensagem cifrada e a cifra, descodique a mensagem.

Link to comment
Share on other sites

o meu problema, centra se na falta de bases em trabalhar com strings, devido a problemas de saude nao pude comparecer nas aulas e perdi essa parte da materia, entretanto o professor pediu para avaliaçao esse exercicio..

dai nao entender o que este exercicio pede, ou se faz em algoritmia, pois para alem de mudar as letras, mistura com numeros..nao entendo como posso codificar em pascal:S

espero ter me feito entender e mais uma vez obrigado.

Link to comment
Share on other sites

Começa por escrever isso em pseudo-código, ou seja, escreve todos os passos que necessitas fazer.

Depois começa a traduzir isso para Pascal, usa o Google para encontrares respostas às tuas dúvidas mais genéricas e coloca aqui as tuas dúvidas concretas de programação.

10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Link to comment
Share on other sites

não sei se posso postar isto aqui, mas gostava de saber se tou no caminho certo ou se devo mudar ou usar outro metodo.

program codificar;

uses crt;

var

  abc: string;

  num: string;

  cifra: string;

  frase: string;

  cifra_palavra: string;

  cifra_numero: integer;

  aux_abc: string;

  i,j,esp,aux_num,er: integer;

  aux_string: string;

begin

abc:= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

num:= '0123456789';

aux_abc:= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';

writeln('Introduza a cifra (ex: sapo)');

readln (cifra_palavra);

begin

  for i:=1 to Length(cifra_palavra) do 

    if cifra_palavra in ['a'..'z']

      then cifra_palavra := UpCase(cifra_palavra );

end;

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.