Advertisement
Guest User

Untitled

a guest
May 6th, 2015
221
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.63 KB | None | 0 0
  1. algoritmo "exercicio 1"
  2. // Função :
  3. // Autor : Gustavo / Danny
  4. // Data : 05/05/2015
  5. // Seção de Declarações
  6. var
  7. numero : inteiro
  8.  
  9. inicio
  10. ESCREVAL("Exibir números impar:")
  11.  
  12. // Vai repetir o codigo que está dentro do "PARA" e antes do "FIMPARA" 100 vezes
  13. // Ou seja repetir de 100 até 200
  14. PARA numero DE 100 ATE 200 FACA
  15.     // A cada repetição a variavel numero terá um valor diferente indo de 100 a 200
  16.     // "MOD" retorna o resto de uma divisão
  17.     // Todo numero par dividido por 2 não retorna resto de divisão (o resto da divisão vai ser = 0), ou sejá será um numero inteiro.
  18.     // Todo numero impar dividido por 2 retorna vai retornar resto de divisão.
  19.  
  20.     // Então a cada repetição do codigo a variavel numero vai verificar o resto da divisão por 2
  21.     // Exemplos:
  22.     // 100 MOD 2 = 0 (par)
  23.     // 101 MOD 2 = 1 (impar)
  24.     // 102 MOD 2 = 0 (par)
  25.     // 103 MOD 2 = 1 (impar)
  26.     // Ou seja, quando o resto da divisão é 0 numero vai ser par, quando o resto da divisão for diferente de 0 numero vai ser impar
  27.  
  28.     // Então aqui vamos verificar se o resto da divisão da operação for diferente de 0,
  29.     // vai ser escrito o numero na tela, esse numero será impar
  30.     SE (numero MOD 2 <> 0) ENTAO
  31.         ESCREVAL(numero)
  32.     FIMSE
  33. FIMPARA // Indida o fim do para
  34.  
  35. ESCREVAL // Simplesmente pula uma linha na tela
  36. ESCREVAL("Exibir números par:")
  37.  
  38. // Vai fazer exatamente a mesma coisa que a explicação acima, porém vai escrever os numeros positivos entre 100 a 200
  39. PARA numero DE 100 ATE 200 FACA
  40.     SE (numero MOD 2 = 0) ENTAO
  41.         ESCREVAL(numero)
  42.     FIMSE
  43. FIMPARA
  44. fimalgoritmo
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement