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

sexta-feira, 17 de setembro de 2010

Exercício cap.3.1

1. Resolva as expressões lógicas:

1. 2 >3                                            2. (6 < 8) ou (3 > 7)

3. não (2 <> 2.0)                             4. 5 >= 6 ou 6 < 7 ou não ( a+ 5 – 6 = 8)onde a = 5

5. ( 34 < 9 e 5 + u = 34) ou (5 = 15/3 e 8 > 12) onde u = 29

Resposta:

1. F
2. V ou F = V
3. ñ F = V
4. F ou V ou V = V
5. ( F e V ) ou ( V e F )
         F      ou     F    = F

Exercício cap.3.2

2. Avalie (forneça o resultado da expressão lógica)

(((5/2 = 5/2) e (3.0 <> 3.1)) ou (5 >= 4)) e (não(5 = 5.0))

mostrando todos os passos utilizados para obtenção da solução.

Resposta:

(((5/2 = 5/2) e (3.0 <> 3.1)) ou (5 >= 4)) e (não(5 = 5.0))
        V         e         V          ou       V      e        F
                        V                         ou               F
                                      =  F

Exercício cap.3.3

3. Quais os valores armazenados em SOMA, NOME e TUDO após executados os passos abaixo,
supondo-se que NUM, X, COR, DIA, TESTE e COD valem, respectivamente, 5, 2, “AZUL”, “TERÇA”,
FALSO e VERDADEIRO?

1. NOME <- DIA
2. SOMA <- (NUM
3. TUDO <- não ((TESTE ou COD) e (X <> NUM))

Resposta:

1. Terça
2. (312.5) + (3) = 315.5
3. ñ ((F) e (V) = V) = ñ V = F
^2/X) + (X + 1)

Exercício cap.3.4


4. Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser
positivo ou zero.


Resposta:

1.  algoritmo "Cálculo"
2.  var
3.   area,raio:real
4.  inicio      

5.        escreva("Digite o valor de raio: ")
6.        leia(raio)
7.      Se ((raio>0) ou (raio=0)) entao
8.        area <- pi*(raio^2)
9.        escreva("Área igual a ",area:5:2)
10.     senao
11.       escreval("O raio precisa ser >=0 ")
12.       escreval("*** F IM ***")
13.     fimse
14. fimalgoritmo


Algoritmo testado no programa VisuAlg.
A variável "pi" não precisa ser declarada no VisuAlg.

Exercício cap.3.5


5. Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do
segundo.


Resposta:1.  algoritmo " São múltiplos ou não múltiplos"
2.  var
3.    x,y:real
4.  inicio
5.    escreval(" São múltiplos ou não múltiplos.")
6.    escreva(" Digite o primeiro número = ")
7.      leia(x)
8.    escreva(" Digite o segundo  número = ")
9.      leia(y)
10.  se ((x>y e ((x mod y)= 0)) entao
11.    escreva ("São múltiplos.")
12.  senao
13.    escreva("Não são múltiplos.")
14.  fimse
15. fimalgoritmo