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
segunda-feira, 27 de setembro de 2010
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)
Assinar:
Postagens (Atom)