Lista 25 de outubro - 8)Fazer um programa para calcular a soma dos N primeiros números, onde N é lido. Ex.: N=5. Soma = 1+2+3+4+5

algoritmo "Calcular a soma dos primeiros números"

var
   n,soma:inteiro
inicio
   soma<-0
   escreva ("Informe o numero: ")
   leia (n)
   para n de n ate 1 passo - 1 faca
      soma <- soma + n
   fimpara
   escreva ("O resultado da soma dos primeiros números eh: ",soma)
fimalgoritmo

7) Leia um numero N (inteiro, positivo >5). Depois, leia para um determinado grupo de pessoas (N) as seguintes informações: Idade Peso Sexo Este programa deve fornecer como saída: a) A média dos pesos dos homens; b) A média das idades das mulheres; c) Quantas mulheres acima de 25 anos;

algoritmo "Informações sobre idade, peso, sexo"

var
   grupoPessoas, quantidadeHomens,quantidadeMulheres,mediaIdadeMulheres,idade,mulheresAcima25Anos:inteiro
   mediaPesoHomens,peso:real
   sexo:caracter
inicio
   idade<-1
   quantidadeMulheres<-0
   mediapesoHomens <- 0
   escreval("Entre com a quantidade de pessoas:")
   leia(grupoPessoas)
   se (grupoPessoas > 5) entao
      para grupoPessoas de grupoPessoas ate 1 passo -1 faca
         escreva("Informe o sexo M ou F: ")
         leia(sexo)
         se (sexo = "M") entao
            quantidadeHomens<-quantidadeHomens +1
            escreva("Informe o peso do homem: ")
            leia(peso)
            mediaPesoHomens<- mediaPesoHomens + peso
            escreva("Informe a idade do homem: ")
            leia(idade)
         senao
            quantidadeMulheres<-quantidadeMulheres +1
            escreva("Informe o peso da mulher: ")
            leia(peso)
            escreva("Informe a idade da mulher: ")
            leia(idade)
            mediaIdadeMulheres<- mediaIdadeMulheres + idade
            se (idade > 25) entao
               mulheresAcima25Anos<- mulheresAcima25Anos + 1
            fimse
         fimse
      fimpara
      escreval("A média de peso dos homens eh: ",mediaPesoHomens/quantidadeHomens)
      escreval(" A media de idade das mulheres eh: ",mediaIdadeMulheres/quantidadeMulheres)
      escreval("Há ",mulheresAcima25Anos, " mulheres acima de 25 anos",)
   senao
      escreval("O grupo de pessoas é menor que 5")
   fimse
fimalgoritmo

Lista dia 25 de outubro - 6) Faça um programa que seja capaz de calcular o resultado de uma operação de divisão inteira (x dividido y), utilizando-se para isso apenas do operador de subtração (-). Ex.: 12 / 3 = 4 = 12-3=9-3=6-3=3-3=0 (4 vezes)

algoritmo "calcular o resultado de uma operação de divisão inteira com a subtração"

var
   x,y,subtracao:inteiro
inicio
  subtracao <- 0
   escreva("Entre com um número: ")
   leia(x)
   escreva("Entre com um número divisor: ")
   leia(y)
        se x < y entao
         escreva ("Não é possível fazer uma divisão inteira")
        fimse
   escreva(x," / ",y," = ")
   para x de x ate 1 passo -1 faca
      subtracao <- subtracao 1
      x <- y - x
   fimpara
   escreva(subtracao)

fimalgoritmo

5) Faça um programa que seja capaz de calcular o resultado de uma operação de multiplicação (x vezes y), utilizando-se para isso apenas do operador de soma (+). Ex.: 12 * 3 = 36 = 12+12+12 (3 vezes)

algoritmo "calcular o resultado de uma operação de multiplicação em soma"

var
   x,y, soma, soma:inteiro
inicio
   soma<- 0
   escreva("Entre com um número:")
   leia(x)
   escreva("Entre com um número multiplicador:")
   leia(y)
   escreva(x," x ",y," = ")
      para y de y ate 1 passo -1 faca
       soma <- soma+x

      fimpara
       escreva(soma)

fimalgoritmo

4) Faça um programa para achar todos os números inteiros e positivos entre dois números lidos (N1 e N2), tais que: a) Não terminem em zero; b) Se o dígito à direita for removido, o número restante seja divisor do número original. (ex: 39 (3 é divisor de 39).

algoritmo "Números Inteiros e Positivos "

var

            n, n1, n2, k: inteiro

inicio

            escreva ("Entre com o primeiro número inteiro: ")

            leia (n1)

            escreva ("Entre com o segundo número inteiro: ")

            leia (n2)

            escreval ("Os Números são: ")

            n <- n1

               enquanto n < n2 faca

                    se ((n mod 10) <> 0) entao

                        k <- n div 10

                             se (k <> 0) entao

                                  se ((n mod k) = 0) entao

                                      escreval (n)

                                 fimse

                             fimse

                     fimse

                  n <- n+1

               fimenquanto

fimalgoritmo

3) Faça um programa que, dado um número, imprima a sua tabuada completa.

algoritmo "Tabuada"

var

 i, x, resultado:inteiro

inicio

            escreval ( "Digite o número para a tabuada: ")

             leia (x)

     para i de i ate 10 faca

                      resultado <- x*i

                          escreval (i, "x", x, " = ", resultado)

                 fimpara

fimalgoritmo

Lista dia 25 de outubro - 2) Faça um programa que mostre na tela o(s) número(s) dentro do intervalo entre 600 e 700 que sejam múltiplos de 5 e também de 7.

algoritmo "múltiplos de 5 e 7 no intervalo de 600 à 700"

var

m:inteiro

inicio

            m <- 600

            escreval ("São Múltiplos de 5 e 7:")

                para m de 600 ate 701 faca

                     se (( m mod 5)=0) e  ((m mod 7) = 0) entao

                         escreva (m, " - ")

                     fimse

                     m <- m+1

                fimpara

fimalgoritmo

Lista dia 25 de outubro -1-)Faça um programa que calcule a média aritmética de 35 alunos do curso de Algoritmos. Use comandos de repetição.

algoritmo "Média"

var

media, nota, soma:real

i:inteiro

inicio

   soma <- 0

     para i de 1 ate 35 faca

        escreva("Digite a ", i, " a. nota: ")

        leia (nota)

        soma <- soma+nota

     fimpara

   media<-soma/35

   escreva (" A média dos 35 alunos eh: ", media:5:2)

fimalgoritmo