terça-feira, 2 de novembro de 2010

Algoritmos e LD1 exercício 1

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


Resposta:



algoritmo "1"


var
   media, m :real
   i :inteiro
inicio
   para i de 1 ate 35 passo 1 faca
        escreval("Digite a media do ",i,"∫ aluno: ")
        leia(m)
        media<- media+m
   fimpara
   escreva("A media aritmÈtica dos alunos desse curso È: ",(media/35):5:2)
fimalgoritmo

Algoritmos e LD1 exercício 2

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.


Resposta:



algoritmo "25 Outubro 2"

var
   n:inteiro
inicio
   escreval("Dentro do intervalo entre 600 e 700, os seguintes numeros são multiplos de 5 e 7:")
   para n de 600 ate 700 passo 1 faca
        se ((n mod 5) = 0) entao
           se ((n mod 7) = 0) entao
              escreval(n)
           fimse
        fimse
   fimpara
fimalgoritmo

Algoritmos e LD1 exercício 3

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


Resposta:



algoritmo "3"

var
   n:inteiro
   i:inteiro
inicio

  escreva("Digite um numero: ")
  leia(n)

  para i de 1 ate 10 faca
   escreval(i," x ",n," = ",i*n)
  fimpara
                                               
fimalgoritmo

Algoritmos e LD1 exercício 4

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).


Resposta:

algoritmo "4"
var
n1,n2, p,n:inteiro
inicio
      escreva("Digite o 1º numero: ")
      leia(n1)
      escreva("Digite o 2º numero: ")
      leia(n2)
       n<-n1
       repita
        se((n mod 10) <> 0) entao
         p<-n div 10
          se (p <> 0) entao
           se ((n mod p)=0) entao
            escreval (n)
           fimse
          fimse
        fimse
       n<-n+1
      ate(n>n2)
fimalgoritmo

Algoritmos e LD1 exercício 5

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)


Resposta:



algoritmo "5"

var
   i,n,soma:inteiro
inicio
   soma<- 0
   escreva("Digite um numero: ")
   leia(n)
   escreva("Digite um multiplicador: ")
   leia(i)
   escreva(n," vezes ",i," é igual a ")
   para i de i ate 1 passo -1 faca
      soma<-soma+n
   fimpara
   escreva(soma)
fimalgoritmo

Algoritmos e LD1 exercício 6

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)


Resposta:

algoritmo "6"

var
   i,n,x:inteiro
inicio
   x <- 0
   escreva("Digite um número: ")
   leia(n)
   escreva("Digite um divisor: ")
   leia(i)
   escreva (n," dividido por ",i," é igual a ")
   enquanto (n >= i) faca
      x <- x+1
      n <- n - i
   fimenquanto
   escreva(x)
fimalgoritmo

Algoritmos e LD1 exercício 7

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;




Resposta:




algoritmo "7"

var
   S:literal
   qntdM,qntdF,idadeF,idade,F25,n:inteiro
   P,pesoM:real
inicio
   idade <-1
   qntdF <-0
   pesoM <-0
   escreva("Informe quantas pessoas tem no grupo: ")
   leia(n)
   escreval ()
   se (n > 5) entao
      para n de n ate 1 passo -1 faca
         escreva("Digite o sexo M ou F: ")
         leia(S)
         se ( S = "M") entao
            qntdM <- qntdM +1
            escreva("Digite o peso : ")
            leia(P)
            pesoM<- pesoM + P
            escreva("Digite a idade: ")
            leia(idade)
         senao
          se ( S = "F") entao
            qntdf <- qntdf +1
            escreva("Digite o peso  : ")
            leia(P)
            escreva("Digite a idade : ")
            leia(idade)
            idadef<- idadef + idade
            se (idade > 25) entao
               F25 <- F25 + 1
            fimse
          fimse
         fimse
      fimpara
      escreval()
      escreval("A média dos  pesos dos homens  é  :",pesoM/qntdM:5:1)
      escreval("A média das idades das mulheres é :",idadeF/qntdF:5:0)
      escreval("Quantidade de mulheres acima de 25 anos: ",F25)
   senao
      escreval("O grupo deve ter mais que 5 cinco pessoas.")
   fimse
fimalgoritmo


Algoritmos e LD1 exercício 8

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


Resposta:



algoritmo "8"

var
   i,x:inteiro
inicio
   x <-0
   escreva("Digite o numero: ")
   leia (i)
   para i de i ate 1 passo - 1 faca
      x <- x + i
   fimpara
   escreval("Resultado: ",x)
fimalgoritmo