L6 - 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 "Calcula soma dos anteriores"

Var
    n, soma: inteiro
Inicio
    Escreva("N = ")
    Leia(n)
    soma <- 0
    Enquanto (n>0) FACA
        soma <- soma + n
        n <- n - 1
    Fimenquanto
    Escreva("A soma dos anteriores de N, e: ", soma)
Fimalgoritmo

L6 - 7 - Leia um numero N (inteiro, positivo >5). Depois, leia para um determinado grupo de pessoas (N) as seguintes informações:

Idade, Peso e 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 "estatistica"

Var
    num, i: inteiro
    tentar: literal
    idade, peso: vetor [1..100] de inteiro
    sexo: vetor [1..100] de literal
    mediapeso, numpeso: real
    mediaidade, numidade: real
    acima25: real
Inicio
    tentar<-"s"
    num <- 0
    Enquanto (num<5) e (tentar="s") FACA
        Escreva("Informe o numero de pessoas (maior que 5): ")
        Leia(num)
        Se(num>5)Entao
            tentar<-"n"
        Senao
            Escreval("O numero deve ser maior doque 5 pessoas.")
            Escreva("Gostaria de tentar denovo? (s/n): ")
            Leia(tentar)
            Limpatela
        Fimse
    Fimenquanto
    Se(num>5)Entao
        Para i De 1 Ate num Faca
            Escreva("Digite a Idade ",i, ": ")
            Leia(idade[i])
            Escreva("Digite o Peso ",i, ": ")
            Leia(peso[i])
            Escreva("Digite o Sexo ",i, " (m/f): ")
            Leia(sexo[i])
        Fimpara
        numpeso <- 0
        mediapeso <- 0
        Para i De 1 Ate num Faca
            Se(sexo[i] = "m") Entao
                numpeso <- numpeso + 1
                mediapeso <- mediapeso + peso[i]
            Fimse
        Fimpara
        mediapeso <- mediapeso / numpeso
        numidade <- 0
        mediaidade <- 0
        Para i De 1 Ate num Faca
            Se(sexo[i] = "f") Entao
                numidade <- numidade +1
                mediaidade <- mediaidade + idade[i]
            Fimse
        Fimpara
        mediaidade <- mediaidade/numidade
        acima25 <- 0
        Para i De 1 Ate num Faca
            Se(sexo[i] = "f") e (idade[i] > 25) Entao
                acima25 <- acima25 + 1
            Fimse
        Fimpara
        Escreval("A média dos pesos dos homens e: ",mediapeso, " kgs")
        Escreval("A média das idades das mulheres e:",mediaidade, " anos")
        Escreval("Quantas mulheres acima de 25 anos: ",acima25)
    Senao
        Escreva("Quantidade invalida de pessoas!")
    Fimse
Fimalgoritmo
 Algoritmo Verificado!

L6 - 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 "divide subtraindo"

Var
    num1,num2,res: inteiro
Inicio
    Escreva("Digite dois numeros para serem divididos: ")
    Leia(num1)
    Leia(num2)
    res <- 0
    Se(num2>num1)Entao
    Enquanto(num2>0)Faca
        num2 <- num2 - num1
        res <-res+1
    Fimenquanto
    Senao
        Enquanto(num1>0)Faca
            num1 <- num1 – num2
            res <-res+1
        Fimenquanto
    Fimse
    Escreva("O resultado da divisao e ",res)
Fimalgoritmo

L6 - 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 "calcula multiplicacao"

Var
    num1,num2,res: numerico
Inicio
    Escreva("Digite dois números para serem multiplicados: ")
    Leia(num1)
    Leia(num2)
    res<-0
    Enquanto(num2>0)Faca
        res <- res + num1
        num2 <- num2 - 1
    Fimenquanto
    Escreva("O resultado da multiplicacao e: ",res)
Fimalgoritmo

L6 - 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
    n1,n2,i,j: inteiro
Inicio
    Escreva("Digite os dois numeros: ")
    Leia(n1)
    Leia(n2)
    Se(n2>n1)Entao
    Para i de n1 ate n2 faca
        Se(i>=10)Entao
        j<-i
            Se (i MOD 10 <> 0) Entao
                i<-(i DIV 10)
                Se ((j MOD i)=0)Entao
                    Escreval(j)
                Fimse
            Fimse
        Fimse
    Fimpara
    Senao
        Se(n1>n2)Entao
            Para i de n2 ate n1 faca
                Se(i>=10)Entao
                j<-i
                    Se (i MOD 10 <> 0) Entao
                        i<-(i DIV 10)
                        Se ((j MOD i)=0)Entao
                            Escreval(j)
                        Fimse
                    Fimse
                Fimse
            Fimpara
        Senao
        Escreva("Os números são iguais! (nao possuem intervalo)")
        Fimse
    Fimse
Fimalgoritmo

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

Algoritmo "tabuada"
Var
    i,num,res: inteiro
Inicio
    Leia(num)
    Para i de 0 ate 10 faca
        Res <- num * i
        Escreval(num, " x ",i, " = ",res)
    Fimpara
Fimalgoritmo

L6 - 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 "Multiplos"

Var
    i: inteiro
Inicio
    Para i de 600 ate 700 faca
        Se ((i MOD 5)=0)Entao
                Se((i MOD 7)=0)Entao
                      Escreval(i)
                Fimse
        Fimse
    Fimpara
Fimalgoritmo

L6 - 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 “media”
Var
    media,soma,nota: real
    i: inteiro
Inicio
    soma <- 0
    i <- 1
    Repita
        Escreva(“Informe a nota do “, i, ”o. aluno: ”)
        Leia(nota)
        soma <- soma + nota
        i <- i + 1
    Ate(i>35)
    media <- soma/35
    Escreva(“A media dos 35 alunos e ”, media)
Fimalgoritmo