Mostrando postagens com marcador Estruturas de Repetição. Mostrar todas as postagens
Mostrando postagens com marcador Estruturas de Repetição. Mostrar todas as postagens

terça-feira, 24 de outubro de 2017

Faça um algoritmo que mostre todos os múltiplos de 5 no intervalo de 1 ate 5235.

=============================================================

Exemplo 2:
Faça um algoritmo que mostre todos os múltiplos de 5 no intervalo de 1 ate 5235.

=============================================================

// Seção de Declarações

var

valor:inteiro

inicio

// Seção de Comandos
// Nesta situação sabemos o inicio e o fim do intervalo, então podemos usar a
// instrução PARA.
// Vamos usar a instrução de seleção SE para saber se o valor é multiplo de 5.
// Se o resto da divisão do VALOR por 5 for 0(ZERO), então esse número é um
// multiplo e consequentemente o programa vai escrever o VALOR.

para valor de 1 ate 5235 faca
     se(valor mod 5 = 0)faca
         escreva(valor)
     fimse
fimpara

fimalgoritmo

=============================================================

Caso os números formem um intervalo crescente, a media dos números do intervalo, incluindo os números digitados;

=============================================================
Exemplos

 Elabore um algoritmo que receba dois números inteiros positivos. Calcule e mostre:
 Caso os números formem um intervalo crescente, a media dos números do intervalo, incluindo os números digitados;
Caso os números formem um intervalo decrescente, a quantidade de números pares, incluindo os números digitados;
Se os números forem iguais, mostrar uma mensagem.
=============================================================

// Seção de Declarações

var

pares,numero1,numero2,contador:inteiro
soma:inteiro

// A variável PARES vai armazenar a quantidade de números pares quando o intervalo for decrescente.

inicio

escreva("Escreva um valor: ")
leia(numero1)
escreva("Escreva outro valor: ")
leia(numero2)
soma<-0
pares<-0

     Se(numero1=numero2)entao 
          escreval("Os dois números são iguais.")
     senao

// Ordem crescente

          se(numero1

// Calcula a média
                                
               para contador de numero1 ate numero2 faca     
                  soma<-soma+contador                    
               fimpara 
                                   
               escreval("Intervalo Crescente.")
               escreval("Média : ",soma/(numero2-numero1+1))

          fimse
        
// Ordem decrescente

          se(numero1>numero2)entao 

               para contador de numero2 ate numero1 faca



//Conta a quantidade de números pares

                   se(contador mod 2 = 0)entao          
                     pares<-pares+1                      
                   fimse

               fimpara
              
               escreval("Intervalo Descrescente.")
               escreval("O intervalo possui ",pares," números pares.")
          fimse

     fimse

fimalgoritmo
==========================================================================================================================
Exemplo 8: 

 Elabore um algoritmo que receba dois números inteiros positivos. Calcule e mostre:
 Caso os números formem um intervalo crescente, a media dos números do intervalo, incluindo os números digitados;
Caso os números formem um intervalo decrescente, a quantidade de números pares, incluindo os números digitados;
Se os números forem iguais, mostrar uma mensagem.
=============================================================

// Seção de Declarações

var

pares,numero1,numero2,contador:inteiro
soma:inteiro

// A variável PARES vai armazenar a quantidade de números pares quando o intervalo for decrescente.

inicio

escreva("Escreva um valor: ")
leia(numero1)
escreva("Escreva outro valor: ")
leia(numero2)
soma<-0
pares<-0

     Se(numero1=numero2)entao 
          escreval("Os dois números são iguais.")
     senao

// Ordem crescente

          se(numero1

// Calcula a média
                                
               para contador de numero1 ate numero2 faca     
                  soma<-soma+contador                    
               fimpara 
                                   
               escreval("Intervalo Crescente.")
               escreval("Média : ",soma/(numero2-numero1+1))

          fimse
        
// Ordem decrescente

          se(numero1>numero2)entao 

               para contador de numero2 ate numero1 faca



//Conta a quantidade de números pares

                   se(contador mod 2 = 0)entao          
                     pares<-pares+1                      
                   fimse

               fimpara
              
               escreval("Intervalo Descrescente.")
               escreval("O intervalo possui ",pares," números pares.")
          fimse

     fimse

fimalgoritmo
=============================================================v

Algoritmo que escreve os números de 1 ate 10 na ordem crescente e decrescente

==============================================================

Algoritmo que escreve os números de 1 ate 10 na ordem crescente e decrescente

==============================================================

// Seção de Declarações 
var
numero:inteiro
inicio

// Seção de Comandos

//Ordem Crescente
para numero de 1 ate 10 faca
     escreva(numero)
fimpara

escreval("")

//Ordem Decrescente
para numero de 10 ate 1 passo -1 faca
     escreva(numero)
fimpara

fimalgoritmo

==============================================================