mhpa Posted November 9, 2009 at 07:11 PM Report Share #295308 Posted November 9, 2009 at 07:11 PM 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 More sharing options...
M6 Posted November 9, 2009 at 08:33 PM Report Share #295322 Posted November 9, 2009 at 08:33 PM Claro que te podemos ajudar a resolver este problema. Basta que coloques aqui as tuas dúvidas de programação de forma concreta e clara. 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 More sharing options...
mhpa Posted November 9, 2009 at 09:02 PM Author Report Share #295329 Posted November 9, 2009 at 09:02 PM 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 More sharing options...
M6 Posted November 10, 2009 at 11:29 AM Report Share #295377 Posted November 10, 2009 at 11:29 AM 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 More sharing options...
mhpa Posted November 12, 2009 at 02:06 AM Author Report Share #295761 Posted November 12, 2009 at 02:06 AM muito obrigado, gostava de saber quais os passos por onde devo começar, sem ser a parte das var claro..a partir do begin, devo seguir que ciclos? ou seja que instruçoes devo dar para os passos descritos.. agradeço imenso pela vossa atençao. Link to comment Share on other sites More sharing options...
M6 Posted November 12, 2009 at 09:39 AM Report Share #295768 Posted November 12, 2009 at 09:39 AM Vê as instruções do until, procedure e return 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 More sharing options...
mhpa Posted November 13, 2009 at 07:50 PM Author Report Share #296053 Posted November 13, 2009 at 07:50 PM 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 More sharing options...
M6 Posted November 13, 2009 at 10:41 PM Report Share #296087 Posted November 13, 2009 at 10:41 PM Para saberes se está tudo ok, corre a aplicação e vê se o resultado obtido é o resultado esperado. 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 More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now