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
sexta-feira, 1 de outubro de 2010
Escreva um algoritmo que leia as notas das três provas de um aluno (p1, p2 e p3), calcule sua média aritmética e escreva-a. As notas devem estar no intervalo [0,10].
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
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"3.11"
var dia, mes, ano, calc1, calc2:inteiro
inicio escreval("Digite o ano")
leia(ano)
escreval("Digite o mês")
leia(mes)
escreval("Digite o dia")
leia(dia)
calc1<-mes*30
calc2<-dia+calc1
escreva("O total de dias transcorridos até agora somam ",calc2)
fimalgoritmo
var dia, mes, ano, calc1, calc2:inteiro
inicio escreval("Digite o ano")
leia(ano)
escreval("Digite o mês")
leia(mes)
escreval("Digite o dia")
leia(dia)
calc1<-mes*30
calc2<-dia+calc1
escreva("O total de dias transcorridos até agora somam ",calc2)
fimalgoritmo
Escreva um algoritmo que leia o nome de um nadador e sua idade. O algoritmo deve escrever
A categoria de Marcos é INFANTIL B
A categoria é determinada conforme abaixo:
nadadores com idade entre 5 e 7 anos são da categoria INFANTIL A;
nadadores com idade entre 8 e 10 anos são da categoria INFANTIL B;
nadadores com idade entre 11 e 13 anos são da categoria JUVENIL A;
nadadores com idade entre 14 e 18 anos são da categoria JUVENIL B;e
nadadores com idade superior a 18 anos são da categoria SÊNIOR;
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
A categoria é determinada conforme abaixo:
nadadores com idade entre 5 e 7 anos são da categoria INFANTIL A;
nadadores com idade entre 8 e 10 anos são da categoria INFANTIL B;
nadadores com idade entre 11 e 13 anos são da categoria JUVENIL A;
nadadores com idade entre 14 e 18 anos são da categoria JUVENIL B;e
nadadores com idade superior a 18 anos são da categoria SÊNIOR;
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
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”, “-“, “*”, ou “/”) e o segundo operando. Ele deve escrever 1º operando operação 2º operando = resultado. Por exemplo, se os valores lidos foram 4, “*” e 5, o algoritmo deve escrever 4*5 = 20.
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 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
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 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
Seja o seguinte algoritmo:
01. algoritmo “Dec2Bin”
02. var
03. b: literal
04. n, q, r: numérico
05. início
06. b <- “ “
07. escreva(“Entre com um número”)
08. leia(n)
09. q <- n
10. r<- q%2
11. q <- q\2
12. se r = 0 então
13. b <- “0” + b
14. senão
15. b <- “1” + b
16. fimse
17. r <- q%2
18. q <- q\2
19. se r = 0 então
20. b <- “0” + b
21. senão
22. b <- “1” + b
23. fimse
24. r <- q%2
25. q <- q\2
26. se r = 0 então
27. b <- “0” + b
28. senão
29. b <- “1” + b
30. fimse
31. r <- q%2
32. q <- q\2
33. se r = 0 então
34. b <- “0” + b
35. senão
36. b <- “1” + b
37. fimse
38. r <- q%2
39. q <- q\2
40. se r = 0 então
41. b <- “0” + b
42. senão
43. b <- “1” + b
44. fimse
45. escreva(n, “ em decimal é representado por “, b, “ em binário”)
46. fimalgoritmo
O que será escrito na tela, supondo que o valor de n é 29?
Mostre o teste de mesa utilizado para determinar o valor de b.
--------------------------------------------------------------------------------------------------------
02. var
03. b: literal
04. n, q, r: numérico
05. início
06. b <- “ “
07. escreva(“Entre com um número”)
08. leia(n)
09. q <- n
10. r<- q%2
11. q <- q\2
12. se r = 0 então
13. b <- “0” + b
14. senão
15. b <- “1” + b
16. fimse
17. r <- q%2
18. q <- q\2
19. se r = 0 então
20. b <- “0” + b
21. senão
22. b <- “1” + b
23. fimse
24. r <- q%2
25. q <- q\2
26. se r = 0 então
27. b <- “0” + b
28. senão
29. b <- “1” + b
30. fimse
31. r <- q%2
32. q <- q\2
33. se r = 0 então
34. b <- “0” + b
35. senão
36. b <- “1” + b
37. fimse
38. r <- q%2
39. q <- q\2
40. se r = 0 então
41. b <- “0” + b
42. senão
43. b <- “1” + b
44. fimse
45. escreva(n, “ em decimal é representado por “, b, “ em binário”)
46. fimalgoritmo
O que será escrito na tela, supondo que o valor de n é 29?
Mostre o teste de mesa utilizado para determinar o valor de b.
--------------------------------------------------------------------------------------------------------
29 em decimal é representado por 11101 em binário.
Escreva um algoritmo que leia o nome de cinco clientes de uma loja e valor (em reais) que cada um desses clientes pagou por sua compra. O algoritmo deverá escrever:
1. o valor total pago pelos cinco clientes;
2. o valor médio das compras efetuadas;
3. os nomes dos clientes que efetuaram compras superiores a 20 reais.
--------------------------------------------------------------------------------------------------------
2. o valor médio das compras efetuadas;
3. os nomes dos clientes que efetuaram compras superiores a 20 reais.
--------------------------------------------------------------------------------------------------------
algoritmo "Cliente"
var
c1,c2,c3,c4,c5:literal
vcc1,vcc2,vcc3,vcc4,vcc5:real
vtt,media:real
inicio
escreval("CLiente (valor total, média, compras acimas de 20 reais).")
escreva("Digite o nome do primeiro cliente = ")
leia(c1)
escreva("Digite o valor da compra do primeiro cliente = ")
leia(vcc1)
escreva("Digite o nome do segundo cliente = ")
leia(c2)
escreva("Digite o valor da compra do segundo cliente = ")
leia(vcc2)
escreva("Digite o nome do terceiro cliente = ")
leia(c3)
escreva("Digite o valor da compra do terceiro cliente = ")
leia(vcc3)
escreva("Digite o nome do quarto cliente = ")
leia(c4)
escreva("Digite o valor da compra do quarto cliente = ")23. leia(vcc4)
escreva("Digite o nome do quinto cliente = ")
leia(c5)
escreva("Digite o valor da compra do quinto cliente = ")
leia(vcc5)
vtt <- vcc1+vcc2+vcc3+vcc4+vcc5
media <- vtt/5
escreval("O valor total pago pelos cinco clientes é igual a = ",vtt:5:2)
escreval("O valor médio das compras efetuadas é igual a ",media:5:2)
escreval("Os nomes dos clientes que efetuaram compras superiores a 20 reais, são: ")
se vcc1>20 entao
escreval(c1)
fimse
se vcc2>20 entao
escreval(c2)
fimse
se vcc3>20 entao
escreval(c3)
fimse
se vcc4>20 entao
escreval(c4)
fimse
se vcc5>20 entao
escreval(c5)
fimse
fimalgoritmo
var
c1,c2,c3,c4,c5:literal
vcc1,vcc2,vcc3,vcc4,vcc5:real
vtt,media:real
inicio
escreval("CLiente (valor total, média, compras acimas de 20 reais).")
escreva("Digite o nome do primeiro cliente = ")
leia(c1)
escreva("Digite o valor da compra do primeiro cliente = ")
leia(vcc1)
escreva("Digite o nome do segundo cliente = ")
leia(c2)
escreva("Digite o valor da compra do segundo cliente = ")
leia(vcc2)
escreva("Digite o nome do terceiro cliente = ")
leia(c3)
escreva("Digite o valor da compra do terceiro cliente = ")
leia(vcc3)
escreva("Digite o nome do quarto cliente = ")
leia(c4)
escreva("Digite o valor da compra do quarto cliente = ")23. leia(vcc4)
escreva("Digite o nome do quinto cliente = ")
leia(c5)
escreva("Digite o valor da compra do quinto cliente = ")
leia(vcc5)
vtt <- vcc1+vcc2+vcc3+vcc4+vcc5
media <- vtt/5
escreval("O valor total pago pelos cinco clientes é igual a = ",vtt:5:2)
escreval("O valor médio das compras efetuadas é igual a ",media:5:2)
escreval("Os nomes dos clientes que efetuaram compras superiores a 20 reais, são: ")
se vcc1>20 entao
escreval(c1)
fimse
se vcc2>20 entao
escreval(c2)
fimse
se vcc3>20 entao
escreval(c3)
fimse
se vcc4>20 entao
escreval(c4)
fimse
se vcc5>20 entao
escreval(c5)
fimse
fimalgoritmo
Um sistema de equações lineares do tipo:
{ a x X + b x y = c
d x X + e x y = f
{ 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.
---------------------------------------------------------------------------------------------------------
algoritmo "Cálculo"
var
a,b,c,d,ee,f,x,y:numerico
inicio
escreval("Cálculo de uma expressão linear.")
escreva("digite o valor de a ")
leia(a)
escreval("Digite o valor de b ")
escreva("(diferente de zero) = ")
leia(b)
escreva("Digite o valor de c = ")
leia(c) escreva("Digite o valor de d = ")
leia(d)
escreval("Digite o valor de e ")
escreva("(diferente de zero) = ")
leia(d)
escreva("Digite o valor de f = ")
leia(f)
x <- ((c*ee)-(b*f))/((a*ee)-(b*d))
y <- ((a*f)-(c*d))/((a*ee)-(b*d))
escreval("Valor de x é, ",x:5:2," de y é, ",y:5:2)
escreval("*** F I M ***")
fimalgoritmo
d x X + e x y = f
{ 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.
---------------------------------------------------------------------------------------------------------
algoritmo "Cálculo"
var
a,b,c,d,ee,f,x,y:numerico
inicio
escreval("Cálculo de uma expressão linear.")
escreva("digite o valor de a ")
leia(a)
escreval("Digite o valor de b ")
escreva("(diferente de zero) = ")
leia(b)
escreva("Digite o valor de c = ")
leia(c) escreva("Digite o valor de d = ")
leia(d)
escreval("Digite o valor de e ")
escreva("(diferente de zero) = ")
leia(d)
escreva("Digite o valor de f = ")
leia(f)
x <- ((c*ee)-(b*f))/((a*ee)-(b*d))
y <- ((a*f)-(c*d))/((a*ee)-(b*d))
escreval("Valor de x é, ",x:5:2," de y é, ",y:5:2)
escreval("*** F I M ***")
fimalgoritmo
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
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
4. Escreva um algoritmo para calcular a área de um círculo, fornecido o valor do raio, que deve ser positivo ou zero.
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(" FIM ")
fimse
fimalgoritmo
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(" FIM ")
fimse
fimalgoritmo
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 <- (NUM)
3. TUDO <- não ((TESTE ou COD) e (X < > NUM))
----------------------------------------------------------------------------
Resposta:
1. Terça
2. (312.5) + (3) = 315.5
3. ~n ((F) e (V) = V) = ~n V = F^2/X) + (X + 1)
3. TUDO <- não ((TESTE ou COD) e (X < > NUM))
----------------------------------------------------------------------------
Resposta:
1. Terça
2. (312.5) + (3) = 315.5
3. ~n ((F) e (V) = V) = ~n V = F^2/X) + (X + 1)
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.
(((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
V e V ou V e F
V ou F
= F
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. NÃO F = V
4. F ou V ou V = V
5. ( F e V ) ou ( V e F )
F ou F = F
quinta-feira, 23 de setembro de 2010
Elabore um algoritmo que lê 3 valores a,b,c e os escreva. A seguir , encontre o maior dos 3 valores e escreva com a mensagem: "É o maior".
algoritmo "Encontre o maior valor"
var
a,b,c:real
inicio
escreval("Encontre o maior valor") escreva(" Digite o valor de a ")
leia(a)
escreva(" Digite o valor de b ")
leia(b)
escreva(" Digite o valor de c ")
leia(c)
se (a>b) e (a>c) entao
escreva(" a é o maior ")
senao
se (b>c) entao
escreva(" b é o maior ")
senao
se (c>b) entao
escreva(" c é o maior ")
senao
se (a=b)e(b=c)e(c=a) entao escreva(" Todos tem valores iguais ")
fimse
fimse
fimse
fimse
fimalgoritmo
var
a,b,c:real
inicio
escreval("Encontre o maior valor") escreva(" Digite o valor de a ")
leia(a)
escreva(" Digite o valor de b ")
leia(b)
escreva(" Digite o valor de c ")
leia(c)
se (a>b) e (a>c) entao
escreva(" a é o maior ")
senao
se (b>c) entao
escreva(" b é o maior ")
senao
se (c>b) entao
escreva(" c é o maior ")
senao
se (a=b)e(b=c)e(c=a) entao escreva(" Todos tem valores iguais ")
fimse
fimse
fimse
fimse
fimalgoritmo
Elabore um algoritmo que lê 2 valores a e b e os escreve com a mensagem: "São múltiplos" ou "Não múltiplos".
algoritmo "São multiplo ou não"
var
a,b:inteiro
inicio
escreval("São multiplo ou não multiplo")
escreva("Digite o valor de a ")
leia(a)
escreva("Digite o valor de b ")
leia(b)
se ((a>b) e ((a mod b)=0)) entao escreva("São multiplo")
senao
se ((b mod a)=0) entao
escreva("São multiplo")
senao
escreva("Não multiplo")
fimse
fimse
fimalgoritmo
var
a,b:inteiro
inicio
escreval("São multiplo ou não multiplo")
escreva("Digite o valor de a ")
leia(a)
escreva("Digite o valor de b ")
leia(b)
se ((a>b) e ((a mod b)=0)) entao escreva("São multiplo")
senao
se ((b mod a)=0) entao
escreva("São multiplo")
senao
escreva("Não multiplo")
fimse
fimse
fimalgoritmo
Elabore um algoritmo que dada a idade de um nadador classifique-o em uma das seguintes categorias:
infantil A = 5 a 7 anos
infantil B = 8 a 10 anos
Juvenil A = 11 a 13 anos
Juvenil B = 14 a 17 anos
Adulto = maiores de 18 anos
algoritmo "Categoria de um nadador"
var
idade:real
inicio
escreval("Categoria do nadador")
escreva(" Digite a idade do(a) nadador(a) - ")
leia(idade)
se ((idade>=5) e (idade<=7)) entao
escreva(" Infantil A")
senao
se ((idade>7) e (idade<=10)) entao
escreva(" Infantil B")
senao
se ((idade>10) e (idade<=13)) entao
escreva(" Juvenil A")
senao
se ((idade>13) e (idade<=17)) entao
escreva( "Juvenil B")
senao
se (idade>=18) entao
escreva(" Adulto")
senao
escreva(" Não compete")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
infantil B = 8 a 10 anos
Juvenil A = 11 a 13 anos
Juvenil B = 14 a 17 anos
Adulto = maiores de 18 anos
algoritmo "Categoria de um nadador"
var
idade:real
inicio
escreval("Categoria do nadador")
escreva(" Digite a idade do(a) nadador(a) - ")
leia(idade)
se ((idade>=5) e (idade<=7)) entao
escreva(" Infantil A")
senao
se ((idade>7) e (idade<=10)) entao
escreva(" Infantil B")
senao
se ((idade>10) e (idade<=13)) entao
escreva(" Juvenil A")
senao
se ((idade>13) e (idade<=17)) entao
escreva( "Juvenil B")
senao
se (idade>=18) entao
escreva(" Adulto")
senao
escreva(" Não compete")
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
Construa um algoritmo para saber se a pessoa é maior ou não de idade.
algoritmo "Maior ou Menor de Idade"
var
idade:real
inicio escreval("Digite sua idade ")
leia(idade)
se ((idade >=18) e (idade<30)) entao
escreval("Ele é jovem")
senao
se (idade>=18) entao
escreval("Maior de idade")
senao escreval("Menor de idade")
fimse
fimse
escreva("*** F I M ***")
fimalgoritmo
var
idade:real
inicio escreval("Digite sua idade ")
leia(idade)
se ((idade >=18) e (idade<30)) entao
escreval("Ele é jovem")
senao
se (idade>=18) entao
escreval("Maior de idade")
senao escreval("Menor de idade")
fimse
fimse
escreva("*** F I M ***")
fimalgoritmo
Faça um algoritmo que receba 2 notas, calcule a média e mostre uma das seguintes mensagens: "Aprovado" (média >=5) e "Reprovado" (média >5).
algoritmo "Cálculo da média"
var
n1,n2,media:real
inicio
escreval("Cálculo de média, se média maior que 5 cinco, aprovado senão reprovado.")
escreva("Digite o valor da 1ª nota ")
leia(n1)//Entrada de da dados
escreva("Digite o valor da 2ª nota ")
leia(n2)//Entrada de dados
se media <- (n1+n2)/2 entao //Cálculo da média aritmética das entradas
escreval(" Aprovado")//Saída de resultado
senao
escreval(" Reprovado")
fimse
fimalgoritmo
var
n1,n2,media:real
inicio
escreval("Cálculo de média, se média maior que 5 cinco, aprovado senão reprovado.")
escreva("Digite o valor da 1ª nota ")
leia(n1)//Entrada de da dados
escreva("Digite o valor da 2ª nota ")
leia(n2)//Entrada de dados
se media <- (n1+n2)/2 entao //Cálculo da média aritmética das entradas
escreval(" Aprovado")//Saída de resultado
senao
escreval(" Reprovado")
fimse
fimalgoritmo
Faça um algoritmo que receba a idade. Se ela for igual ou superior a 18 anos, mostre a mensagem "é de maior"
algoritmo "Maior ou Menor de Idade"
var
idade:real
inicio escreval("Digite sua idade ")
leia(idade)
se ((idade >=18) e (idade<30)) entao escreval("Ele é jovem")
senao
se (idade>=18) entao
escreval("Maior de idade")
senao escreval("Menor de idade")
fimse
fimse escreva("*** F I M ***")
fimalgoritmo
var
idade:real
inicio escreval("Digite sua idade ")
leia(idade)
se ((idade >=18) e (idade<30)) entao escreval("Ele é jovem")
senao
se (idade>=18) entao
escreval("Maior de idade")
senao escreval("Menor de idade")
fimse
fimse escreva("*** F I M ***")
fimalgoritmo
domingo, 5 de setembro de 2010
Exercício 2-1
1) Escreva as expressões abaixo na forma de sintaxe do Português Estruturado.
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)*a*c)))/(2*a)
5) -raizq((-6^x+2*y)/3^9)
6) raizq(6)+((x*y)/(2*x))+3^2-(x^2/3)
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)*a*c)))/(2*a)
5) -raizq((-6^x+2*y)/3^9)
6) raizq(6)+((x*y)/(2*x))+3^2-(x^2/3)
Exercício 2-2
Escreva as expressões abaixo na forma convencional:
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
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
Exercício 2-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 "Calculando a expressão aritmética"
var
total : real
inicio
escreval ("Cálculo de Expressão Aritmética")
total <- (20%7) + 7 - 3.0 + 7/2 + (19/5) + (20+4)/(4 * 3)
escreva ("o valor da expressão e",total)
fimalgoritmo
algoritmo "Calculando a expressão aritmética"
var
total : real
inicio
escreval ("Cálculo de Expressão Aritmética")
total <- (20%7) + 7 - 3.0 + 7/2 + (19/5) + (20+4)/(4 * 3)
escreva ("o valor da expressão e",total)
fimalgoritmo
Exercício 2-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. ( ) 0
2. ( ) “abc”
3. ( ) “João”
4. ( ) “FALSO”
5. ( ) 1012
6. ( ) “V”
7. ( ) -49
8. ( ) +342
9. ( ) 569
10. ( ) “Zé”
11. ( ) 5. 7
12. ( )0.00001
13. ( ) 3.1415
14. ( )-545
15. ( )”444”
16. ( ) “1+2”
1.(L) 0 2.(L)"abc" 3.(L)"joão" 4.(L) "FALSO"
5.(N)1012 6.(L) "V" 7.(N)-49 8.(N)+342
9(N)569 10(L)"Ze" 11.(N)5. 7 12.(N)0.00001
13.(N)3.1415 14.(N)-545 15.(L)"444" 16.(L) "1+2"
1. ( ) 0
2. ( ) “abc”
3. ( ) “João”
4. ( ) “FALSO”
5. ( ) 1012
6. ( ) “V”
7. ( ) -49
8. ( ) +342
9. ( ) 569
10. ( ) “Zé”
11. ( ) 5. 7
12. ( )0.00001
13. ( ) 3.1415
14. ( )-545
15. ( )”444”
16. ( ) “1+2”
1.(L) 0 2.(L)"abc" 3.(L)"joão" 4.(L) "FALSO"
5.(N)1012 6.(L) "V" 7.(N)-49 8.(N)+342
9(N)569 10(L)"Ze" 11.(N)5. 7 12.(N)0.00001
13.(N)3.1415 14.(N)-545 15.(L)"444" 16.(L) "1+2"
Exercício 2-5
Assinale com um X os nomes de variáveis válidos: 1. ( ) abc 2. ( )3abc 3. ( )a 4. ( )123ª
5. ( )-a 6. ( )acd1 7. ( )-_ad 8. ( )A&a
9. ( ) prim-nom 10. ( ) A123 11. ( )Aa 12. ( ) prim_nom
13. ( ) ABC DE 14. ( ) etc. 15. ( ) E 16. ( )”nome”
1.(X)abc 2.( )3abc 3.(X)a 4.( )123ª
5.( ) -a 6.(X)acd1 7.( )-_ad 8.( )A&a
9.(X) prim-nom 10.(X) A123 11.(X)Aa 12.(x) prim_nom
13.( ) ABC DE 14.( )etc. 15.(X) E 16.( )"nome"
5. ( )-a 6. ( )acd1 7. ( )-_ad 8. ( )A&a
9. ( ) prim-nom 10. ( ) A123 11. ( )Aa 12. ( ) prim_nom
13. ( ) ABC DE 14. ( ) etc. 15. ( ) E 16. ( )”nome”
1.(X)abc 2.( )3abc 3.(X)a 4.( )123ª
5.( ) -a 6.(X)acd1 7.( )-_ad 8.( )A&a
9.(X) prim-nom 10.(X) A123 11.(X)Aa 12.(x) prim_nom
13.( ) ABC DE 14.( )etc. 15.(X) E 16.( )"nome"
Exercício 2-6
Assinale com um X os comandos de atribuição considerados inválidos:
var
NOME, COR, TESTE, DIA, X : literal
SOMA, NUM: numérico
1. ( ) NOME <- 5 2. ( ) SOMA <- NUM + 2*X
3. ( )TESTE <- SOMA 4. ( ) NUM <- SOMA
5. ( ) COR <- “PRETO” 6. ( ) X <- X + “1”
7. ( ) NUM <- “ABC” 8. ( ) DIA<- “seGUNDA”
9. ( ) SOMA + 2 <- NUM 10. ( ) X <- (NOME = COR)
11. ( ) “ABC” <- NOME 12. ( ) NOME <- DIA + COR
1.(X) NOME <-5 2.(X) SOMA <- NUM + 2*X
3.( )TESTE <- SOMA 4.( ) NUM <- SOMA
5.( ) COR <- "PRETO" 6.(X) X <- X+"1"
7.(X) NUM <- "ABC" 8.( ) DIA <- "seGUNDA"
9.(X) SOMA +2 <- NUM 10.( ) X <-(NOME = COR)
11.(X)"ABC" <- NOME 12.(X) NOME <- DIA + COR
var
NOME, COR, TESTE, DIA, X : literal
SOMA, NUM: numérico
1. ( ) NOME <- 5 2. ( ) SOMA <- NUM + 2*X
3. ( )TESTE <- SOMA 4. ( ) NUM <- SOMA
5. ( ) COR <- “PRETO” 6. ( ) X <- X + “1”
7. ( ) NUM <- “ABC” 8. ( ) DIA<- “seGUNDA”
9. ( ) SOMA + 2 <- NUM 10. ( ) X <- (NOME = COR)
11. ( ) “ABC” <- NOME 12. ( ) NOME <- DIA + COR
1.(X) NOME <-5 2.(X) SOMA <- NUM + 2*X
3.( )TESTE <- SOMA 4.( ) NUM <- SOMA
5.( ) COR <- "PRETO" 6.(X) X <- X+"1"
7.(X) NUM <- "ABC" 8.( ) DIA <- "seGUNDA"
9.(X) SOMA +2 <- NUM 10.( ) X <-(NOME = COR)
11.(X)"ABC" <- NOME 12.(X) NOME <- DIA + COR
Exercício 2-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.
algoritmo "Calculando o valor 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
Exercício 2-8
No seguinte algoritmo existem erros de sintaxe? Em caso afirmativo, onde ?
01. altoritmo “Teste”
02. var
03. marca: literal
04. idade: numérico
05. letra: literal
06. marca : numérico
07. início
08. leia(idade)
09. escreva(idade)
10. idade = 678
11. leia(“letra”)
12. leia(ABC)
13. escreva (letra)
14. letra <- 4
15. fimalgoritmo
algoritmo "Teste"
var
marca: literal
idade: numérico //numerico é sem acento agudo na letra “e”
letra: literal
marca: numérico //Já existe uma variável com o nome 'marca'
início //Não tem acento na letra “i”
leia(idade)
escreva(idade)
idade = 678
leia(“letra”) //Não está atribuindo valor em 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
Exercício 2-9
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 "Capítulo 2 - Exercício 9"
var
kmInicial, kmFinal, totalGasolina, mediaDiaria:real
inicio
escreval("Calculando média de gasolina em viagem")
escreval
escreva("Informe o KM Inicial: ")
leia(kmInicial)
escreva("Informe o KM Final: ")
leia(kmFinal)
escreva("Informe quantos litros de gasolina foram usados durante a viagem: ")
leia(totalGasolina)
mediaDiaria <- (kmFinal - kmInicial) / totalGasolina
escreva("Média diária percorrida pelo carro por litro de gasolina: ", mediaDiaria:5:1, "Km")
fimalgoritmo
Exercício 2-10
Escreva um algoritmo que leia o nome de um piloto, uma distância percorrida em quilômetros e o
tempo que o piloto levou para percorrê-la (em minutos). O algoritmo deve calcular a velocidade em
km/h, e exibir a seguinte frase:
A velocidade média do <nome do piloto> foi<velocidade média calculada> km/h
algoritmo "Calcular a velocidade em km/h"
var
nome:literal
media,distancia:real
tempo:inteiro
inicio
escreval("Calculando a velocidade média em Km/h")
escreval
escreva("Entre com o nome do piloto:")
escreval
leia(nome)
escreva("Entre com a distância percorrida em km:")
leia(distancia)
escreva("Entre com o tempo gasto em minutos:")
leia(tempo)
media <- distancia /(tempo/60)
escreva("A velocide media do piloto ",nome," foi de",media," km/h")
fimalgoritmo
tempo que o piloto levou para percorrê-la (em minutos). O algoritmo deve calcular a velocidade em
km/h, e exibir a seguinte frase:
A velocidade média do <nome do piloto> foi<velocidade média calculada> km/h
algoritmo "Calcular a velocidade em km/h"
var
nome:literal
media,distancia:real
tempo:inteiro
inicio
escreval("Calculando a velocidade média em Km/h")
escreval
escreva("Entre com o nome do piloto:")
escreval
leia(nome)
escreva("Entre com a distância percorrida em km:")
leia(distancia)
escreva("Entre com o tempo gasto em minutos:")
leia(tempo)
media <- distancia /(tempo/60)
escreva("A velocide media do piloto ",nome," foi de",media," km/h")
fimalgoritmo
Exercício 2-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 "Calcular a conta da pizzaria"
var
pessoas, chopes, pizzas, coberturas:inteiro
subTotalConta, totalConta, Garcom, totalPorPessoa:real
inicio
escreval("Calculando o total da conta da Pizzaria")
escreval
escreva("Entre com o número de pessoas: ")
leia(pessoas)
escreva("Entre com a quantidade de chopes que foram pedidos: ")
leia(chopes)
escreva("Entre com a quantidade de pizzas que foram pedidas: ")
leia(pizzas)
escreva("Entre com a quantidade de coberturas que acompanharam as pizzas: ")
leia(coberturas)
subTotalConta <- (chopes * 2.80) + (pizzas * 20) + ( (coberturas * 1.50) * pizzas)
garcom <- (subTotalConta / 100) * 10
totalConta <- subTotalConta + garcom
totalPorPessoa <- totalConta / pessoas
escreval
escreval("Este é o Valor da Conta-------------: R$", subTotalConta:5:2)
escreval("10% do Garçom---------------------: R$", garcom:5:2)
escreval("Total da Conta + 10% Garçom------: R$", totalConta:5:2)
escreval("Total por pessoa---------------------: R$", totalPorPessoa:5:2)
fimalgoritmo
algoritmo "Calcular a conta da pizzaria"
var
pessoas, chopes, pizzas, coberturas:inteiro
subTotalConta, totalConta, Garcom, totalPorPessoa:real
inicio
escreval("Calculando o total da conta da Pizzaria")
escreval
escreva("Entre com o número de pessoas: ")
leia(pessoas)
escreva("Entre com a quantidade de chopes que foram pedidos: ")
leia(chopes)
escreva("Entre com a quantidade de pizzas que foram pedidas: ")
leia(pizzas)
escreva("Entre com a quantidade de coberturas que acompanharam as pizzas: ")
leia(coberturas)
subTotalConta <- (chopes * 2.80) + (pizzas * 20) + ( (coberturas * 1.50) * pizzas)
garcom <- (subTotalConta / 100) * 10
totalConta <- subTotalConta + garcom
totalPorPessoa <- totalConta / pessoas
escreval
escreval("Este é o Valor da Conta-------------: R$", subTotalConta:5:2)
escreval("10% do Garçom---------------------: R$", garcom:5:2)
escreval("Total da Conta + 10% Garçom------: R$", totalConta:5:2)
escreval("Total por pessoa---------------------: R$", totalPorPessoa:5:2)
fimalgoritmo
Exercício 2-12
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 "Progressão Aritmética"
var
a1, an, r, sn, n:real
inicio
escreval("Calculando uma Progressão Aritmética")
escreva("Entre com o valor de a1: ")
leia(a1)
escreva("Entre com o valor de an: ")
leia(an)
escreva("Entre com o valor de r: ")
leia(r)
n <- ((an - a1)/r) + 1
sn <- ((a1 + an)/2) * n
escreval("O valor de Sn é: ", sn)
fimalgoritmo
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 "Progressão Aritmética"
var
a1, an, r, sn, n:real
inicio
escreval("Calculando uma Progressão Aritmética")
escreva("Entre com o valor de a1: ")
leia(a1)
escreva("Entre com o valor de an: ")
leia(an)
escreva("Entre com o valor de r: ")
leia(r)
n <- ((an - a1)/r) + 1
sn <- ((a1 + an)/2) * n
escreval("O valor de Sn é: ", sn)
fimalgoritmo
Exercício 2-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 " Progressão Geométrica "
var
a1, an, q, n:real
inicio
escreval("Calculando uma Progressão Geométrica")
escreval
escreva("Entre com o valor de A1: ")
leia(a1)
escreva("Entre com o valor de Q: ")
leia(q)
escreva("Entre com o valor de N: ")
leia(n)
an <- a1 * (q^(n-1))
escreval("Valor do termo An: ", an)
fimalgoritmo
algoritmo " Progressão Geométrica "
var
a1, an, q, n:real
inicio
escreval("Calculando uma Progressão Geométrica")
escreval
escreva("Entre com o valor de A1: ")
leia(a1)
escreva("Entre com o valor de Q: ")
leia(q)
escreva("Entre com o valor de N: ")
leia(n)
an <- a1 * (q^(n-1))
escreval("Valor do termo An: ", an)
fimalgoritmo
Exercício 2-15
Escreva um algoritmo que leia o valor do raio e calcule a área do circulo correspondente.
algoritmo "Calcular área do círculo"
var
r, area:real
inicio
escreva("Entre com o valor do Raio do Círculo: ")
leia(r)
area <- 3.14 * r^2
escreva("Área do círculo: ", area)
fimalgoritmo
algoritmo "Calcular área do círculo"
var
r, area:real
inicio
escreva("Entre com o valor do Raio do Círculo: ")
leia(r)
area <- 3.14 * r^2
escreva("Área do círculo: ", area)
fimalgoritmo
Exercício 2-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 dígito 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)
algoritmo "Conversão de Binário para Decimal"
var
n1, n2, n3, n4, n5, n6, decimal:numerico
inicio
escreva("Entre com o 1ºBit (0 ou 1)")
escreval
leia(n1)
escreva("Entre com o 2ºBit (0 ou 1)")
escreval
leia(n2)
escreva("Entre com o 3ºBit (0 ou 1)")
escreval
leia(n3)
escreva("IEntre com o 4ºBit (0 ou 1)")
escreval
leia(n4)
escreva("Entre com o 5ºBit (0 ou 1)")
escreval
leia(n5)
escreva("Entre com o 6ºBit (0 ou 1)")
escreval
leia(n6)
decimal <- (n1*32 + n2*16 + n3*8 + n4*4 + n5*2 + n6*1)
escreva("Decimal: ",decimal)
fimalgoritmo
Por exemplo 110101 é 53 .(1×32 + 1x 16 + 0×8 + 1×4 + 0x 2 + 1×1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)
algoritmo "Conversão de Binário para Decimal"
var
n1, n2, n3, n4, n5, n6, decimal:numerico
inicio
escreva("Entre com o 1ºBit (0 ou 1)")
escreval
leia(n1)
escreva("Entre com o 2ºBit (0 ou 1)")
escreval
leia(n2)
escreva("Entre com o 3ºBit (0 ou 1)")
escreval
leia(n3)
escreva("IEntre com o 4ºBit (0 ou 1)")
escreval
leia(n4)
escreva("Entre com o 5ºBit (0 ou 1)")
escreval
leia(n5)
escreva("Entre com o 6ºBit (0 ou 1)")
escreval
leia(n6)
decimal <- (n1*32 + n2*16 + n3*8 + n4*4 + n5*2 + n6*1)
escreva("Decimal: ",decimal)
fimalgoritmo
Exercício 2-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 "Calcular sálario final de um vendedor"
var
nome:literal
salFixo,valorCarrosVendidos,comissaoPorCarro,salLiquido:real
qtdeCarrosVendidos:inteiro
inicio
escreval("Entre com o nome do Vendedor:")
leia(nome)
escreval("Entre com o salário fixo do Vendedor:")
leia(salFixo)
escreval("Entre com a comissão por cada carro vendido:")
leia(comissaoPorCarro)
escreval("Entre com a quantidade de carros vendidos:")
leia(qtdeCarrosVendidos)
escreval("Entre com o total das suas vendas:")
leia(valorCarrosVendidos)
salLiquido<- salFixo+(comissaoPorCarro*qtdeCarrosVendidos)+(valorCarrosVendidos*0.04)
escreva("O salário líquido do vendedor ",nome," é de R$: ",salLiquido:5:2)
fimalgoritmo
algoritmo "Calcular sálario final de um vendedor"
var
nome:literal
salFixo,valorCarrosVendidos,comissaoPorCarro,salLiquido:real
qtdeCarrosVendidos:inteiro
inicio
escreval("Entre com o nome do Vendedor:")
leia(nome)
escreval("Entre com o salário fixo do Vendedor:")
leia(salFixo)
escreval("Entre com a comissão por cada carro vendido:")
leia(comissaoPorCarro)
escreval("Entre com a quantidade de carros vendidos:")
leia(qtdeCarrosVendidos)
escreval("Entre com o total das suas vendas:")
leia(valorCarrosVendidos)
salLiquido<- salFixo+(comissaoPorCarro*qtdeCarrosVendidos)+(valorCarrosVendidos*0.04)
escreva("O salário líquido do vendedor ",nome," é de R$: ",salLiquido:5:2)
fimalgoritmo
Exercício 2-19
O custo final de um carro é a soma do custo de fábrica com o percentual de revenda mais impostos, ambos aplicados ao custo de fábrica. Escreva um algoritmo que leia o nome do modelo de um carro, seu custo de fábrica e os percentuais de revenda e de impostos e escreva o custo ao consumidor do carro.
algoritmo "Calculando valor final de um veículo para o consumidor"
var
nomeModelo:literal
custoFabri, percentualRevenda, impostos, valorFinal:real
inicio
escreva("Entre com o nome do Modelo do carro: ")
leia(nomeModelo)
escreva("Entre com o valor de fabrica do veículo: ")
leia(custoFabri)
escreva("Entre com o percentual da revenda: ")
leia(percentualRevenda)
escreva("Entre com o percentual dos impostos: ")
leia(impostos)
valorFinal <- custoFabri + (custoFabri * (percentualRevenda / 100)) + (custoFabri * (impostos / 100))
escreva("O Valor final do carro ", nomeModelo, " para o consumidor é de ", valorFinal:6:2)
fimalgoritmo
algoritmo "Calculando valor final de um veículo para o consumidor"
var
nomeModelo:literal
custoFabri, percentualRevenda, impostos, valorFinal:real
inicio
escreva("Entre com o nome do Modelo do carro: ")
leia(nomeModelo)
escreva("Entre com o valor de fabrica do veículo: ")
leia(custoFabri)
escreva("Entre com o percentual da revenda: ")
leia(percentualRevenda)
escreva("Entre com o percentual dos impostos: ")
leia(impostos)
valorFinal <- custoFabri + (custoFabri * (percentualRevenda / 100)) + (custoFabri * (impostos / 100))
escreva("O Valor final do carro ", nomeModelo, " para o consumidor é de ", valorFinal:6:2)
fimalgoritmo
Exercício 2-20
Escreva um algoritmo que leia o nome, o valor da hora e o número de horas trabalhadas por um empregado. O algoritmo deve escrever o nome e o salário liquido do empregado calculado conforme as seguintes regras:
1. O salário bruto mensal é o produto das horas trabalhadas pelo valor das horas.
2. Sobre o salário bruto mensal é aplicado um desconto de 9% referente ao INSS e 8% de FGTS;
3. O salário liquido é o salário bruto mensal menos os encargos.
algoritmo "Cálculo jornada de trabalho"
var
nome:literal
valorHora, totalHoras, salarioBruto, encargos, salarioLiquido:real
inicio
escreva("Entre com o nome do empregado: ")
leia(nome)
escreva("Entre com o valor da hora trabalhada: ")
leia(valorHora)
escreva("Entre com o total de horas trabalhadas: ")
leia(totalHoras)
salarioBruto <- totalHoras * valorHora
encargos <- (salarioBruto * (9/100)) + (salarioBruto * (8/100))
salarioLiquido <- salarioBruto - encargos
escreva("O empregado ", nome, " receberá o salário de: R$", salarioLiquido:5:2)
fimalgoritmo
1. O salário bruto mensal é o produto das horas trabalhadas pelo valor das horas.
2. Sobre o salário bruto mensal é aplicado um desconto de 9% referente ao INSS e 8% de FGTS;
3. O salário liquido é o salário bruto mensal menos os encargos.
algoritmo "Cálculo jornada de trabalho"
var
nome:literal
valorHora, totalHoras, salarioBruto, encargos, salarioLiquido:real
inicio
escreva("Entre com o nome do empregado: ")
leia(nome)
escreva("Entre com o valor da hora trabalhada: ")
leia(valorHora)
escreva("Entre com o total de horas trabalhadas: ")
leia(totalHoras)
salarioBruto <- totalHoras * valorHora
encargos <- (salarioBruto * (9/100)) + (salarioBruto * (8/100))
salarioLiquido <- salarioBruto - encargos
escreva("O empregado ", nome, " receberá o salário de: R$", salarioLiquido:5:2)
fimalgoritmo
sábado, 4 de setembro de 2010
Faça um algoritmo que calcule a área de um triângulo que recebe a base e a altura e retorna a área.
algoritmo "Calcular Área de um Triangulo"
var
h, b:real
inicio
escreval("Calculo da Área de um Triangulo")
escreva("Entre com o valor da base?")
leia(b)
escreva("Entre com o valor da altura?")
leia(h)
escreva("Área do Triângulo: ", (b*h)/2)
fimalgoritmo
var
h, b:real
inicio
escreval("Calculo da Área de um Triangulo")
escreva("Entre com o valor da base?")
leia(b)
escreva("Entre com o valor da altura?")
leia(h)
escreva("Área do Triângulo: ", (b*h)/2)
fimalgoritmo
Faça um algoritmo que receba apenas 1 lado do triângulo equilátero e retorne a área.
algoritmo "Calcular Área de um Triângulo Equilatero"
var
lado, h, area:real
inicio
escreval("Calcular Área de um Triângulo Equilatero")
escreva("Qual e o valor de um lado?")
leia(lado)
h<-(lado*raizq(3))/2
area<-(lado*h)/2
escreva("Area de triangulo: ", area:5:2)
fimalgoritmo
var
lado, h, area:real
inicio
escreval("Calcular Área de um Triângulo Equilatero")
escreva("Qual e o valor de um lado?")
leia(lado)
h<-(lado*raizq(3))/2
area<-(lado*h)/2
escreva("Area de triangulo: ", area:5:2)
fimalgoritmo
Faça um algoritmo que solicite o peso de gatos e o peso em Kg do pacote de ração, onde deverá se calcular as porções diárias e mostrar o quanto em gramas existe no pacote de ração após 5 dias.
algoritmo "Calcular Porções de Ração Diária de Gatos"
var
racao,g1,g2,gramasg1,gramasg2,pdiaria,p5dias,soma:real
inicio
escreval("Calcular Porções de Ração Diária de Gatos")
escreval
escreva("Qual é o peso do Gato 1? ")
leia(g1)
escreva("Qual é o peso do Gato 2? ")
leia(g2)
escreva("Qual é o peso do Pacote de Ração? ")
leia(racao)
gramasg1 <- g1 * 50
gramasg2 <- g2 * 50
pdiaria <- gramasg1 + gramasg2
p5dias <- (racao * 1000) - (pdiaria * 5)
escreva("Total de ração após 5 dias: ", p5dias, " gramas")
fimalgoritmo
var
racao,g1,g2,gramasg1,gramasg2,pdiaria,p5dias,soma:real
inicio
escreval("Calcular Porções de Ração Diária de Gatos")
escreval
escreva("Qual é o peso do Gato 1? ")
leia(g1)
escreva("Qual é o peso do Gato 2? ")
leia(g2)
escreva("Qual é o peso do Pacote de Ração? ")
leia(racao)
gramasg1 <- g1 * 50
gramasg2 <- g2 * 50
pdiaria <- gramasg1 + gramasg2
p5dias <- (racao * 1000) - (pdiaria * 5)
escreva("Total de ração após 5 dias: ", p5dias, " gramas")
fimalgoritmo
Faça um algoritmo que tendo como dados de entrada dois pontos quaisquer no plano P(X1*Y1) e P(X2*Y2). Escreva a distância entre eles.
algoritmo "Distância entre dois pontos"
var
x1,x2,y1,y2,d:real
inicio
escreval("Calcular distância entre pontos")
escreval
escreva("Entre com o valor de X1? ")
leia(x1)
escreva("Entre com o valor de X2? ")
leia(x2)
escreva("Entre com o valor de Y1? ")
leia(y1)
escreva("Entre com o valor de Y2? ")
leia(y2)
d <- raizq( ((x2-x1)^2) + ((y2-y1)^2) )
escreva("Distância entre os pontos: ", d:5:2)
fimalgoritmo
var
x1,x2,y1,y2,d:real
inicio
escreval("Calcular distância entre pontos")
escreval
escreva("Entre com o valor de X1? ")
leia(x1)
escreva("Entre com o valor de X2? ")
leia(x2)
escreva("Entre com o valor de Y1? ")
leia(y1)
escreva("Entre com o valor de Y2? ")
leia(y2)
d <- raizq( ((x2-x1)^2) + ((y2-y1)^2) )
escreva("Distância entre os pontos: ", d:5:2)
fimalgoritmo
Faça um algoritmo que leia 3 números inteiros e positivos (A,B e C) e Calcule a seguinte expressão: D=R+S/2, onde R=(A+B)² e S=(B+C)²
algoritmo "Cálculo de Expressão"
var
a,b,c,r,s,d:real
inicio
escreval("Cálculando Expressões de Números Inteiros")
escreval
escreval("Entre com o Valor de A: ")
leia(a)
escreval("Entre com o Valor de B: ")
leia(b)
escreval("Entre com o Valor de C: ")
leia(c)
r<-(a+b)^2
s<-(b+c)^2
d<-(r+s)/2
escreva("O valor de D é: ", d)
fimalgoritmo
var
a,b,c,r,s,d:real
inicio
escreval("Cálculando Expressões de Números Inteiros")
escreval
escreval("Entre com o Valor de A: ")
leia(a)
escreval("Entre com o Valor de B: ")
leia(b)
escreval("Entre com o Valor de C: ")
leia(c)
r<-(a+b)^2
s<-(b+c)^2
d<-(r+s)/2
escreva("O valor de D é: ", d)
fimalgoritmo
Faça um algoritmo que leia a idade de uma pessoa expressa em dias, meses e anos e mostre a expressa em dias.
algoritmo "Idade de uma pessoa"
var
dias, meses, anos, total:inteiro
inicio
escreval("Cálculo da Idade de uma Pessoa em dias")
escreval
escreval("Entre com o dia em que a pessoa nasceu: ")
leia(dias)
escreval("Entre com o mês do nascimento da pessoa: ")
leia(meses)
escreval("Entre com o ano do nascimento da pessoa: ")
leia(anos)
total<-(anos*365)+(meses*30)+dias
escreva("O total de dias é: ", total)
fimalgoritmo
var
dias, meses, anos, total:inteiro
inicio
escreval("Cálculo da Idade de uma Pessoa em dias")
escreval
escreval("Entre com o dia em que a pessoa nasceu: ")
leia(dias)
escreval("Entre com o mês do nascimento da pessoa: ")
leia(meses)
escreval("Entre com o ano do nascimento da pessoa: ")
leia(anos)
total<-(anos*365)+(meses*30)+dias
escreva("O total de dias é: ", total)
fimalgoritmo
Faça um algoritmo que leia a idade de uma pessoa expressa em dias e mostre a expressa em anos.
algoritmo "Idade de uma pessoa"
var
dias, meses, anos, total, sobra:inteiro
inicio
escreval("Cálculo da Idade de uma Pessoa")
escreval
escreval("Entre com a Idade em dias: ")
leia(total)
anos<-total-(anos*365)
meses<-sobra div 30
dias<-sobra-(meses*30)
escreva("IDADE:",anos," ano(s) e",meses," mês(s) e",dias," dia(s)")
fimalgoritmo
var
dias, meses, anos, total, sobra:inteiro
inicio
escreval("Cálculo da Idade de uma Pessoa")
escreval
escreval("Entre com a Idade em dias: ")
leia(total)
anos<-total-(anos*365)
meses<-sobra div 30
dias<-sobra-(meses*30)
escreva("IDADE:",anos," ano(s) e",meses," mês(s) e",dias," dia(s)")
fimalgoritmo
Faça um algoritmo que leia 3 notas de um aluno e calcule a média final desde aluno. Considere que a média é ponderada e que o peso das notas é: 2, 3 e 5 respectivamente.
algoritmo "Média Final do Aluno"
var
n1, n2, n3, soma:real
inicio
escreval("Cálculo de Média Final do Aluno")
escreval
escreval("Entre com a 1º Nota: ")
leia(n1)
escreval("Entre com a 2º Nota: ")
leia(n2)
escreval("Entre com a 3º Nota: ")
leia(n3)
soma<-(n1+n2+n3)/3
escreva("Média Final: ", soma:5:2)
fimalgoritmo
var
n1, n2, n3, soma:real
inicio
escreval("Cálculo de Média Final do Aluno")
escreval
escreval("Entre com a 1º Nota: ")
leia(n1)
escreval("Entre com a 2º Nota: ")
leia(n2)
escreval("Entre com a 3º Nota: ")
leia(n3)
soma<-(n1+n2+n3)/3
escreva("Média Final: ", soma:5:2)
fimalgoritmo
Faça um algoritmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-o expresso em Horas, Minutos e Segundos
algoritmo "Tempo de Duração de um Evento em uma Fábrica"
var
seg, min, horas:inteiro
inicio
escreval("Tempo de Duração de um Evento em uma Fábrica")
escreval
escreval("Entre com o Tempo em segundos: ")
leia(seg)
horas<-seg div 3600
min<-(seg-(horas*3600)) div 60
seg<-(seg-(horas*3600)-(min*60))
escreva(horas," Horas,",min," Minutos e",seg, " Segundos")
fimalgoritmo
var
seg, min, horas:inteiro
inicio
escreval("Tempo de Duração de um Evento em uma Fábrica")
escreval
escreval("Entre com o Tempo em segundos: ")
leia(seg)
horas<-seg div 3600
min<-(seg-(horas*3600)) div 60
seg<-(seg-(horas*3600)-(min*60))
escreva(horas," Horas,",min," Minutos e",seg, " Segundos")
fimalgoritmo
Faça um algoritmo que receba a altura de uma pessoa e informe o seu peso ideal - IMC
algoritmo "Cálculo de Peso Ideal - IMC"
var
altura:inteiro
pesoIdeal:real
inicio
escreval("Cálculo de Peso Ideal - IMC")
escreval
escreva("Entre com sua altura sem ponto e sem vírgula: ")
leia(altura)
pesoIdeal<-(25*(altura^2))/10000
escreva("O seu Peso Ideal é: ", pesoIdeal:5:2)
fimalgoritmo
var
altura:inteiro
pesoIdeal:real
inicio
escreval("Cálculo de Peso Ideal - IMC")
escreval
escreva("Entre com sua altura sem ponto e sem vírgula: ")
leia(altura)
pesoIdeal<-(25*(altura^2))/10000
escreva("O seu Peso Ideal é: ", pesoIdeal:5:2)
fimalgoritmo
domingo, 15 de agosto de 2010
2. O que é um computador? Ilustre aplicações nas quais o uso do computador se torne necessário.
Aparelho eletrônico que funciona a partir de uma central lógica com princípios matemáticos e pode ser programado para desempenhar tarefas variadas, como armazenar, buscar, processar, classificar, organizar, formatar e apresentar dados, inclusive impressos, resultando na interação Homem Máquina.
Aparelho eletrônico que funciona a partir de uma central lógica com princípios matemáticos e pode ser programado para desempenhar tarefas variadas, como armazenar, buscar, processar, classificar, organizar, formatar e apresentar dados, inclusive impressos, resultando na interação Homem Máquina.
3. Descreva, em linhas gerais, os termos a seguir e dê um exemplo de objeto ou dispositivo associado a cada um deles:
a) Processamento:
Manipulação de dados - Entradas, modificações e informações. Exemplo: Processador
b) Entrada:
Que recebe ou coleta informações. Exemplo: Cd-Rom ,
c) Saída:
Que retorna as informações ou ressultados. Exemplo: Monitor.
d) Armazenamento:
Ato de alocar informações. Exemplo: Pen Drive
a) Processamento:
Manipulação de dados - Entradas, modificações e informações. Exemplo: Processador
b) Entrada:
Que recebe ou coleta informações. Exemplo: Cd-Rom ,
c) Saída:
Que retorna as informações ou ressultados. Exemplo: Monitor.
d) Armazenamento:
Ato de alocar informações. Exemplo: Pen Drive
6. O que representam Ada Byron King e Grace Murray Hopper na evolução da computação?
Ada iniciou o ambicioso projeto de construção da Máquina Analítica. primeira programadora de
computador do mundo.
Grace foi ela que criou a linguagem de programação Flow-Matic, hoje extinta. Esta linguagem serviu como base para a criação do COBOL.
Ada iniciou o ambicioso projeto de construção da Máquina Analítica. primeira programadora de
computador do mundo.
Grace foi ela que criou a linguagem de programação Flow-Matic, hoje extinta. Esta linguagem serviu como base para a criação do COBOL.
8. Quem criou o primeiro computador mecânico?
Como ele era fabricado?
Como ele funcionava?
Máquina de pascal – construído por Blaise Pascal (físico, matemático e filósofo francês).
Máquina com seis rodas dentadas, cada uma contendo algarismos de 0 a 9.
Permitia somar até três parcelas de cada vez, desde que o total não ultrapassasse
999 999.
Como ele era fabricado?
Como ele funcionava?
Máquina de pascal – construído por Blaise Pascal (físico, matemático e filósofo francês).
Máquina com seis rodas dentadas, cada uma contendo algarismos de 0 a 9.
Permitia somar até três parcelas de cada vez, desde que o total não ultrapassasse
999 999.
14. O que significava a seguinte expressão: “O computador processaria os dados de acordo com as necessidades do usuário”?
John Von Neumann, engenheiro matemático húngaro desenvolveu um projeto de computador baseado na lógica, com armazenamento eletrônico da informação e de dados de programação. O computador processaria os dados de acordo com as necessidades do usuário, ou seja, as instruções não viriam pré-determinadas.
John Von Neumann, engenheiro matemático húngaro desenvolveu um projeto de computador baseado na lógica, com armazenamento eletrônico da informação e de dados de programação. O computador processaria os dados de acordo com as necessidades do usuário, ou seja, as instruções não viriam pré-determinadas.
15. Por que foram criadas as linguagens de programação?
As linguagens de programação, em sua maioria, foram criadas para resolver problemas de domínio específico, pois se trata de uma linguagem artificial criada para o desenvolvimento de softwares, sistemas operacionais, entre outros. Os computadores entendem apenas a linguagem de máquina, por isso as linguagens de programação foram criadas.
As linguagens de programação, em sua maioria, foram criadas para resolver problemas de domínio específico, pois se trata de uma linguagem artificial criada para o desenvolvimento de softwares, sistemas operacionais, entre outros. Os computadores entendem apenas a linguagem de máquina, por isso as linguagens de programação foram criadas.
17. O que marcou o início da "Era do Computador?
Foi a construção do ENIAC. Ele era tão grande, que consumia energia equivalente a um bairro inteiro da cidade da Filadélfia. A importância do ENIAC é que ele, diferentemente de todos os computadores que foram desenvolvidos anteriormente, não era destinado a uma operação específica (projetar aviões/mísseis, ou decodificar códigos), mas poderia ser usado de maneira geral, parecido com o que fazem os computadores hoje.
Foi a construção do ENIAC. Ele era tão grande, que consumia energia equivalente a um bairro inteiro da cidade da Filadélfia. A importância do ENIAC é que ele, diferentemente de todos os computadores que foram desenvolvidos anteriormente, não era destinado a uma operação específica (projetar aviões/mísseis, ou decodificar códigos), mas poderia ser usado de maneira geral, parecido com o que fazem os computadores hoje.
19. Qual a diferença entre linguagem de alto nível e linguagem de máquina?
- Linguagem de Alto Nível tem um nível de abstração relativamente elevado onde o programador não precisa conhecer características do processador, como instruções e registradores. Essas características são abstraídas
- Linguagem de Baixo Nível trata-se de uma linguagem de programação que compreende as características da arquitetura do computador. Assim, utiliza somente instruções do processador, para isso é necessário conhecer os registradores da máquina.
- Linguagem de Alto Nível tem um nível de abstração relativamente elevado onde o programador não precisa conhecer características do processador, como instruções e registradores. Essas características são abstraídas
- Linguagem de Baixo Nível trata-se de uma linguagem de programação que compreende as características da arquitetura do computador. Assim, utiliza somente instruções do processador, para isso é necessário conhecer os registradores da máquina.
22. Quais as características do Apple II?
Primeiro computador pessoal a vir em gabinete e a incluir a capacidade de gerar gráficos coloridos em seus recursos. Este computador cresceu em admiração ao receber o Apple Disk II, na época o mais barato drive de floppy (disquete de 5 ¼") existente no mercado. O Apple II era baseado no processador 6502 a 1 MHz, com RAM começando de 4KB até 64KB, ROM de 12KB incluindo o AppleSoft BASIC, desenhava gráficos em 6 cores a 280x192 pixels (uma fantástica resolução para a época), tinha alto-falante embutido e custava US$1.298.
Primeiro computador pessoal a vir em gabinete e a incluir a capacidade de gerar gráficos coloridos em seus recursos. Este computador cresceu em admiração ao receber o Apple Disk II, na época o mais barato drive de floppy (disquete de 5 ¼") existente no mercado. O Apple II era baseado no processador 6502 a 1 MHz, com RAM começando de 4KB até 64KB, ROM de 12KB incluindo o AppleSoft BASIC, desenhava gráficos em 6 cores a 280x192 pixels (uma fantástica resolução para a época), tinha alto-falante embutido e custava US$1.298.
27. Quais os componentes de um sistema de computação?
- HARDWARE: É a parte física que está dividida em 5 partes funcionais: unidades de entrada, unidades de saída, memória principal, unidade central de processamento (UCP) e memória secundária. A UCP (ou processador) é composta da unidade de controle (UC) e da unidade lógica e aritmética (ULA).
- SOFTWARE: é o conjunto de programas
- HARDWARE: É a parte física que está dividida em 5 partes funcionais: unidades de entrada, unidades de saída, memória principal, unidade central de processamento (UCP) e memória secundária. A UCP (ou processador) é composta da unidade de controle (UC) e da unidade lógica e aritmética (ULA).
- SOFTWARE: é o conjunto de programas
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.
Característica de Construção:
1ª Geração: (Anos 50), computadores baseados em tecnologia de VÁLVULA.
2ª Geração: (1ª metade dos anos 60), computadores baseados em tecnologia de TRANSISTOR.
3ª Geração: (meados dos anos 60 a meados dos anos 70), computadores baseados em tecnologia de CIRCUITO INTEGRADO.
4ª Geração: (meados dos anos 70 ao início dos anos 90)computadores baseados em tecnologia de (MICROPROCESSADORES) PCs e Workstations.
5ª Geração: (início dos anos 90 aos dias atuais).
Princípio de Construção (natureza):
Analógicos e Digitais
Quanto ao Âmbito:
Propósitos Gerais e Propósitos Específicos
Quanto ao Porte (dimensões, custos, desempenho e propósito):
Supercomputadores, Mainframes, Minicomputadores, Estações de trabalho e Computadores pessoais
Característica de Construção:
1ª Geração: (Anos 50), computadores baseados em tecnologia de VÁLVULA.
2ª Geração: (1ª metade dos anos 60), computadores baseados em tecnologia de TRANSISTOR.
3ª Geração: (meados dos anos 60 a meados dos anos 70), computadores baseados em tecnologia de CIRCUITO INTEGRADO.
4ª Geração: (meados dos anos 70 ao início dos anos 90)computadores baseados em tecnologia de (MICROPROCESSADORES) PCs e Workstations.
5ª Geração: (início dos anos 90 aos dias atuais).
Princípio de Construção (natureza):
Analógicos e Digitais
Quanto ao Âmbito:
Propósitos Gerais e Propósitos Específicos
Quanto ao Porte (dimensões, custos, desempenho e propósito):
Supercomputadores, Mainframes, Minicomputadores, Estações de trabalho e Computadores pessoais
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?
Uma razão primordial é que essa revolução toda se progrediu basicamente no sentido de satisfazer as necessidades do homem e de acompanhar o progresso do humanidade, tal função só tende a crescer e se ampliar cada dia mais!
Uma razão primordial é que essa revolução toda se progrediu basicamente no sentido de satisfazer as necessidades do homem e de acompanhar o progresso do humanidade, tal função só tende a crescer e se ampliar cada dia mais!
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?
O mundo jamais vira algo como os computadores. De longe, a mais poderosa ferramenta jamais inventada para gravar e transmitir códigos ou símbolos de representações do conhecimento humano. Foi a primeira máquina que, alimentada com adequada informação simbólica, pôde estimular o trabalho de outras máquinas, incluindo as imaginárias.
O computador está até mesmo modificando a essência da realidade. Usando dados reais ou imaginários, pode simular complexos processos físicos e criar a chamada “realidade virtual”, que terá qualidade suficiente para nos fazer duvidar se o que estamos vendo na tela de TV é real ou virtualmente real.
Assinar:
Postagens (Atom)