Escreva um algoritmo que leia as notas das duas primeiras provas de um aluno (p1 e p2) e calcule
qual o valor mínimo da terceira nota (p3), para que este aluno seja aprovado, considerando que
a média aritmética mínima das três provas deva ser 6.0 para que o aluno seja aprovado.
algoritmo "nota final"
var
n1, n2, n3, media:real
inicio
Escreval ("Informe a nota da 1º prova")
leia (n1)
Escreval ("Informe a nota da 2º prova")
leia (n2)
n3<-18- (n1+n2)
escreval (" A nota mínima da prova trÊs para que o aluno seja aprovado eh", n3)
fimalgoritmo
sexta-feira, 1 de outubro de 2010
Cap 3 exercicio 11
Escreva um algoritmo que leia um dia, mês e ano e escreva, para essa data lida, o número de dias transcorridos no ano.
algoritmo "dias corridos"
var
dia,mes,ano,dc,dc2:inteiro
inicio
escreval("Número de dias corridos no ano.")
escreva("Digite o dia = ")
leia(dia)
escreva("Digite o mês = ")
leia(mes)
escreva("Digite o ano = ")
leia(ano)
se ((ano mod 4)=0) e ((ano mod 100)<>0) entao
ano <- 366 senao ano <- 365 fimse se (mes = 12) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- ano-31 fimse se (mes = 11) entao dc <-(ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 10) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 9) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 8) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 7) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 6) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 5) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 4) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 3) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se mes = 2 entao se((ano mod 4)=0)e((ano mod 100)<>0) entao
dc <- (ano-29)
dc <- (dc+dia)
senao
dc <- (ano-28)
dc <- (dc+dia)
fimse
fimse
se mes = 1 entao
dc <- dia
fimse
escreval("Dias corridos é igual a ",dc,".")
escreval("*** F I M ***")
fimalgoritmo
algoritmo "dias corridos"
var
dia,mes,ano,dc,dc2:inteiro
inicio
escreval("Número de dias corridos no ano.")
escreva("Digite o dia = ")
leia(dia)
escreva("Digite o mês = ")
leia(mes)
escreva("Digite o ano = ")
leia(ano)
se ((ano mod 4)=0) e ((ano mod 100)<>0) entao
ano <- 366 senao ano <- 365 fimse se (mes = 12) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- ano-31 fimse se (mes = 11) entao dc <-(ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 10) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 9) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 8) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 7) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 6) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 5) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 4) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 3) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se mes = 2 entao se((ano mod 4)=0)e((ano mod 100)<>0) entao
dc <- (ano-29)
dc <- (dc+dia)
senao
dc <- (ano-28)
dc <- (dc+dia)
fimse
fimse
se mes = 1 entao
dc <- dia
fimse
escreval("Dias corridos é igual a ",dc,".")
escreval("*** F I M ***")
fimalgoritmo
cap 3 exercicio 9
Escreva um algoritmo que implemente uma calculadora de quatro operações. O algoritmo lê o primeiro operando, a operação (algum dos quatro símbolos: “x”, “-“, “
1º operando operação 2º operando = resultado.
Por exemplo, se os valores lidos foram 4, “*” e 5, o algoritmo deve escrever: 4*5 = 20.
Resposta:
algoritmo "Cálculo da calculadora"
var
oper:literal
oper1,oper2,calc1,calc2,calc3,calc4:numerico
inicio
escreval("Cálculo da calculadora")
escreva("Digite o primeiro operando = ")
leia(oper1)
escreva("Digite a operação (+,-,*,/) = ")
leia (oper)
escreva("DIgite o segundo operando = ")
leia(oper2)
se oper= ("+") entao
calc1 <- ((oper1)+(oper2))
escreva(oper1 , oper ,oper2," = ",calc1)
senao
se oper= ("-") entao
calc2 <- ((oper1)-(oper2))
escreva(oper1,oper,oper2," = ",calc2)
senao
se oper=("*") entao
calc3 <- ((oper1)*(oper2))
escreva(oper1,oper,oper2," = ",calc3)
senao
se oper=("/") entao
calc4 <- ((oper1)/(oper2))
escreva(oper1,oper,oper2," = ",calc4)
senao
escreva("Operação não correspondente, tente + , - , * ou / ")
fimse
fimse
fimse
fimse
fimalgoritmo
1º operando operação 2º operando = resultado.
Por exemplo, se os valores lidos foram 4, “*” e 5, o algoritmo deve escrever: 4*5 = 20.
Resposta:
algoritmo "Cálculo da calculadora"
var
oper:literal
oper1,oper2,calc1,calc2,calc3,calc4:numerico
inicio
escreval("Cálculo da calculadora")
escreva("Digite o primeiro operando = ")
leia(oper1)
escreva("Digite a operação (+,-,*,/) = ")
leia (oper)
escreva("DIgite o segundo operando = ")
leia(oper2)
se oper= ("+") entao
calc1 <- ((oper1)+(oper2))
escreva(oper1 , oper ,oper2," = ",calc1)
senao
se oper= ("-") entao
calc2 <- ((oper1)-(oper2))
escreva(oper1,oper,oper2," = ",calc2)
senao
se oper=("*") entao
calc3 <- ((oper1)*(oper2))
escreva(oper1,oper,oper2," = ",calc3)
senao
se oper=("/") entao
calc4 <- ((oper1)/(oper2))
escreva(oper1,oper,oper2," = ",calc4)
senao
escreva("Operação não correspondente, tente + , - , * ou / ")
fimse
fimse
fimse
fimse
fimalgoritmo
cap 3 exercicio 7
algoritmo "valor da compra por cliente"
var
c1,c2,c3,c4,c5:literal
vc1, vc2, vc3, vc4, vc5, valortotal, valormedio, valorminimo:real
inicio
escreval ("Informe o nome do cliente 1")
leia (c1)
Escreval ("Informe o valor gasto pelo cliente 1")
leia (vc1)
escreval ("Informe o nome do cliente 2")
leia (c2)
escreval ("Informe o valor gasto pelo cliente 2")
leia (vc2)
escreval ("Informe o nome do cliente 3")
leia (c3)
Escreval ("Informe o valor gasto pelo cliente 3")
leia (vc3)
escreval ("Informe o nome do cliente 4")
leia (c4)
Escreval ("Informe o valor gasto pelo cliente 4")
leia (vc4)
escreval ("Informe o nome do cliente 5")
leia (c5)
Escreval ("Informe o valor gasto pelo cliente 5")
leia (vc5)
valortotal <-(vc1+vc2+vc3+vc4+vc5)
valormedio <- (valortotal/5)
escreva ("O valor total gasto pelos 5 clientes foi", valortotal,:5:2)
escreva ("O valor médio gasto pelo cliente foi",valormedio, 5:2)
se (vc1>20)entao
escreva (c1)
fimse
se (vc2>20)entao
escreva (c2)
fimse
se (vc3 >20)entao
escreva (c3)
fimse
se (vc4>20)entao
escreva (c4)
fimse
se (vc5>20) entao
escreva (c5)
fimse
fimalgoritmo
var
c1,c2,c3,c4,c5:literal
vc1, vc2, vc3, vc4, vc5, valortotal, valormedio, valorminimo:real
inicio
escreval ("Informe o nome do cliente 1")
leia (c1)
Escreval ("Informe o valor gasto pelo cliente 1")
leia (vc1)
escreval ("Informe o nome do cliente 2")
leia (c2)
escreval ("Informe o valor gasto pelo cliente 2")
leia (vc2)
escreval ("Informe o nome do cliente 3")
leia (c3)
Escreval ("Informe o valor gasto pelo cliente 3")
leia (vc3)
escreval ("Informe o nome do cliente 4")
leia (c4)
Escreval ("Informe o valor gasto pelo cliente 4")
leia (vc4)
escreval ("Informe o nome do cliente 5")
leia (c5)
Escreval ("Informe o valor gasto pelo cliente 5")
leia (vc5)
valortotal <-(vc1+vc2+vc3+vc4+vc5)
valormedio <- (valortotal/5)
escreva ("O valor total gasto pelos 5 clientes foi", valortotal,:5:2)
escreva ("O valor médio gasto pelo cliente foi",valormedio, 5:2)
se (vc1>20)entao
escreva (c1)
fimse
se (vc2>20)entao
escreva (c2)
fimse
se (vc3 >20)entao
escreva (c3)
fimse
se (vc4>20)entao
escreva (c4)
fimse
se (vc5>20) entao
escreva (c5)
fimse
fimalgoritmo
segunda-feira, 27 de setembro de 2010
Cap. 3 exercicio 12
algoritmo "Cálculo da média"
var
n1, n2, n3, media:real
inicio
escreval("Cálculo de média")
escreva("Digite o valor da 1ª nota ")
leia(n1)
escreva("Digite o valor da 2ª nota ")
leia(n2)
escreva("Digite o valor da 3ª nota ")
leia(n3)
media <- ((n1+n2+n3) div 3)
escreva ("A média é: ", media)
fimalgoritmo
var
n1, n2, n3, media:real
inicio
escreval("Cálculo de média")
escreva("Digite o valor da 1ª nota ")
leia(n1)
escreva("Digite o valor da 2ª nota ")
leia(n2)
escreva("Digite o valor da 3ª nota ")
leia(n3)
media <- ((n1+n2+n3) div 3)
escreva ("A média é: ", media)
fimalgoritmo
Cap. 3 exercicio 10
algoritmo "Categoria de um nadador"
var
nome:literal
idade:real
inicio
escreval("Categoria do nadador")
escreval("Informe o nome do competidor")
leia(nome)
escreva(" Digite a idade do(a) nadador(a) - ")
leia(idade)
se ((idade>=5) e (idade<=7)) entao
escreva(" A Categoria de ", nome, " é Infantil A")
senao
se ((idade>7) e (idade<=10)) entao
escreva(" A Categoria de ", nome, " é Infantil B")
senao
se ((idade>10) e (idade<=13)) entao
escreva(" A Categoria de ", nome, " é Juvenil A")
senao
se ((idade>13) e (idade<=17)) entao
escreva( "A Categoria de ", nome, " é Juvenil B")
senao
se (idade>=18) entao
escreva(" A Categoria de ", nome, " é Sênior")
senao
escreva(nome, " não compete")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
var
nome:literal
idade:real
inicio
escreval("Categoria do nadador")
escreval("Informe o nome do competidor")
leia(nome)
escreva(" Digite a idade do(a) nadador(a) - ")
leia(idade)
se ((idade>=5) e (idade<=7)) entao
escreva(" A Categoria de ", nome, " é Infantil A")
senao
se ((idade>7) e (idade<=10)) entao
escreva(" A Categoria de ", nome, " é Infantil B")
senao
se ((idade>10) e (idade<=13)) entao
escreva(" A Categoria de ", nome, " é Juvenil A")
senao
se ((idade>13) e (idade<=17)) entao
escreva( "A Categoria de ", nome, " é Juvenil B")
senao
se (idade>=18) entao
escreva(" A Categoria de ", nome, " é Sênior")
senao
escreva(nome, " não compete")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
Cap 3 - Exercicio 13
algoritmo "cap03 Exer3_13"
var
altura,peso,acimapeso, pesoabaixo,pesoideal:real
sexo:literal
inicio
escreva("Sua altura: ")
leia(altura)
escreva("Seu peso:")
leia(peso)
escreva("Seu sexo:")
leia(sexo)
se ((sexo = "Masculino") ou (sexo = "M")) entao
pesoideal <- ((72.7*altura)-58)
senao
pesoideal <- ((62.1*altura)-44.77)
fimse
se (peso > pesoideal) entao
acimapeso <- (peso-pesoideal)
escreva("'Você está acima do Peso em: '", acimapeso: 5:2,"kg")
escreval
senao
se (peso<pesoideal) entao
pesoabaixo <- (pesoideal - peso)
escreva ("'Você está abaixo do peso em: '", pesoabaixo: 5:2,"Kg")
escreval
fimse
fimse
escreva("Seu peso ideal é: ",pesoideal)
fimalgoritmo
var
altura,peso,acimapeso, pesoabaixo,pesoideal:real
sexo:literal
inicio
escreva("Sua altura: ")
leia(altura)
escreva("Seu peso:")
leia(peso)
escreva("Seu sexo:")
leia(sexo)
se ((sexo = "Masculino") ou (sexo = "M")) entao
pesoideal <- ((72.7*altura)-58)
senao
pesoideal <- ((62.1*altura)-44.77)
fimse
se (peso > pesoideal) entao
acimapeso <- (peso-pesoideal)
escreva("'Você está acima do Peso em: '", acimapeso: 5:2,"kg")
escreval
senao
se (peso<pesoideal) entao
pesoabaixo <- (pesoideal - peso)
escreva ("'Você está abaixo do peso em: '", pesoabaixo: 5:2,"Kg")
escreval
fimse
fimse
escreva("Seu peso ideal é: ",pesoideal)
fimalgoritmo
terça-feira, 21 de setembro de 2010
Cap 3 exercicio 6
a x X + b x y = c
d x X + e x y = f
pode ser resolvido da seguinte forma:
x = c x e - b x f
a x e - b x d
y = a x f – c x d
a x e – b x d
Escreva um algoritmo que leia os coeficientes a, b, c, d e f e calcule e escreva os valores de x e y.
Lembre-se de que os denominadores das equações não podem ser zero.
Resposta:
algoritmo "Exercicio 3.6"
var vA,vB,vC,vD,vE,vF,x,y:real
inicio escreval("Informe o valor de 'a':")
leia(vA)
escreval("Informe o valor de 'b':")
leia(vB)
escreval("Informe o valor de 'c':")
leia(vC)
escreval("Informe o valor de 'd':")
leia(vD)
escreval("Informe o valor de 'e':")
leia(vE)
escreval("Informe o valor de 'f':")
leia(vF)
se (vA=0 ou vE=0) entao
escreva("O valor de 'a' e 'e' não podem ser igual a 0(zero)")
senao
x<- ((vC*vE)-(vB*vF))/((vA*vE)-(vB*vD))
y<- ((vA*vF)-(vC*vD))/((vA*vE)-(vB*vD))
fimse
fimalgoritmo
d x X + e x y = f
pode ser resolvido da seguinte forma:
x = c x e - b x f
a x e - b x d
y = a x f – c x d
a x e – b x d
Escreva um algoritmo que leia os coeficientes a, b, c, d e f e calcule e escreva os valores de x e y.
Lembre-se de que os denominadores das equações não podem ser zero.
Resposta:
algoritmo "Exercicio 3.6"
var vA,vB,vC,vD,vE,vF,x,y:real
inicio escreval("Informe o valor de 'a':")
leia(vA)
escreval("Informe o valor de 'b':")
leia(vB)
escreval("Informe o valor de 'c':")
leia(vC)
escreval("Informe o valor de 'd':")
leia(vD)
escreval("Informe o valor de 'e':")
leia(vE)
escreval("Informe o valor de 'f':")
leia(vF)
se (vA=0 ou vE=0) entao
escreva("O valor de 'a' e 'e' não podem ser igual a 0(zero)")
senao
x<- ((vC*vE)-(vB*vF))/((vA*vE)-(vB*vD))
y<- ((vA*vF)-(vC*vD))/((vA*vE)-(vB*vD))
fimse
fimalgoritmo
Cap 3 exercicio 5
Escreva um algoritmo que lê dois números inteiros e informa se o primeiro é múltiplo do segundo.
algoritmo " São múltiplos ou não múltiplos"var
x,y:real
inicio
escreval(" São múltiplos ou não múltiplos.")
escreva(" Digite o primeiro número = ")
leia(x)
escreva(" Digite o segundo número = ")
leia(y)
se ((x>y e ((x mod y)= 0)) entao
escreva ("São múltiplos.")
senao
escreva("Não são múltiplos.")
fimse
fimalgoritmo
x,y:real
inicio
escreval(" São múltiplos ou não múltiplos.")
escreva(" Digite o primeiro número = ")
leia(x)
escreva(" Digite o segundo número = ")
leia(y)
se ((x>y e ((x mod y)= 0)) entao
escreva ("São múltiplos.")
senao
escreva("Não são múltiplos.")
fimse
fimalgoritmo
Cap 3 - Exercicio 4
Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser.
algoritmo "Cálculo" var area,raio:real inicio
escreva ("Digite o valor de raio: ")
leia (raio)
Se ((raio>0) ou (raio=0)) entao
area <- pi*(raio^2)
escreva ("Área igual a ",area:5:2)
senao
escreval ("O raio precisa ser >=0 ")
escreval ("*** F IM ***")
fimse
fimalgoritmo
algoritmo "Cálculo" var area,raio:real inicio
escreva ("Digite o valor de raio: ")
leia (raio)
Se ((raio>0) ou (raio=0)) entao
area <- pi*(raio^2)
escreva ("Área igual a ",area:5:2)
senao
escreval ("O raio precisa ser >=0 ")
escreval ("*** F IM ***")
fimse
fimalgoritmo
Cap 3 exercicio 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^2/X) + (X + 1) / 3. TUDO <- não ((TESTE ou COD) e (X <> NUM))
1. Terça
2. (312.5) + (3) = 315.5
3. ñ ((F) e (V) = V) = ñ V = F^2/x) + (x+1)
1. Terça
2. (312.5) + (3) = 315.5
3. ñ ((F) e (V) = V) = ñ V = F^2/x) + (x+1)
Cap 3 Exercicio 2
Avalie (forneça o resultado da expressão lógica (((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.
(((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
Exercicio Cap 3 - 1
Resolva as expressões lógicas:
1. 2 >3 - Falso
2. (6 < 8) ou (3 > 7) - Verdadeiro
3. não (2 <> 2.0) - Verdadeiro
4. 5 >= 6 ou 6 < 7 ou não ( a+ 5 – 6 = 8) - Verdadeiro
5. ( 34 < 9 e 5 + u = 34) ou (5 = 15/3 e 8 > 12) onde u = 29 - Falso
segunda-feira, 20 de setembro de 2010
terça-feira, 7 de setembro de 2010
Capt 2 exercicio 18
Uma revenda de carros paga a seus vendedores um salário de X reais por mês, acrescido de uma
comissão de y reais para cada carro vendido e 4% do valor total de vendas. Escreva um algoritmo
que leia o nome do vendedor, seu salário, número de carros que ele vendeu no mês e o valor total
de suas vendas. O algoritmo deve escrever o nome e o salário final do vendedor.
algoritmo "venda de veículos por vendedor"
var
nomeVendedor:literal
salarioInicial, valorTotalVendas, comissaoPorCarro, comissaoTotalVendas, totalComissao, salarioFinal: real
qtdeCarros:inteiro
inicio
escreval("Informe o nome do vendedor:")
leia(nomeVendedor)
escreval("Informe o salário inicial:")
leia(salarioInicial)
escreval("Informe a qtde de carros vendidos:")
leia(qtdeCarros)
escreval("Informe o valor ganho por cada carro vendido:")
leia(comissaoPorCarro)
escreval("Informe o total de vendas:")
leia(valorTotalVendas)
comissaoTotalVendas <- valorTotalVendas * 0.04
totalComissao <- (comissaoPorCarro * qtdeCarros) + comissaoTotalVendas
salarioFinal <- salarioInicial + totalComissao
escreval("O salário total do vendedor ", nomeVendedor, "será de R$", salarioFinal:5:2)
fimalgoritmo
comissão de y reais para cada carro vendido e 4% do valor total de vendas. Escreva um algoritmo
que leia o nome do vendedor, seu salário, número de carros que ele vendeu no mês e o valor total
de suas vendas. O algoritmo deve escrever o nome e o salário final do vendedor.
algoritmo "venda de veículos por vendedor"
var
nomeVendedor:literal
salarioInicial, valorTotalVendas, comissaoPorCarro, comissaoTotalVendas, totalComissao, salarioFinal: real
qtdeCarros:inteiro
inicio
escreval("Informe o nome do vendedor:")
leia(nomeVendedor)
escreval("Informe o salário inicial:")
leia(salarioInicial)
escreval("Informe a qtde de carros vendidos:")
leia(qtdeCarros)
escreval("Informe o valor ganho por cada carro vendido:")
leia(comissaoPorCarro)
escreval("Informe o total de vendas:")
leia(valorTotalVendas)
comissaoTotalVendas <- valorTotalVendas * 0.04
totalComissao <- (comissaoPorCarro * qtdeCarros) + comissaoTotalVendas
salarioFinal <- salarioInicial + totalComissao
escreval("O salário total do vendedor ", nomeVendedor, "será de R$", salarioFinal:5:2)
fimalgoritmo
Capt 2 exercicio 17
Faça um algoritmo que leia o dia do mês ( valor de 1 a 31), e o dia da semana correspondente (1 a
7). O algoritmo deve calcular e escrever o dia da semana (1 a 7) correspondente ao primeiro dia do
mês.
algoritmo "Primeiro dia do mes"
var
diaMes, diaSemana:inteiro
inicio
escreva("Informe o dia do mês (De 1 a 31): ")
leia(diaMes)
escreva("Informe o dia da semana (De 1 a 7): ")
leia(diaSemana)
escreval
escreval("Dia do mês fornecido: ", diaMes)
escreval("Dia da semana fornecido: ", diaSemana)
escreval
//Na ausência de uma fórmula mágica, usarei laço de repetição com estrutura de condição...
enquanto diaMes > 1 faca
diaMes <- diaMes - 1
se (diaSemana = 1) entao
diaSemana <- 7
senao
diaSemana <- diaSemana - 1
fimse
fimenquanto
escreval("O dia da semana correspondente ao primeiro dia do mês é: ", diaSemana)
fimalgoritmo
7). O algoritmo deve calcular e escrever o dia da semana (1 a 7) correspondente ao primeiro dia do
mês.
algoritmo "Primeiro dia do mes"
var
diaMes, diaSemana:inteiro
inicio
escreva("Informe o dia do mês (De 1 a 31): ")
leia(diaMes)
escreva("Informe o dia da semana (De 1 a 7): ")
leia(diaSemana)
escreval
escreval("Dia do mês fornecido: ", diaMes)
escreval("Dia da semana fornecido: ", diaSemana)
escreval
//Na ausência de uma fórmula mágica, usarei laço de repetição com estrutura de condição...
enquanto diaMes > 1 faca
diaMes <- diaMes - 1
se (diaSemana = 1) entao
diaSemana <- 7
senao
diaSemana <- diaSemana - 1
fimse
fimenquanto
escreval("O dia da semana correspondente ao primeiro dia do mês é: ", diaSemana)
fimalgoritmo
Capt2 exercicio 16
Escreva um algoritmo que leia um valor composto apenas de 0’s e 1’s representando um número na
base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base
decimal. A conversão de binário para decimal é feita somando –se os produtos de cada digito do
número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem
peso 2 (2¹), 4 (2²), 8 (2³), etc. Por exemplo 110101 é 53 .
(1×32 + 1x 16 + 0×8 + 1×4 + 0x 2 + 1×1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)
base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base
decimal. A conversão de binário para decimal é feita somando –se os produtos de cada digito do
número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem
peso 2 (2¹), 4 (2²), 8 (2³), etc. Por exemplo 110101 é 53 .
(1×32 + 1x 16 + 0×8 + 1×4 + 0x 2 + 1×1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)
Capt 2 Exercicio 15
Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.
algoritmo "Calculo da área do círculo"
var
r, area:real
inicio
escreva("Informe o Raio do Círculo (r): ")
leia(r)
area <- 3.14 * r^2
escreva("Área do círculo: ", area)
algoritmo "Calculo da área do círculo"
var
r, area:real
inicio
escreva("Informe o Raio do Círculo (r): ")
leia(r)
area <- 3.14 * r^2
escreva("Área do círculo: ", area)
Capt 2 Exercicio 14
Escreva um algoritmo que calcule a quantidade de latas de tinta necessárias e o custo para pintar
tanques cilíndricos de combustível, onde são fornecidos (o algoritmo lê) a altura (h ) e o raio ) e o
raio ( r ) desse cilindro. Sabe-se que a lata de tinta anticorrosiva custa R$ 40.00, cada lata contem 5
litros e cada litro pinta 3 metros quadrados na média. Para que fique bem coberto de tinta, há
necessidade de 2 demãos.
algoritmo "Pintura de Cilindros"
var
totalLitros, qtdeLatas, areaBase, areaLateral, areaTotal, custoTotal, h, r, total:real
inicio
escreval("Pintura de Cilindros")
escreval
escreva("Informe a Altura do Cilindro (h): ")
leia(h)
escreva("Informe o Raio do Cilindro (r): ")
leia(r)
//Calculando quantos metros quadrado tem o cilindro
areaBase <- 3.14 * r^2
areaLateral <- 2 * 3.14 * r * h
areaTotal <- areaLateral + (2 * areaBase)
//Area total / 3 * 2 demãos de tinta
totalLitros <- areaTotal / 3 * 2
qtdeLatas <- totalLitros / 5
custoTotal <- qtdeLatas * 40
escreval("Qtde de Latas de tintas por Tanque: ", qtdeLatas:5:2)
escreva("Valor Total: R$", custoTotal:5:2)
fimalgoritmo
tanques cilíndricos de combustível, onde são fornecidos (o algoritmo lê) a altura (h ) e o raio ) e o
raio ( r ) desse cilindro. Sabe-se que a lata de tinta anticorrosiva custa R$ 40.00, cada lata contem 5
litros e cada litro pinta 3 metros quadrados na média. Para que fique bem coberto de tinta, há
necessidade de 2 demãos.
algoritmo "Pintura de Cilindros"
var
totalLitros, qtdeLatas, areaBase, areaLateral, areaTotal, custoTotal, h, r, total:real
inicio
escreval("Pintura de Cilindros")
escreval
escreva("Informe a Altura do Cilindro (h): ")
leia(h)
escreva("Informe o Raio do Cilindro (r): ")
leia(r)
//Calculando quantos metros quadrado tem o cilindro
areaBase <- 3.14 * r^2
areaLateral <- 2 * 3.14 * r * h
areaTotal <- areaLateral + (2 * areaBase)
//Area total / 3 * 2 demãos de tinta
totalLitros <- areaTotal / 3 * 2
qtdeLatas <- totalLitros / 5
custoTotal <- qtdeLatas * 40
escreval("Qtde de Latas de tintas por Tanque: ", qtdeLatas:5:2)
escreva("Valor Total: R$", custoTotal:5:2)
fimalgoritmo
Capt2 exercicio 13
Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão
geométrica dada por:
an = a1 * q^(n-1)
onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n é o numero de termos.
Os valores de a1, q e n serão fornecidos pelo usuário.
algoritmo "Capítulo 2 - Exercício 13"
var
a1, an, q, n:real
inicio
escreval("Calculo de uma Progressão Geométrica")
escreva("Informe o valor de A1: ")
leia(a1)
escreva("Informe o valor de Q: ")
leia(q)
escreva("Informe o valor de N: ")
leia(n)
an <- a1 * (q^(n-1))
escreval("Valor do termpo An: ", an)
fimalgoritmo
geométrica dada por:
an = a1 * q^(n-1)
onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n é o numero de termos.
Os valores de a1, q e n serão fornecidos pelo usuário.
algoritmo "Capítulo 2 - Exercício 13"
var
a1, an, q, n:real
inicio
escreval("Calculo de uma Progressão Geométrica")
escreva("Informe o valor de A1: ")
leia(a1)
escreva("Informe o valor de Q: ")
leia(q)
escreva("Informe o valor de N: ")
leia(n)
an <- a1 * (q^(n-1))
escreval("Valor do termpo An: ", an)
fimalgoritmo
Capt 2 exercicio12
Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão
aritmética dada pela formula:
sn = ((a1 + an) / 2) * n
Onde a1, é o primeiro termo da progressão, an, é o ultimo e n é o numero de termos, tal que:
n = ((an – a1) / r) + 1
Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.
algoritmo "Calculando a soma da prograssão aritmetica"
var
a1, an, r, sn, n:real
inicio
escreval("Calculando Soma de Progressão Aritmética")
escreva("Informe o valor de a1: ")
leia(a1)
escreva("Informe o valor de an: ")
leia(an)
escreva("Informe o valor de r: ")
n(r)
n <- ((an - a1)/r) + 1
sn <- ((a1 + an)/2) * n
escreval("O valor da soma de N é: ", sn)
fimalgoritmo
aritmética dada pela formula:
sn = ((a1 + an) / 2) * n
Onde a1, é o primeiro termo da progressão, an, é o ultimo e n é o numero de termos, tal que:
n = ((an – a1) / r) + 1
Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.
algoritmo "Calculando a soma da prograssão aritmetica"
var
a1, an, r, sn, n:real
inicio
escreval("Calculando Soma de Progressão Aritmética")
escreva("Informe o valor de a1: ")
leia(a1)
escreva("Informe o valor de an: ")
leia(an)
escreva("Informe o valor de r: ")
n(r)
n <- ((an - a1)/r) + 1
sn <- ((a1 + an)/2) * n
escreval("O valor da soma de N é: ", sn)
fimalgoritmo
cap 2 exercicio 11
Em uma pizzaria, cada tulipa de chope custa R$ 2,80 e, uma pizza mista grande custa R$ 20.00 mais
R$ 1.50 por tipo de cobertura pedida (queijo, presunto, banana, etc.). Uma turma vai à pizzaria e
pede uma determinada quantidade de chopes e pizzas grandes com uma determinada quantidade
de coberturas. Escreva um algoritmo que calcula a conta e, sabendo quantas pessoas estão à mesa,
quanto cada uma deve pagar (não esqueça os 10% do garçom).Algoritmo ("Conta do restaurante")
Algoritmo("conta do restaurante")
Var
tulipa, pizza, cobertura, pessoas, gorjeta, V_tulipa, V_pizza, Valor_Pagar
inicio
escreva ("informe a quantidade de tulipas consumidas")
leia (tulipas)
V_tulipa <-tulipa*2,80
Escreva ("informe a quantidade de pizzas consumidas")
V_pizza <- (pizza*20,00)+(pizza*1,50)
leia (V_pizza)
escreva("informe a quantidade de pessoas")
leia (pessoas)
gorjeta<- 10/100
Valor_pagar <- ((V_tulipa+V_pizza)+gorjeta)/pessoas
Escreva (" o valor que cada pessoa deverá pagar eh", Valor_pagar)
fimalgoritmo
R$ 1.50 por tipo de cobertura pedida (queijo, presunto, banana, etc.). Uma turma vai à pizzaria e
pede uma determinada quantidade de chopes e pizzas grandes com uma determinada quantidade
de coberturas. Escreva um algoritmo que calcula a conta e, sabendo quantas pessoas estão à mesa,
quanto cada uma deve pagar (não esqueça os 10% do garçom).Algoritmo ("Conta do restaurante")
Algoritmo("conta do restaurante")
Var
tulipa, pizza, cobertura, pessoas, gorjeta, V_tulipa, V_pizza, Valor_Pagar
inicio
escreva ("informe a quantidade de tulipas consumidas")
leia (tulipas)
V_tulipa <-tulipa*2,80
Escreva ("informe a quantidade de pizzas consumidas")
V_pizza <- (pizza*20,00)+(pizza*1,50)
leia (V_pizza)
escreva("informe a quantidade de pessoas")
leia (pessoas)
gorjeta<- 10/100
Valor_pagar <- ((V_tulipa+V_pizza)+gorjeta)/pessoas
Escreva (" o valor que cada pessoa deverá pagar eh", Valor_pagar)
fimalgoritmo
Cap 2 exercicio 10
Um representante comercial realizará uma viagem de vários dias com um automóvel, e, após,
deseja saber a quilometragem média por litro de gasolina. Para isso, ele anotará a quilometragem
no velocímetro ao sair de viagem e, depois, a quilometragem na chegada, ele também vai somar
toda gasolina (em litros) usada para abastecer o carro durante a viagem. Escreva um algoritmo que,
a partir desses dados, informe a quilometragem média por litro de gasolina.
algoritmo "
var
distanciaKm, tempoMin, velocidadeMedia:real
nomePiloto:literal
inicio
escreval("Calculando velocidade média do piloto")
escreval
escreva("Informe o nome do piloto: ")
leia(nomePiloto)
escreva("Informe a distância percorrida: ")
leia(distanciaKm)
escreva("Informe o tempo percorrido (Em minutos): ")
leia(tempoMin)
velocidadeMedia <- distanciaKm * (tempoMin / 60)
escreva("A velocidade média do ", nomePiloto, " foi ", velocidadeMedia:5:3, "KM/h")
fimalgoritmo
deseja saber a quilometragem média por litro de gasolina. Para isso, ele anotará a quilometragem
no velocímetro ao sair de viagem e, depois, a quilometragem na chegada, ele também vai somar
toda gasolina (em litros) usada para abastecer o carro durante a viagem. Escreva um algoritmo que,
a partir desses dados, informe a quilometragem média por litro de gasolina.
algoritmo "
var
distanciaKm, tempoMin, velocidadeMedia:real
nomePiloto:literal
inicio
escreval("Calculando velocidade média do piloto")
escreval
escreva("Informe o nome do piloto: ")
leia(nomePiloto)
escreva("Informe a distância percorrida: ")
leia(distanciaKm)
escreva("Informe o tempo percorrido (Em minutos): ")
leia(tempoMin)
velocidadeMedia <- distanciaKm * (tempoMin / 60)
escreva("A velocidade média do ", nomePiloto, " foi ", velocidadeMedia:5:3, "KM/h")
fimalgoritmo
algoritmo "Teste"
var
marca: literal
idade: numérico //numerico é sem acento agudo no E
letra: literal
marca: numérico //já existe uma variável com o nome 'marca'
início //Não tem acento agudo no I
leia(idade)
escreva(idade)
idade = 678
leia(“letra”) //Não está atribuindo valor à nenhuma variável
leia(ABC) //Não existe a variável ABC
escreva (letra) //Letra não recebeu nada
letra <- 4 //Letra é do tipo literal, então não pode receber um valor inteiro
fimalgoritmo
var
marca: literal
idade: numérico //numerico é sem acento agudo no E
letra: literal
marca: numérico //já existe uma variável com o nome 'marca'
início //Não tem acento agudo no I
leia(idade)
escreva(idade)
idade = 678
leia(“letra”) //Não está atribuindo valor à nenhuma variável
leia(ABC) //Não existe a variável ABC
escreva (letra) //Letra não recebeu nada
letra <- 4 //Letra é do tipo literal, então não pode receber um valor inteiro
fimalgoritmo
Capt 2 exercicio 7
Escreva um algoritmo que calcule o valor de base . O algoritmo deve ler o valor da base e do expoente. Após, ele deve escrever o valor de base elevado ao expoente
algoritmo "Calculo da base"
var
base, expoente, total:real
inicio
escreval("Capítulo 2 - Exercício 7")
escreval
escreva("Informe o valor da base: ")
leia(base)
escreva("Informe o valor do expoente: ")
leia(expoente)
total <- base^expoente
escreva("Resultado: ", base, " elevado a ", expoente, " é ", total)
fimalgoritmo
algoritmo "Calculo da base"
var
base, expoente, total:real
inicio
escreval("Capítulo 2 - Exercício 7")
escreval
escreva("Informe o valor da base: ")
leia(base)
escreva("Informe o valor do expoente: ")
leia(expoente)
total <- base^expoente
escreva("Resultado: ", base, " elevado a ", expoente, " é ", total)
fimalgoritmo
Capt 2 exercicio 5
Assinale com um X os nomes de variáveis válidos
1(x) abc 5( )-a 9(x) prim-nom 13(x) 3.1415
2( )3abc 6(x) acd1 10(x) A123 14( ) etc
3(x)a 7( )-_ad 11(x) Aa 15(x) E
4( )123° 8( )A&a 12(x)prim_nom 16( ) "nome"
1(x) abc 5( )-a 9(x) prim-nom 13(x) 3.1415
2( )3abc 6(x) acd1 10(x) A123 14( ) etc
3(x)a 7( )-_ad 11(x) Aa 15(x) E
4( )123° 8( )A&a 12(x)prim_nom 16( ) "nome"
capt 2 - exercicio 4
Classifique os valores das constantes abaixo, de acordo com seu tipo, assinalando com N os dados numéricos e com L os literais:
1(N) 0 5( N) 1012 9( N) 569 13( N)3.1415
2( L) "abc" 6(L ) "V" 10( L)"Zé" 14(N )-545
3( L) "joão" 7( N) -49 11( N) 5. 7 15( L)"444"
4(L ) "falso" 8( N) +342 12(N )0.00001 16( L)"1+2"
1(N) 0 5( N) 1012 9( N) 569 13( N)3.1415
2( L) "abc" 6(L ) "V" 10( L)"Zé" 14(N )-545
3( L) "joão" 7( N) -49 11( N) 5. 7 15( L)"444"
4(L ) "falso" 8( N) +342 12(N )0.00001 16( L)"1+2"
Capt 2 Exercicio 3
Resolva a expressão aritmética abaixo montando todos os passos utilizados para a obtenção da solução:
(20%7) + 7 – 3.0 + 7/2 + (19\5) + (20 + 4)/4*3
algoritmo "Capítulo 2 - Exercício 3"
var
total: numerico
inicio
escreval("resolvendo a expressão aritmetica")
total <- (20%7) + 7 – 3.0 + 7/2 + (19\5) + (20 + 4)/4*3
escreva("O valor da expressão é: ", total)
fimalgoritmo
(20%7) + 7 – 3.0 + 7/2 + (19\5) + (20 + 4)/4*3
algoritmo "Capítulo 2 - Exercício 3"
var
total: numerico
inicio
escreval("resolvendo a expressão aritmetica")
total <- (20%7) + 7 – 3.0 + 7/2 + (19\5) + (20 + 4)/4*3
escreva("O valor da expressão é: ", total)
fimalgoritmo
domingo, 5 de setembro de 2010
Capt 2 exercicio 2
Escreva as expressões abaixo na forma convencional
respostas
1. (12 + 1)/ (4*a/45)^0.5
2. (a + x^(2 + w) -3*a)/2
3. 12*x/(36 – 9^y)
4. (17^0.5 + 4)/3
respostas
1. (12 + 1)/ (4*a/45)^0.5
2. (a + x^(2 + w) -3*a)/2
3. 12*x/(36 – 9^y)
4. (17^0.5 + 4)/3
Capt 2 - Exercicio 6
Assinale com um X os comandos de atribuição considerados inválidos
Respostas dos comandos invalidos:
1- nome <-5
2- Soma <- NUm +2*x
3- Teste <- soma
6- X <- x+ "1"
7- NUM<- "ABC"
9- Soma + 2 <- NUM
10- x <-nome = cor
11- "ABC" <- nome
12- NOME <- DIA + COR
Respostas dos comandos invalidos:
1- nome <-5
2- Soma <- NUm +2*x
3- Teste <- soma
6- X <- x+ "1"
7- NUM<- "ABC"
9- Soma + 2 <- NUM
10- x <-nome = cor
11- "ABC" <- nome
12- NOME <- DIA + COR
Capt 2 - Execicio 1
Escreva as expressões abaixo na forma de sintaxe do Português Estruturado
Respostas
1 – raizq( ((2+x) * x + u) / (a+b+c) )
2 – x^2 + ( (3*(x^(x+1))) / 2 ) + raizq(x+1)
3 – h – ( ((45/7) * x – 4*h*(3+a)) ^3 )
4 – ( -b – (raizq(b^2 – 4*x*a*x*c)) ) / (2*a)
5 – (-raizq((-6^x) + (2*y)) ) / (3^9)
6 – raizq(6) + ((x*y) / (2*x)) + (3^2) – ( (x^2) / 3)
Respostas
1 – raizq( ((2+x) * x + u) / (a+b+c) )
2 – x^2 + ( (3*(x^(x+1))) / 2 ) + raizq(x+1)
3 – h – ( ((45/7) * x – 4*h*(3+a)) ^3 )
4 – ( -b – (raizq(b^2 – 4*x*a*x*c)) ) / (2*a)
5 – (-raizq((-6^x) + (2*y)) ) / (3^9)
6 – raizq(6) + ((x*y) / (2*x)) + (3^2) – ( (x^2) / 3)
20/08 exercico 6 do caderno
Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expresso em segundos e mostre-o expresso em horas, minutos e segundos.
algoritmo "Calcular tempo de trabalho"
var
segundos, minutos, horas, totalSegundos, sobraHoras, sobraMinutos:inteiro
inicio
escreval("Calcular tempo de trabalho")
escreval
escreva("Informe o tempo em Segundos: ")
leia(totalSegundos)
horas <- totalSegundos div 3600
sobraHoras <- totalSegundos - (horas * 3600)
minutos <- sobraHoras div 60
segundos <- sobraHoras - (minutos * 60)
escreva("Tempo de trabalho: ", horas, " hora(s), ", minutos, " minuto(s) e ", segundos, " segundo(s)")
fimalgoritmo
algoritmo "Calcular tempo de trabalho"
var
segundos, minutos, horas, totalSegundos, sobraHoras, sobraMinutos:inteiro
inicio
escreval("Calcular tempo de trabalho")
escreval
escreva("Informe o tempo em Segundos: ")
leia(totalSegundos)
horas <- totalSegundos div 3600
sobraHoras <- totalSegundos - (horas * 3600)
minutos <- sobraHoras div 60
segundos <- sobraHoras - (minutos * 60)
escreva("Tempo de trabalho: ", horas, " hora(s), ", minutos, " minuto(s) e ", segundos, " segundo(s)")
fimalgoritmo
20/08 exercicio 3 do caderno
Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e mostre-a expressa apenas em dias:
algoritmo "Exibir idade da pessoa em dias"
var
dias, meses, anos, total_dias: inteiro
inicio
escreval("Exibir idade da pessoa em dias")
escreval
escreva("Informe um valor para Anos: ")
leia(anos)
escreva("Informe um valor para meses: ")
leia(meses)
escreva("Informe um valor para dias ")
leia(dias)
total_dias <- (anos * 365) + (meses * 30) + dias
escreva("O total de Dias é de: ", total_dias)
fimalgoritmo
algoritmo "Exibir idade da pessoa em dias"
var
dias, meses, anos, total_dias: inteiro
inicio
escreval("Exibir idade da pessoa em dias")
escreval
escreva("Informe um valor para Anos: ")
leia(anos)
escreva("Informe um valor para meses: ")
leia(meses)
escreva("Informe um valor para dias ")
leia(dias)
total_dias <- (anos * 365) + (meses * 30) + dias
escreva("O total de Dias é de: ", total_dias)
fimalgoritmo
20/08 Exercicio 2
Escreva um algoritmo que leia 3 números inteiros positivos (A, B, C) e calcule a seguinte expressão:
D = (R+S)/2, Onde:
R = (A+B)^2
S = (B+C)^2
algoritmo "Calculo da expressão"
var
a, b, c: inteiro
d: real
inicio
escreval("Calculo da expressão")
escreva("Informe o valor de A: ")
leia(a)
escreva("Informe o valor de B: ")
leia(b)
escreva("Informe o valor de C: ")
leia(c)
d <- ( ((a+b)^2) + ((b+c)^2) )/2
escreva("O valor de D é: ", d)
fimalgoritmo
D = (R+S)/2, Onde:
R = (A+B)^2
S = (B+C)^2
algoritmo "Calculo da expressão"
var
a, b, c: inteiro
d: real
inicio
escreval("Calculo da expressão")
escreva("Informe o valor de A: ")
leia(a)
escreva("Informe o valor de B: ")
leia(b)
escreva("Informe o valor de C: ")
leia(c)
d <- ( ((a+b)^2) + ((b+c)^2) )/2
escreva("O valor de D é: ", d)
fimalgoritmo
20/08 Exercicio 1
Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer do plano, P(x1, y1) e P(x2,y2), escreva a distância entre eles.
A formula que efetua tal cálculo é: d=raizq( ((x2-x1)^2) + ((y2-y1)^2) )
algoritmo "Calculando a distância entre dois pontos"
var
x1, x2, y1, y2, distancia: real
início
escreval("Calcular distância entre pontos")
escreva("Qual é o valor de X1? ")
leia(x1)
escreva("Qual é o valor de X2? ")
leia(x2)
escreva("Qual é o valor de Y1? ")
leia(y1)
escreva("Qual é o valor de Y2? ")
leia(y2)
distancia <- (raizq ((x2-x1)^2) + ((y2-y1)^2) )
escreva("A distância entre os dois pontos eh: ", distancia:5:2)
fimalgoritmo
A formula que efetua tal cálculo é: d=raizq( ((x2-x1)^2) + ((y2-y1)^2) )
algoritmo "Calculando a distância entre dois pontos"
var
x1, x2, y1, y2, distancia: real
início
escreval("Calcular distância entre pontos")
escreva("Qual é o valor de X1? ")
leia(x1)
escreva("Qual é o valor de X2? ")
leia(x2)
escreva("Qual é o valor de Y1? ")
leia(y1)
escreva("Qual é o valor de Y2? ")
leia(y2)
distancia <- (raizq ((x2-x1)^2) + ((y2-y1)^2) )
escreva("A distância entre os dois pontos eh: ", distancia:5:2)
fimalgoritmo
exercicio 5 do caderno
Faça um algoritmo que leia as três notas de um aluno e calcule a media final deste aluno, considerar que a media é ponderada e que o peso das notas é 2, 3 e 5 respectivamente.
Algoritmo ("Calculo da media ponderada")
var
n, n2, n3, soma, media_ponderada: real
inicio
Escreval ("calculando a media ponderada")
escreva ("digite a nota 1")
leia (n1)
Escreva ("digite a nota 2")
leia (n2)
escreva ("digite a nota 3")
leia (n3)
soma <- ((n1*2) + (n2*3) + (n3*5))
media_ponderada <- (soma/3)
Escreva (" A media das notas eh", media_ponderada: 5:2)
Fimalgoritmo
Algoritmo ("Calculo da media ponderada")
var
n, n2, n3, soma, media_ponderada: real
inicio
Escreval ("calculando a media ponderada")
escreva ("digite a nota 1")
leia (n1)
Escreva ("digite a nota 2")
leia (n2)
escreva ("digite a nota 3")
leia (n3)
soma <- ((n1*2) + (n2*3) + (n3*5))
media_ponderada <- (soma/3)
Escreva (" A media das notas eh", media_ponderada: 5:2)
Fimalgoritmo
exercicio 4 do caderno
Você possui dois gatose acabou de comprar um pcte de ração (Kg), você deve dividir as porções de ração levando em conta o peso de cada gato. Sabendo que para 1 Kg de gato deverá ser servido 50g de ração diariamente. Faça um algoritmo que solicite o peso de cada gato e o peso do pcte de ração, o algoritmo deverá calcular as porções diária e mostrar o quanto em grmas existe no pcte de ração após 5 dias.
Algoritmo ("calculando o peso dos gatos e da ração")
var
g1, g2, ração, peso_g1, peso_g2, porção_diaria, porção_gatos_periodo, sobra_ração: real
inicio
escreval ("calculando porção diária e sobra da ração")
peso_g1 <- (g1*50g)
peso_g2 <- (g2*50g)
porção_diaria <- (Peso_g1 + peso_g2)
porção_gatos_periodo <- (5*porção_diaria)
sobra <- ((ração*1000)- porção_gatos_periodo)
Escreva ("A sobra no pacote de ração eh", sobra)
fimalgoritmo
Algoritmo ("calculando o peso dos gatos e da ração")
var
g1, g2, ração, peso_g1, peso_g2, porção_diaria, porção_gatos_periodo, sobra_ração: real
inicio
escreval ("calculando porção diária e sobra da ração")
peso_g1 <- (g1*50g)
peso_g2 <- (g2*50g)
porção_diaria <- (Peso_g1 + peso_g2)
porção_gatos_periodo <- (5*porção_diaria)
sobra <- ((ração*1000)- porção_gatos_periodo)
Escreva ("A sobra no pacote de ração eh", sobra)
fimalgoritmo
Exercicio 3 do caderno
calcular a area de um triangulo equilatero, dado somente a base.
algoritmo ("calculo da area")
var
b, h, area: real
inicio
Escreval ("calculando a area de um triangulo equilatero")
escreval ("digite o valor da base")
leia (b)
h <-((b*(raizq 3)/2)
area <- ((b*h)/2)
escreva ("O valor da area eh", area: 5:2)
Fimalgoritmo
algoritmo ("calculo da area")
var
b, h, area: real
inicio
Escreval ("calculando a area de um triangulo equilatero")
escreval ("digite o valor da base")
leia (b)
h <-((b*(raizq 3)/2)
area <- ((b*h)/2)
escreva ("O valor da area eh", area: 5:2)
Fimalgoritmo
Exercicio 2 do caderno
calcule a área do triângulo, você recebe a base e a altura.
Algoritmo ("calculando a area do triangulo")
var
b, h, area: real
inicio
escreval ("calculando a area do triangulo")
escreva ("informe o valor da base do triangulo")
leia (b)
escreva ("informe o valor da altura do triangulo")
leia (h)
area <- (b.h/2)
escreva ("O valor da area do triangulo eh", area: 5:2)
Fimalgoritmo
Algoritmo ("calculando a area do triangulo")
var
b, h, area: real
inicio
escreval ("calculando a area do triangulo")
escreva ("informe o valor da base do triangulo")
leia (b)
escreva ("informe o valor da altura do triangulo")
leia (h)
area <- (b.h/2)
escreva ("O valor da area do triangulo eh", area: 5:2)
Fimalgoritmo
Exercicio 1 do caderno
Dado três notas, calcule a média e mostre essa média.
Algoritmo ("***Calculo da média***")
var
n1, n2, n3, media: real
inicio
escreval ("calculando a média")
escreval ("digite a primeira nota")
leia (n1)
escreval ("digite a segunda nota")
leia (n2)
Escreval ("digite a terceira nota")
leia (n3)
media <-(n1+n2+n3/3)
Escreva ("A media das notas eh", media: 5:2)
fimalgoritmo
Algoritmo ("***Calculo da média***")
var
n1, n2, n3, media: real
inicio
escreval ("calculando a média")
escreval ("digite a primeira nota")
leia (n1)
escreval ("digite a segunda nota")
leia (n2)
Escreval ("digite a terceira nota")
leia (n3)
media <-(n1+n2+n3/3)
Escreva ("A media das notas eh", media: 5:2)
fimalgoritmo
segunda-feira, 16 de agosto de 2010
Lista de Exercícios - (Fundamentos da computação)
1. O que você entende por Computação?
É o processamento de dados que resultam numa informação.
2. O que é um computador? Ilustre aplicações nas quais o uso do computador se torne necessário.
È uma máquina capaz de receber dados, armazena-los e processa-los de forma que se obtenha um resultado que é a saída das informações, porém é necessário que exista uma pessoa que impute esses dados de forma a ordená-lo a cumprir certa tarefa.
3. Descreva, em linhas gerais, os termos a seguir e dê um exemplo de objeto ou dispositivo associado a cada um deles:
a) Processamento: Responsável por processar e organizar dados, afim de gerar a informação Ex: Processador
b) Entrada: Dispositivo que recebe os dados, EX: Teclado
c) Saída: Dispositivo que envia a informação pronta: EX: Impressora
d) Armazenamento: Dispositivo que armazena os dados ou informações. EX: Placa de memória.
4. Qual foi a primeira máquina capaz de realizar cálculos?
Máquina de Pascoal
5. O que caracterizou “A loucura de Babbage”?
O desenvolvimento de um projeto muito avançado para aquela época, ele projetou o que seria o computador para os dias de hoje.
6. O que representam Ada Byron King e Grace Murray Hopper na evolução da computação?
Umas das poucas mulheres da história a criarem sistemas de programação.
7. Como eram os primeiros computadores?
8. Quem criou o primeiro computador mecânico? Como ele era fabricado? Como ele funcionava?
Charles Babbage inventou 2 maquinas o Analytical Engine Uma para a matemática e a de Engenharia Diferencial, a Máquina Analítica envolvia muitos processos dos computadores eletrônicos do passado – usava o cartão perfurado para a entrada de dados.
9. Qual o grande feito do Inglês George Boole?
Ele publicou em 1854 os princípios da lógica booleana, onde as váriaveis assumiam os valores 0 e 1, que seria o conceito de falso e verdadeiro, que passamos a utilizar após o século XX.
10. O que representou Alan Turing para a computação?
Ele desenvolveu e criou a primeiro equipamento eletronico digital capaz de decifrar códigos militares dos alemães, foi influente no desenvolvimento da ciência da computação e proporcionou uma formalização do conceito de algoritmo.
11. O que caracterizava o Teste de Turing?
Era um teste proposto por Alan Turing cujo o objetivo era determinar se um programa de computador era inteligente suficiente para que as pessoas não soubessem diferenciar se a resposta de um questionário proposto foi respondido por um ser humano ou por um computador.
12. Quais as características do primeiro computador eletromecânico?
Eles trabalhavam com base Dez (Decimal), eram de grande porte, funcionavam com válvulas, não tinham uma mémoria central, porém armazenavam até 20 números de 10 dígitos, e eram predispostos à muitas falhas.
13. Quais eram as características básicas da arquitetura proposta por John Von Neumann?
Ele propôs que fosse criado um computador que fosse separado por uma memória principal, uma unidade de controle, uma unidade de lógica e aritmética e componentes de entrada e saída, ele propôs ainda que as instruções lidas através de fitas perfuradas ficassem gravadas na memoria do computador, agilizando os processos já que os dados já estavam armazenados electronicamente, dessa forma ele criou o conceito do que seria o computador até os dias de hoje.
14. O que significava a seguinte expressão: “O computador processaria os dados de acordo com as necessidades do usuário”?
15. Por que foram criadas as linguagens de programação?
Para que fossem imputados dados ou informações na linguagem do próprio computador, dessa forma a linguagem de programação seria uma forma padronizada de expressar instruções para um computador.
16. O que foi o Memex?
Foi um dispositivo imaginado pelo cientista Vannevar Bush , que funcionaria a partir de associação à mente humana e que partiria de um banco de dados. Dessa forma estava imaginada um dispositivo que acoplado à uma tela (que hoje seria um monitor) e caixas de som, sendo possível interagir com a máquina.
17. O que marcou o início da "Era do Computador?
18. Qual foi o primeiro computador comercializado?
UNIVAC I
19. Qual a diferença entre linguagem de alto nível e linguagem de máquina?
A linguagem de alto nível é aquela com a que nós nos comunicamos e linguagem da máquina é aquela que o processador entende, e que seria considerada de baixo nível como falso e verdadeiro ou 0 e 1.
20. O código ASCII foi criado em 1963,para que ele era utilizado?
Para a comunicação a longa distância
21. Quais as antecessoras da Internet?
A ARPANET e a NSFNET
22. Quais as características do Apple II?
Foi o 1° computador lançado com gabinete de plástico e teclado incorporado, ele possuía também uma memoria de 48 KiB, podendo ser expandida para até 64 KiB
23. Em 1981 a IBM introduziu o PC no mercado, qual o software básico deste PC?
O software utilizado pelo PC da IBM foi o MS-DOS (Microsoft Disk Operating System)
24. Em 1990 a Microsoft teve um de impacto,qual?
A primeira versão do Windows, o Windows 3.0
25. O Que quer dizer WWW? E HTML?
WWW - significa "World Wide Web” – que traduzindo quer dizer “ O largo mundo da WEB” e é utilizada para nomear servidores de página da WEB do mundo todo.
HTML - significa lançamento HyperText Markup Language – que traduzindo quer dizer - Linguagem de Formatação de Hipertexto. Trata-se de uma linguagem de marcação utilizada para produzir páginas na Internet. De modo geral são documentos de texto escritos em códigos que podem ser interpretados pelos browsers para exibir as páginas da Internet
26. O que é um sistema de Computação?
È um sistema que permite realizar tarefas de forma ordenada a fim de se conseguir um objetivo conforme a necessidade do usuário, de uma forma geral seria o
processo de imputar os dados, processa-los e transforma-los num resultado com o intuito de agilizar tarefas ou tomar decisões
27. Quais os componentes de um sistema de computação?
São dois competentes o Hardware e o Software
28. Como podem ser classificados os computadores quanto à característica de construção, quanto ao princípio de construção (natureza), quanto ao âmbito e quanto ao porte? Descreva as características de cada uma das categorias.
1° geração (anos 50): Componente básico: Válvula, Grandes dimensões, aquecimento relevante, gasto significativo com energia eletrica, Ocupação de espaço físico considerável e utilização de dispositivos primitivos de E/S – uso de fita de papel e cartão perfurado. Domínio restrito e uso em aplicações cientificas e militares, utilização da linguagem de máquina, operações internas medidas em ms (milissegundos)
2° geração ( 1° metade dos anos 60) : Componente básico: transitor, menor dimensão em relação à válvulas, menor aquecimento, menos gasto com energia eletrica, maior durabilidade, Redução da dimensão dos equipamentos, Surgimentos das primeiras LP, além de núcleos de ferrite, uso de fitas e tambores magnéticos como dispositivos de armazenamento, operações internas medidas em us (Microssegundos)
3° geração (meados dos anos 60 e meados dos anos 70) : Surgimentos dos circuitos integrados, Componente básico SI (Chip) - Redução das dimensões e elevação do desempenho, Evolução dos sistemas operacionais, Advento da multiprogramação do processamento em tempo real e de modo interativo, uso de semicondutores e discos magnéticos como dispositivos de armazenamento, operações internas medidas em ns (nanossegundos)
4° geração (meados dos anos 70 ao inicio dos anos 90) : Surgimentos de microprocessadores – Componente básico – VLSI (pastilha de silício contendo milhares de transitares), miniaturização dos computadores, advento dos computadores pessoais (PC), Surgimento de diversos LP de alto nível, nascimento da teleinformática com a implantação das transmissões de dados via redes de computadores, operações internas medidas em ps (picossegundos)
5° geração (Inicio dos anos 9 aos dias atuais) : Obsolescência do conceito de geração, componente básico: ULSI – (pastilha de silício contento milhares de transitores), aplicação de linguagem natural, processamento paralelo e inteligência artificial, velocidade de processamento bem elevada, alto grau de interatividade.
29. Quais são, na sua opinião, as razões pelas quais a revolução dos computadores progrediu tanto em tempo tão curto?
O crescimentos da população, avanço da ciência, investimento dos governos
30. Para onde você acha que caminha o futuro dos computadores? Quais os fatores que você levou em consideração para formar a sua opinião?
Pela história da evolução desses equipamentos, acreditamos que os próximos computadores serão ainda menores, sistemas muito mais acessíveis à todas as classes sociais, as pessoas serão aproximadas ainda mais, interagindo umas com as outras, independendo do tipo de classe social e etnia, custos de serviços como Internet e programações mais baixos e muita concorrência para novos lançamentos de Software e Hardware..
É o processamento de dados que resultam numa informação.
2. O que é um computador? Ilustre aplicações nas quais o uso do computador se torne necessário.
È uma máquina capaz de receber dados, armazena-los e processa-los de forma que se obtenha um resultado que é a saída das informações, porém é necessário que exista uma pessoa que impute esses dados de forma a ordená-lo a cumprir certa tarefa.
3. Descreva, em linhas gerais, os termos a seguir e dê um exemplo de objeto ou dispositivo associado a cada um deles:
a) Processamento: Responsável por processar e organizar dados, afim de gerar a informação Ex: Processador
b) Entrada: Dispositivo que recebe os dados, EX: Teclado
c) Saída: Dispositivo que envia a informação pronta: EX: Impressora
d) Armazenamento: Dispositivo que armazena os dados ou informações. EX: Placa de memória.
4. Qual foi a primeira máquina capaz de realizar cálculos?
Máquina de Pascoal
5. O que caracterizou “A loucura de Babbage”?
O desenvolvimento de um projeto muito avançado para aquela época, ele projetou o que seria o computador para os dias de hoje.
6. O que representam Ada Byron King e Grace Murray Hopper na evolução da computação?
Umas das poucas mulheres da história a criarem sistemas de programação.
7. Como eram os primeiros computadores?
8. Quem criou o primeiro computador mecânico? Como ele era fabricado? Como ele funcionava?
Charles Babbage inventou 2 maquinas o Analytical Engine Uma para a matemática e a de Engenharia Diferencial, a Máquina Analítica envolvia muitos processos dos computadores eletrônicos do passado – usava o cartão perfurado para a entrada de dados.
9. Qual o grande feito do Inglês George Boole?
Ele publicou em 1854 os princípios da lógica booleana, onde as váriaveis assumiam os valores 0 e 1, que seria o conceito de falso e verdadeiro, que passamos a utilizar após o século XX.
10. O que representou Alan Turing para a computação?
Ele desenvolveu e criou a primeiro equipamento eletronico digital capaz de decifrar códigos militares dos alemães, foi influente no desenvolvimento da ciência da computação e proporcionou uma formalização do conceito de algoritmo.
11. O que caracterizava o Teste de Turing?
Era um teste proposto por Alan Turing cujo o objetivo era determinar se um programa de computador era inteligente suficiente para que as pessoas não soubessem diferenciar se a resposta de um questionário proposto foi respondido por um ser humano ou por um computador.
12. Quais as características do primeiro computador eletromecânico?
Eles trabalhavam com base Dez (Decimal), eram de grande porte, funcionavam com válvulas, não tinham uma mémoria central, porém armazenavam até 20 números de 10 dígitos, e eram predispostos à muitas falhas.
13. Quais eram as características básicas da arquitetura proposta por John Von Neumann?
Ele propôs que fosse criado um computador que fosse separado por uma memória principal, uma unidade de controle, uma unidade de lógica e aritmética e componentes de entrada e saída, ele propôs ainda que as instruções lidas através de fitas perfuradas ficassem gravadas na memoria do computador, agilizando os processos já que os dados já estavam armazenados electronicamente, dessa forma ele criou o conceito do que seria o computador até os dias de hoje.
14. O que significava a seguinte expressão: “O computador processaria os dados de acordo com as necessidades do usuário”?
15. Por que foram criadas as linguagens de programação?
Para que fossem imputados dados ou informações na linguagem do próprio computador, dessa forma a linguagem de programação seria uma forma padronizada de expressar instruções para um computador.
16. O que foi o Memex?
Foi um dispositivo imaginado pelo cientista Vannevar Bush , que funcionaria a partir de associação à mente humana e que partiria de um banco de dados. Dessa forma estava imaginada um dispositivo que acoplado à uma tela (que hoje seria um monitor) e caixas de som, sendo possível interagir com a máquina.
17. O que marcou o início da "Era do Computador?
18. Qual foi o primeiro computador comercializado?
UNIVAC I
19. Qual a diferença entre linguagem de alto nível e linguagem de máquina?
A linguagem de alto nível é aquela com a que nós nos comunicamos e linguagem da máquina é aquela que o processador entende, e que seria considerada de baixo nível como falso e verdadeiro ou 0 e 1.
20. O código ASCII foi criado em 1963,para que ele era utilizado?
Para a comunicação a longa distância
21. Quais as antecessoras da Internet?
A ARPANET e a NSFNET
22. Quais as características do Apple II?
Foi o 1° computador lançado com gabinete de plástico e teclado incorporado, ele possuía também uma memoria de 48 KiB, podendo ser expandida para até 64 KiB
23. Em 1981 a IBM introduziu o PC no mercado, qual o software básico deste PC?
O software utilizado pelo PC da IBM foi o MS-DOS (Microsoft Disk Operating System)
24. Em 1990 a Microsoft teve um de impacto,qual?
A primeira versão do Windows, o Windows 3.0
25. O Que quer dizer WWW? E HTML?
WWW - significa "World Wide Web” – que traduzindo quer dizer “ O largo mundo da WEB” e é utilizada para nomear servidores de página da WEB do mundo todo.
HTML - significa lançamento HyperText Markup Language – que traduzindo quer dizer - Linguagem de Formatação de Hipertexto. Trata-se de uma linguagem de marcação utilizada para produzir páginas na Internet. De modo geral são documentos de texto escritos em códigos que podem ser interpretados pelos browsers para exibir as páginas da Internet
26. O que é um sistema de Computação?
È um sistema que permite realizar tarefas de forma ordenada a fim de se conseguir um objetivo conforme a necessidade do usuário, de uma forma geral seria o
processo de imputar os dados, processa-los e transforma-los num resultado com o intuito de agilizar tarefas ou tomar decisões
27. Quais os componentes de um sistema de computação?
São dois competentes o Hardware e o Software
28. Como podem ser classificados os computadores quanto à característica de construção, quanto ao princípio de construção (natureza), quanto ao âmbito e quanto ao porte? Descreva as características de cada uma das categorias.
1° geração (anos 50): Componente básico: Válvula, Grandes dimensões, aquecimento relevante, gasto significativo com energia eletrica, Ocupação de espaço físico considerável e utilização de dispositivos primitivos de E/S – uso de fita de papel e cartão perfurado. Domínio restrito e uso em aplicações cientificas e militares, utilização da linguagem de máquina, operações internas medidas em ms (milissegundos)
2° geração ( 1° metade dos anos 60) : Componente básico: transitor, menor dimensão em relação à válvulas, menor aquecimento, menos gasto com energia eletrica, maior durabilidade, Redução da dimensão dos equipamentos, Surgimentos das primeiras LP, além de núcleos de ferrite, uso de fitas e tambores magnéticos como dispositivos de armazenamento, operações internas medidas em us (Microssegundos)
3° geração (meados dos anos 60 e meados dos anos 70) : Surgimentos dos circuitos integrados, Componente básico SI (Chip) - Redução das dimensões e elevação do desempenho, Evolução dos sistemas operacionais, Advento da multiprogramação do processamento em tempo real e de modo interativo, uso de semicondutores e discos magnéticos como dispositivos de armazenamento, operações internas medidas em ns (nanossegundos)
4° geração (meados dos anos 70 ao inicio dos anos 90) : Surgimentos de microprocessadores – Componente básico – VLSI (pastilha de silício contendo milhares de transitares), miniaturização dos computadores, advento dos computadores pessoais (PC), Surgimento de diversos LP de alto nível, nascimento da teleinformática com a implantação das transmissões de dados via redes de computadores, operações internas medidas em ps (picossegundos)
5° geração (Inicio dos anos 9 aos dias atuais) : Obsolescência do conceito de geração, componente básico: ULSI – (pastilha de silício contento milhares de transitores), aplicação de linguagem natural, processamento paralelo e inteligência artificial, velocidade de processamento bem elevada, alto grau de interatividade.
29. Quais são, na sua opinião, as razões pelas quais a revolução dos computadores progrediu tanto em tempo tão curto?
O crescimentos da população, avanço da ciência, investimento dos governos
30. Para onde você acha que caminha o futuro dos computadores? Quais os fatores que você levou em consideração para formar a sua opinião?
Pela história da evolução desses equipamentos, acreditamos que os próximos computadores serão ainda menores, sistemas muito mais acessíveis à todas as classes sociais, as pessoas serão aproximadas ainda mais, interagindo umas com as outras, independendo do tipo de classe social e etnia, custos de serviços como Internet e programações mais baixos e muita concorrência para novos lançamentos de Software e Hardware..
Assinar:
Postagens (Atom)