Escrever um algoritmo que gera e escreve os números ímpares entre 100 e 200 portugol

6- Imprimir os 20 primeiros termos de uma P.A de razão cuja o valor inicial é 10 e a razão é 6 (10, 16, 22...)

algoritmo "pa"
var
aux, pa : inteiro
inicio
pa := 10
para aux de 1 ate 20 passo 1 faca
 escreval(pa)
 pa:= pa + 6
fimpara
fimalgoritmo

7-Ler 10 números reais; ao final mostrar o número maior.

algoritmo "maior"
//7. Ler 10 números reais; ao final mostrar o número maior.
var
 num, maior: real
 aux: inteiro
inicio
escreva("informe o primeiro numero: ")
leia(num)
maior := num
para aux de 1 ate 9 passo 1 faca
     escreva("informe o numero: ")
     leia(num)
     se(num > maior) entao
        maior := num
     fimse
fimpara
escreval("o maior numero lido foi ", maior)
fimalgoritmo

9- Faça um algoritmo que leia a quantidade de números que o usuário deseja digitar e em seguida realize as leituras dos números. Ao final informe quantos números pares e ímpares foram digitados.

algoritmo "quantParesImpares"
var
num, quant, aux, quantPares, quantImpares:  inteiro
inicio
  escreva("informe a quantidade: ")
  leia(quant)
  quantPares := 0
  quantImpares := 0
  para aux de 1 ate quant passo 1 faca
     escreva("informe o ", aux, "º numero: ")
     leia(num)
     se(num mod 2 = 0) entao
        quantPares := quantPares + 1
     senao
        quantImpares := quantImpares + 1
     fimse
  fimpara
  escreval("Pares: ", quantPares)
  escreval("Impares: ", quantImpares)
fimalgoritmo

10. Faça um algoritmo que informar se o número digitado é primo (ou não).

algoritmo "primo"
var
    num, aux : inteiro
    ehPrimo: logico
inicio
   ehPrimo:= verdadeiro
   escreva("informe o numero: ")
   leia(num)
   para aux de 2 ate num-1 passo 1 faca
      se (num mod aux = 0) entao
          ehPrimo := falso
      fimse
   fimpara
   se(ehPrimo = verdadeiro) entao
     escreval("o numero ", num, " é primo")
   senao
     escreval("o numero ", num, " não é primo")
   fimse
fimalgoritmo

11. Altere o exercício anterior para receber números do usuário e informar se são número primos ou não. O algoritmo deve encerrar quando o usuário informar números negativos ou zero (<=0). Ao final, informar quantos números primos foram digitados.

algoritmo "primo"
var
    num, aux, quantidade : inteiro
    ehPrimo: logico
inicio
   quantidade := 0
   escreva("informe o numero: ")
   leia(num)
   enquanto num > 0 faca
      ehPrimo:= verdadeiro
      para aux de 2 ate num-1 passo 1 faca
         se (num mod aux = 0) entao
             ehPrimo := falso
         fimse
      fimpara
      se(ehPrimo = verdadeiro) entao
        escreval("o numero ", num, " é primo")
        quantidade :=  quantidade + 1
      senao
        escreval("o numero ", num, " não é primo")
      fimse
      escreva("informe o proximo numero: ")
      leia(num)
   fimenquanto
   escreval("quantidade de primos: ",quantidade)
fimalgoritmo

12. Informar os divisores de um número digitado.

algoritmo "divisores"
var
    num, aux: inteiro
inicio
  leia(num)
  para aux de 1 ate num passo 1 faca
       se num mod aux = 0 entao
           escreval(aux)
       fimse
  fimpara
fimalgoritmo

17. Faça um algoritmo que solicite ao usuário 10 números inteiros e, ao final, informe a quantidade de números ímpares e pares lidos. Calcule também a soma dos números pares e a média dos números ímpares.

algoritmo "paresImpares"
var
num, somaPares, aux, quantPares, quantImpares:  inteiro
mediaimpares : real
inicio
  quantPares := 0
  quantImpares := 0
  para aux de 1 ate 10 passo 1 faca
     escreva("informe o ", aux, "º numero: ")
     leia(num)
     se(num mod 2 = 0) entao
        quantPares := quantPares + 1
        somaPares := somaPares + num
     senao
        quantImpares := quantImpares + 1
        mediaimpares := mediaImpares + num
     fimse
  fimpara
  escreval("Pares: ", quantPares)
  escreval("Impares: ", quantImpares)
  escreval("Somas Pares: ", somaPares)
  escreval("Media Impares: ", mediaImpares/quantImpares)
fimalgoritmo

Lógica de programação se aprende com muita prática. Por isso quero mostrar para quem está aprendendo, como implementar os algorítmos básicos de lógica de programação.

Neste post, você vai aprender como implementar um algorítmo que verifica se um número é PAR ou ÍMPAR.

Passo 1: Esqueleto do algorítmo

O primeiro passo é criar a estrutura do algorítmo. Todo algorítmo tem um nome uma área para a declaração das variáveis e um corpo.

Algoritmo "ParOuImpar" Var Inicio Fimalgoritmo

Passo 2: Solicitação do número para o usuário

O segundo passo é solicitar que o usuário digite o número, para verificarmos se ele é par ou ímpar.

Pense que é uma conversa, você diz ao usuário o que ele precisa fazer, o usuário informa o valor que a gente pedi e em seguida a gente armazena esse valor em uma variável.

Se vamos usar uma variável, também precisamos declará-la na sessão de variáveis. Veja

Algoritmo "ParOuImpar" Var numero : inteiro Inicio escreva("Informe um número: ") leia(numero) Fimalgoritmo

Veja a execução deste algorítmo no Visualg 3.

Passo 3: Verificação se o número é par ou ímpar

Agora que nós já obtemos o valor que o usuário digitou, podemos verificar se o número é par ou ímpar e dar essa informação pra ele.

Pra isso, vamos utilizar a estrutura de controle SE-ENTÃO-SENÃO.

E a verificação que vamos utilizar é: Se o resto da divisão do número por 2 for igual a 0, então o número é par, senão o número é ímpar.

Mas como obter o resto de uma divisão? utilizando o operadorMOD.

Veja o algorítimo final

Algoritmo "ParOuImpar" Var numero : inteiro Inicio escreva("Escreva um número: ") leia(numero) se numero mod 2 = 0 entao escreva("O número ", numero, " é par!") senao escreva("O número ", numero, " é ímpar!") fimse Fimalgoritmo

Perceba que nas mensagens que apresentamos ao usuário, nós concatenamos o valor da variável número com o texto.

Video

Eu gravei um video implementando este algorítmo passo-a-passo.

Assim você pode ver como eu faço na prática!

Gostou do post? Você pode ter acesso GRATUITO a um minicurso e um e-book de lógica de programação para iniciantes. Basta se inscrever no link abaixo.

>> Quero me inscrever no minicurso GRATUITO de lógica de programação!

Escreva aqui em baixo nos comentários o que você achou do post e do video.

E se você ficou com alguma dúvida, fique a vontade para perguntar nos comentários que eu respondo!

Sugestão de resposta em java

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

package exercicioextra20;   /** * * @author Franciele */ public class ExercicioExtra20 {     public static void main(String[] args) {   for (int i = 100; i < 201; i++) {   if ((i % 2) != 0) { System.out.println("Os números ímpares de entre 100 e 200 são: " + i); }   }   }   }

package exercicioextra20; /** * * @author Franciele */ public class ExercicioExtra20 { public static void main(String[] args) { for (int i = 100; i < 201; i++) { if ((i % 2) != 0) { System.out.println("Os números ímpares de entre 100 e 200 são: " + i); } } } }

• Franciele Benedetti
• 9.036 views
• 0 comentários
• 27 de agosto de 2016

Está gostando do conteúdo? Apoie este trabalho você também!