algoritmo "Nota final"
var
n1,n2,n3:real
inicio
escreva("Entre com a primeira nota")
leia (n1)
escreva("Entre com a segunda nota")
leia(n2)
n3 <- 18-(n1+n2)
escreva( " A nota mínima de n3 eh",n3)
fimalgoritmo
terça-feira, 28 de setembro de 2010
3.15) Escreva um algoritmo que leia duas datas,na forma dia,mês e ano e informe qual é a mais recente.
algoritmo "Data mais recente "
var
d1,m1,a1,d2,m2,a2,data1,data2 : inteiro
inicio
escreval ("Digite o dia 1")
leia(d1)
escreval ("Digite o mes 1")
leia(m1)
escreval ("Digite o ano 1")
leia(a1)
escreval ("Digite o dia 2")
leia(d2)
escreval ("Digite o mes 2")
leia(m2)
escreval ("Digite o ano 2")
leia(a2)
se (a2 = a1)e(m2 = m1)e(d2 = d1)entao
escreva ("AS datas são iguais")
fimse
data1 <- d1+(m1*30)+(365*a1)
data2 <- d2+(m2*30)+(365*a2)
se (data1 > data2) entao
escreva ("A data mais recente eh",d1,"/",m1,"/",a1)
senao
escreva ("A data mais recente eh",d2,"/",m2,"/",a2)
fimse
fimalgoritmo
var
d1,m1,a1,d2,m2,a2,data1,data2 : inteiro
inicio
escreval ("Digite o dia 1")
leia(d1)
escreval ("Digite o mes 1")
leia(m1)
escreval ("Digite o ano 1")
leia(a1)
escreval ("Digite o dia 2")
leia(d2)
escreval ("Digite o mes 2")
leia(m2)
escreval ("Digite o ano 2")
leia(a2)
se (a2 = a1)e(m2 = m1)e(d2 = d1)entao
escreva ("AS datas são iguais")
fimse
data1 <- d1+(m1*30)+(365*a1)
data2 <- d2+(m2*30)+(365*a2)
se (data1 > data2) entao
escreva ("A data mais recente eh",d1,"/",m1,"/",a1)
senao
escreva ("A data mais recente eh",d2,"/",m2,"/",a2)
fimse
fimalgoritmo
sexta-feira, 24 de setembro de 2010
3.17) Escreva um algorítmo que leia a quantidade de R$ em dinheiro que uma pessoa tem para enviar cartas,o preço PE de um envelope,o preço PS de um selo,a quantidade QS de selos que a pessoa ja dispõe e a quantidade de envelopes QE que a pessoa também ja dispõe. O algorítmo deve calcular e inofrmar quantas cartas a pessoa pode enviar.
algoritmo "Cartas"
//d-dinheiro
//pe-preço envelope
//ps-preço selo
//qsqtd d selo
//qe-qtd d envelope
//t-total d cartas p/ enviar
var
t:real
z,y,x,d,qs,qe,pe,ps:inteiro
inicio
escreval(" Carta ")
escreva ("Informe o dinheiro disponível")
leia (d)
escreva (" Informe o preço do envelope")
leia (pe)
escreva ("Informe o preço dos selos")
leia (ps)
escreva("Informe quantidade de selo")
leia (qs)
escreva ("Informe quantidade de envelope")
leia (qe)
x <- pe + ps
y <- (d div x)
se (qs > qe) entao
z <- qe
senao
z <- qs
fimse
t <- y + z
escreva ("A quantidade de cartas que podem ser enviadas eh ",t," cartas")
fimalgoritmo
//d-dinheiro
//pe-preço envelope
//ps-preço selo
//qsqtd d selo
//qe-qtd d envelope
//t-total d cartas p/ enviar
var
t:real
z,y,x,d,qs,qe,pe,ps:inteiro
inicio
escreval(" Carta ")
escreva ("Informe o dinheiro disponível")
leia (d)
escreva (" Informe o preço do envelope")
leia (pe)
escreva ("Informe o preço dos selos")
leia (ps)
escreva("Informe quantidade de selo")
leia (qs)
escreva ("Informe quantidade de envelope")
leia (qe)
x <- pe + ps
y <- (d div x)
se (qs > qe) entao
z <- qe
senao
z <- qs
fimse
t <- y + z
escreva ("A quantidade de cartas que podem ser enviadas eh ",t," cartas")
fimalgoritmo
3.16)Escreva um algoritmo que leia os nomes dos três canidatos ao Senado ( para uma vaga) com suas respectivas votações. O algritmo de escrever o nome do candidato mais votado. Por exemplo: maior votação: João da Silva ou no caso de haver empate entre dois (os mais votados) ou entre os três candidatos,devem ser escritos os nomes desses candidatos.Por exemplo: maior votação: João da Silva,Maria do Socorro.
algoritmo "O nome do candidato mais votado"
var
c1,c2,c3 : literal
v1,v2,v3 : inteiro
inicio
escreval ("Calcular votação")
escreva ("Informe o nome do primeiro candidato ")
leia(c1)
escreva ("Digite a quantidades de votos do candidato ", c1)
leia(v1)
escreva ("Informe o nome do segundo candidato ")
leia(c2)
escreva ("Digite a quantidades de votos do candidato ", c2)
leia(v2)
escreva ("Informe o nome do terceiro candidato ")
leia(c3)
escreva ("Digite a quantidades de votos do candidato ",c3)
leia(v3)
se (v1=v2)e (v2=v3)entao
escreva(" Deu empate entre o candidatos:",c1,", ",c2,", ",c3)
senao
se (v1=v2) e (v2 >v3) entao
escreva("Deu empate entre os candidatos:",c1,", ",c2)
senao
se (v2=v3)e(v2>v1)entao
escreva ("Deu empate entre os candidatos:",c2,", ",c3)
senao
se (v1=v3)e (v1>v2)entao
escreva ("Deu empate entre os candidatos:",c1,", ",c3)
senao
se (v1 > v2) e (v1>v3)entao
escreva ("O canditado ",c1," foi mais votado")
senao
se(v2 > v1)e (v2 >v3) entao
escreva("O candidato ",c2," foi mais votado")
senao
escreva(" O candidato ",c3," foi mais votado")
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
var
c1,c2,c3 : literal
v1,v2,v3 : inteiro
inicio
escreval ("Calcular votação")
escreva ("Informe o nome do primeiro candidato ")
leia(c1)
escreva ("Digite a quantidades de votos do candidato ", c1)
leia(v1)
escreva ("Informe o nome do segundo candidato ")
leia(c2)
escreva ("Digite a quantidades de votos do candidato ", c2)
leia(v2)
escreva ("Informe o nome do terceiro candidato ")
leia(c3)
escreva ("Digite a quantidades de votos do candidato ",c3)
leia(v3)
se (v1=v2)e (v2=v3)entao
escreva(" Deu empate entre o candidatos:",c1,", ",c2,", ",c3)
senao
se (v1=v2) e (v2 >v3) entao
escreva("Deu empate entre os candidatos:",c1,", ",c2)
senao
se (v2=v3)e(v2>v1)entao
escreva ("Deu empate entre os candidatos:",c2,", ",c3)
senao
se (v1=v3)e (v1>v2)entao
escreva ("Deu empate entre os candidatos:",c1,", ",c3)
senao
se (v1 > v2) e (v1>v3)entao
escreva ("O canditado ",c1," foi mais votado")
senao
se(v2 > v1)e (v2 >v3) entao
escreva("O candidato ",c2," foi mais votado")
senao
escreva(" O candidato ",c3," foi mais votado")
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
3.14) Escreva um algorítmo que leia três valores correspondente ao dia,mês e ano de nascimento de uma pessoa e outro três valores correspondentes ao dia,mês e ano do dia corrente. O algoritmo deve escrever a idade da pessoa.
algoritmo "Idade da pessoa"
var
aH,mH,dH,aN,mN,dN,xA,xD,xM,tD,tM : inteiro
inicio
escreval ("Informe dia de nascimento")
leia(dN)
escreval ("Informe o mes de nascimento")
leia(mN)
escreval ("Informe o ano de nascimento")
leia(aN)
escreval ("Informe o dia de hoje")
leia(dH)
escreval ("Informe o mes de hoje")
leia(mH)
escreval ("Informe o ano de hoje")
leia(aH)
xA <- (aH -1)- aN
xM <- (mH +11 -mN)
xD <- (dH +30 - dN)
se (xD >30)entao
tD <- xD -30
xM <- xM + 1
fimse
se (xM >12) entao
tM <- xM -12
xA <- xA +1
fimse
escreval (" A Idade eh",xA,"anos",tm,"meses",td,"dias")
fimalgoritmo
var
aH,mH,dH,aN,mN,dN,xA,xD,xM,tD,tM : inteiro
inicio
escreval ("Informe dia de nascimento")
leia(dN)
escreval ("Informe o mes de nascimento")
leia(mN)
escreval ("Informe o ano de nascimento")
leia(aN)
escreval ("Informe o dia de hoje")
leia(dH)
escreval ("Informe o mes de hoje")
leia(mH)
escreval ("Informe o ano de hoje")
leia(aH)
xA <- (aH -1)- aN
xM <- (mH +11 -mN)
xD <- (dH +30 - dN)
se (xD >30)entao
tD <- xD -30
xM <- xM + 1
fimse
se (xM >12) entao
tM <- xM -12
xA <- xA +1
fimse
escreval (" A Idade eh",xA,"anos",tm,"meses",td,"dias")
fimalgoritmo
3.13) Escreva um algoritmo que leia a altura (em metros), o peso (em quilogramas) e o sexo("MASCULINO" ou "FEMININO") e caclcule seu peso ideal,dado por : peso ideal do homem = (72,7 x altura)- 58 ou peso ideal da mulher =(62,1 x altura)-44,77. O algoritmo deve,tambem,informar se a pessoa está abaixo ou acima de seu peso ideal em quantos quilos.
algoritmo "peso ideial"
var
h,p,psI,x : real
s,m,f :literal
inicio
escreva(" Informe a altura ")
leia (h)
escreva(" Informe o peso ")
leia (p)
escreva(" Informe o sexo m,f")
leia (s)
se (s ="f")entao
psI<- ((62.1 * h)-44.77)
senao
psI <- ((72.7 * h) - 58)
fimse
se (p >psI) entao
x <- p - psI
escreva("Seu peso está",x,"kilos acima do peso ideal ")
senao
x <- psI - p
escreva ("Se peso está",x, "kilos abaixo do peso ideal")
fimse
fimalgoritmo
var
h,p,psI,x : real
s,m,f :literal
inicio
escreva(" Informe a altura ")
leia (h)
escreva(" Informe o peso ")
leia (p)
escreva(" Informe o sexo m,f")
leia (s)
se (s ="f")entao
psI<- ((62.1 * h)-44.77)
senao
psI <- ((72.7 * h) - 58)
fimse
se (p >psI) entao
x <- p - psI
escreva("Seu peso está",x,"kilos acima do peso ideal ")
senao
x <- psI - p
escreva ("Se peso está",x, "kilos abaixo do peso ideal")
fimse
fimalgoritmo
3.11) Escreva um algorítmo que leia um dia,mes e ano e escreva para essa data lida,o numero de dias transcorridos na ano.
algoritmo "dia corridos"
var
dia,mes,ano, dc :inteiro
inicio
escreval("Calcular dia")
escreva("Entre com o dia")
leia (dia)
escreva("Entre com o mes")
leia(mes)
escreva("Entre com o ano ")
leia(ano)
se ((ano mod 4)=0) entao
dc <- 366
senao
dc <- 365
se (mes =12)entao
dc <- dc -31
dc <- dc+ dia
senao
dc <- dc -31
se ( mes =11) entao
dc <- dc -30
dc <- dc + dia
senao
dc <- dc -30
se ( mes =10) entao
dc <- dc -31
dc <- dc + dia
senao
dc <- dc -31
se ( mes =09) entao
dc <- dc -30
dc <- dc + dia
senao
dc <- dc - 30
se ( mes =08) entao
dc <- dc -31
dc <- dc + dia
senao
dc <- dc - 31
se (mes = 07) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc - 31
se ( mes = 06) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc - 30
se ( mes = 05) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc - 31
se ( mes = 04) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc - 30
se ( mes = 03)entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc - 31
se (mes = 02) entao
se (( ano mod 4)=0) entao
dc <- dc - 29
dc <- dc + dia
senao
dc <- dc - 28
dc <- dc + dia
fimse
senao
dc <- dia
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
escreva(" O total de dias corridos eh",dc)
fimse
fimalgoritmo
var
dia,mes,ano, dc :inteiro
inicio
escreval("Calcular dia")
escreva("Entre com o dia")
leia (dia)
escreva("Entre com o mes")
leia(mes)
escreva("Entre com o ano ")
leia(ano)
se ((ano mod 4)=0) entao
dc <- 366
senao
dc <- 365
se (mes =12)entao
dc <- dc -31
dc <- dc+ dia
senao
dc <- dc -31
se ( mes =11) entao
dc <- dc -30
dc <- dc + dia
senao
dc <- dc -30
se ( mes =10) entao
dc <- dc -31
dc <- dc + dia
senao
dc <- dc -31
se ( mes =09) entao
dc <- dc -30
dc <- dc + dia
senao
dc <- dc - 30
se ( mes =08) entao
dc <- dc -31
dc <- dc + dia
senao
dc <- dc - 31
se (mes = 07) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc - 31
se ( mes = 06) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc - 30
se ( mes = 05) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc - 31
se ( mes = 04) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc - 30
se ( mes = 03)entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc - 31
se (mes = 02) entao
se (( ano mod 4)=0) entao
dc <- dc - 29
dc <- dc + dia
senao
dc <- dc - 28
dc <- dc + dia
fimse
senao
dc <- dia
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
escreva(" O total de dias corridos eh",dc)
fimse
fimalgoritmo
domingo, 19 de setembro de 2010
3.10)Escreva um algorítmo que leia o nome do nadador e sua idade.O algorítmo deve escrever: A CATEGORIA DE MARCOS É INFANTIL B.
A Categoria é determinada conforme abaixo:
*nadador com idade entre 5 e 7 anos são categoria Infantil A;
*nadador com idade entre 8 e 10 anos são categoria Infantil B;
*nadador com idade entre 11 e 13 anos são categoria Juvenil A;
*nadador com idade entre 14 e 18 anos são categoria Juvenil B; e
*nadador com idade com idade superior a 18 anos são categoria Sênior;
algoritmo "Classificar Categoria de Nadador por idade com nome"
var
idade: inteiro
nome: literal
inicio
escreval ("Informe o nome do nadador: ")
leia (nome)
escreval ("Informe a idade do nadador")
leia (idade)
se(idade <5) entao
escreva ("nao compete")
senao
se (idade >= 5) e (idade <=7) entao
escreva ("A categoria de ", nome , " eh Infantil A")
senao
se (idade >= 8) e (idade <=10) entao
escreva ("A categoria de ", nome , " eh Infantil b")
senao
se(idade >= 11) e (idade <=13) entao
escreva ("A categoria de ", nome , " eh Juvenil A")
senao
se (idade >=14) e (idade <=18) entao
escreva ("A categoria de ", nome , " eh Juvenil B")
senao
se (idade >18)entao
escreva ("A categoria de ", nome , " eh SÊNIOR")
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
*nadador com idade entre 5 e 7 anos são categoria Infantil A;
*nadador com idade entre 8 e 10 anos são categoria Infantil B;
*nadador com idade entre 11 e 13 anos são categoria Juvenil A;
*nadador com idade entre 14 e 18 anos são categoria Juvenil B; e
*nadador com idade com idade superior a 18 anos são categoria Sênior;
algoritmo "Classificar Categoria de Nadador por idade com nome"
var
idade: inteiro
nome: literal
inicio
escreval ("Informe o nome do nadador: ")
leia (nome)
escreval ("Informe a idade do nadador")
leia (idade)
se(idade <5) entao
escreva ("nao compete")
senao
se (idade >= 5) e (idade <=7) entao
escreva ("A categoria de ", nome , " eh Infantil A")
senao
se (idade >= 8) e (idade <=10) entao
escreva ("A categoria de ", nome , " eh Infantil b")
senao
se(idade >= 11) e (idade <=13) entao
escreva ("A categoria de ", nome , " eh Juvenil A")
senao
se (idade >=14) e (idade <=18) entao
escreva ("A categoria de ", nome , " eh Juvenil B")
senao
se (idade >18)entao
escreva ("A categoria de ", nome , " eh SÊNIOR")
fimse
fimse
fimse
fimse
fimse
fimse
fimalgoritmo
3.9) escreva um algorítmo que implemente uma calculadora de quatro operações. O algorítmo lê o primeiro operando, a operação(alguns dos quatros 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 algorítmo deve escrever: 4*5=20
algoritmo "calculadora de 4 operações"
var
numero1, numero2, resultado: real
sinal: literal
inicio
escreval ("calculadora de 4 operações")
escreva ("Informe o primeiro número: ")
leia (numero1)
escreva ("Informe o segundo número: ")
leia (numero2)
escreva ("Informe a operação: ")
leia (sinal)
se sinal = "+" entao
resultado <- (numero1 + numero2)
escreva (" a operação " , numero1, "+" , numero2, "=" ,resultado)
senao
se sinal = "-" entao
resultado <- (numero1 - numero2)
escreva (" a operação " , numero1, "-" , numero2, "=" ,resultado)
senao
se sinal = "*" entao
resultado <- (numero1 * numero2)
escreva (" a operação " , numero1, "*" , numero2, "=" ,resultado)
senao
se sinal = "/" entao
resultado <- (numero1 / numero2)
escreva (" a operação " , numero1, "/" , numero2, "=" ,resultado)
senao
fimse
fimse
fimse
fimse
fimalgoritmo
var
numero1, numero2, resultado: real
sinal: literal
inicio
escreval ("calculadora de 4 operações")
escreva ("Informe o primeiro número: ")
leia (numero1)
escreva ("Informe o segundo número: ")
leia (numero2)
escreva ("Informe a operação: ")
leia (sinal)
se sinal = "+" entao
resultado <- (numero1 + numero2)
escreva (" a operação " , numero1, "+" , numero2, "=" ,resultado)
senao
se sinal = "-" entao
resultado <- (numero1 - numero2)
escreva (" a operação " , numero1, "-" , numero2, "=" ,resultado)
senao
se sinal = "*" entao
resultado <- (numero1 * numero2)
escreva (" a operação " , numero1, "*" , numero2, "=" ,resultado)
senao
se sinal = "/" entao
resultado <- (numero1 / numero2)
escreva (" a operação " , numero1, "/" , numero2, "=" ,resultado)
senao
fimse
fimse
fimse
fimse
fimalgoritmo
3.8) Seja o seguinte algorítmo:
algoritmo "Dec2Bin"
var
b: literal
n,q,r: inteiro
inicio
b <- " "
escreva("Entre com um numero")
leia (n)
q <- n
r <- q%2
q <- q\2
se r=0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
r <- q%2
q <- q\2
se r = 0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
r <- q%2
q <- q\2
se r = 0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
r <- q%2
q <- q\2
se r = 0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
r <- q%2
q <- q\2
se r = 0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
escreva(n,"em decimal é representado por",b," em binário")
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.
var
b: literal
n,q,r: inteiro
inicio
b <- " "
escreva("Entre com um numero")
leia (n)
q <- n
r <- q%2
q <- q\2
se r=0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
r <- q%2
q <- q\2
se r = 0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
r <- q%2
q <- q\2
se r = 0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
r <- q%2
q <- q\2
se r = 0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
r <- q%2
q <- q\2
se r = 0 entao
b <- "0"+ b
senao
b <- "1"+ b
fimse
escreva(n,"em decimal é representado por",b," em binário")
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.
3.7) Escreva um algorítmo que leia o nome de cinco clientes de uma loja e valor (em reais) que cada um desses clientes pagou por sua compra.O algorítmo 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.
algoritmo "calcular gastos de cliente de uma loja"
var
cliente1,cliente2,cliente3,cliente4,cliente5 : literal
x1,x2,x3,x4,x5,vT,vM : real
inicio
escreval ("calcular gastos de um loja")
escreva (" informe o nome do cliente 1")
leia (cliente1)
escreva (" informe o nome do cliente 2")
leia (cliente2)
escreva (" informe o nome do cliente 3")
leia (cliente3)
escreva (" informe o nome do cliente 4")
leia (cliente4)
escreva (" informe o nome do cliente 5")
leia (cliente5)
escreva (" informe o valor gasto do cliente 1,R$")
leia (x1)
escreva (" informe o valor gasto do cliente 2,R$")
leia (x2)
escreva (" informe o valor gasto do cliente 3,R$")
leia (x3)
escreva (" informe o valor gasto do cliente 4,R$")
leia (x4)
escreva (" informe o valor gasto do cliente 5,R$")
leia (x5)
vT <-(x1+x2+x3+x4+x5)
vM <- (vT /5)
escreva ("o valor gasto pelos clientes na loja eh R$")
escreval (vT:5:2)
escreva (" O valor medio das compras efetuadas eh ")
escreval (vM :5:2)
escreval (" Realçao dos clientes que gastaram acima de R$20,00:")
se (x1>20)entao
escreval (cliente1)
fimse
Se (x2>20) entao
escreval (cliente2)
fimse
se (x3>20) entao
escreval (cliente3)
fimse
se (x4>20) entao
escreval (cliente4)
fimse
se (x5 >20) entao
escreval(cliente5)
fimse
fimalgoritmo
var
cliente1,cliente2,cliente3,cliente4,cliente5 : literal
x1,x2,x3,x4,x5,vT,vM : real
inicio
escreval ("calcular gastos de um loja")
escreva (" informe o nome do cliente 1")
leia (cliente1)
escreva (" informe o nome do cliente 2")
leia (cliente2)
escreva (" informe o nome do cliente 3")
leia (cliente3)
escreva (" informe o nome do cliente 4")
leia (cliente4)
escreva (" informe o nome do cliente 5")
leia (cliente5)
escreva (" informe o valor gasto do cliente 1,R$")
leia (x1)
escreva (" informe o valor gasto do cliente 2,R$")
leia (x2)
escreva (" informe o valor gasto do cliente 3,R$")
leia (x3)
escreva (" informe o valor gasto do cliente 4,R$")
leia (x4)
escreva (" informe o valor gasto do cliente 5,R$")
leia (x5)
vT <-(x1+x2+x3+x4+x5)
vM <- (vT /5)
escreva ("o valor gasto pelos clientes na loja eh R$")
escreval (vT:5:2)
escreva (" O valor medio das compras efetuadas eh ")
escreval (vM :5:2)
escreval (" Realçao dos clientes que gastaram acima de R$20,00:")
se (x1>20)entao
escreval (cliente1)
fimse
Se (x2>20) entao
escreval (cliente2)
fimse
se (x3>20) entao
escreval (cliente3)
fimse
se (x4>20) entao
escreval (cliente4)
fimse
se (x5 >20) entao
escreval(cliente5)
fimse
fimalgoritmo
3.6)Um sistema de equações lineares do tipo: 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. 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 que os denominadores das equações não podem ser zero.
algoritmo "calcular x e y"
var
a,b,c,d,f,x,y,n,z :real
inicio
escreval ("calcular valor de x , y")
escreva (" informe valor de a ")
leia (a)
escreva (" informe valor de b")
leia (b)
escreva (" informe valor de c ")
leia (c)
escreva (" informe valor de d")
leia (d)
escreva (" informe valor de f")
leia (f)
escreva (" informe valor de e")
leia (z)
n <- (a*z)-(b*d)
se (n = 0)entao
escreva ( "Nao existe soluçao pertencente aos numeros reais")
senao
x <- ((c *z)-(b*f))/n
escreva ("X=")
escreval (x)
y <- ((a*f)-(c*d))/n
escreva ("Y=")
escreva (y)
fimse
fimalgoritmo
var
a,b,c,d,f,x,y,n,z :real
inicio
escreval ("calcular valor de x , y")
escreva (" informe valor de a ")
leia (a)
escreva (" informe valor de b")
leia (b)
escreva (" informe valor de c ")
leia (c)
escreva (" informe valor de d")
leia (d)
escreva (" informe valor de f")
leia (f)
escreva (" informe valor de e")
leia (z)
n <- (a*z)-(b*d)
se (n = 0)entao
escreva ( "Nao existe soluçao pertencente aos numeros reais")
senao
x <- ((c *z)-(b*f))/n
escreva ("X=")
escreval (x)
y <- ((a*f)-(c*d))/n
escreva ("Y=")
escreva (y)
fimse
fimalgoritmo
3.5) Escreva um algorítmo que lê dois numeros inteiros e informe se o primeiro é múltiplo do segundo.
algoritmo "calcular 2 numeros multiplos"
var
x1, x2, resto : inteiro
inicio
escreval (" calcular multiplos")
escreva ("informe o numero x 1")
leia (x1)
escreva (" informe o numero x 2")
leia (x2)
se (x1 >x2) entao
resto <- x1 mod x2
senao
resto <- x2 mod x1
fimse
se ( resto = 0) entao
escreva ("o primeiro eh multiplo")
senao
escreva ("o segundo eh multiplo")
fimse
fimalgoritmo
var
x1, x2, resto : inteiro
inicio
escreval (" calcular multiplos")
escreva ("informe o numero x 1")
leia (x1)
escreva (" informe o numero x 2")
leia (x2)
se (x1 >x2) entao
resto <- x1 mod x2
senao
resto <- x2 mod x1
fimse
se ( resto = 0) entao
escreva ("o primeiro eh multiplo")
senao
escreva ("o segundo eh multiplo")
fimse
fimalgoritmo
sexta-feira, 17 de setembro de 2010
3.4 ) Escreva um algoritmo para calcular a área de um circulo,fornecido o valor do raio,que deve ser positivo ou negativo.
algoritmo "circulo
var
area, raio:real
inicio
pi <- 3.141518
escreva ("digite raio")
leia(raio)
area <- pi * (raio ^2)
se ( area > 0) ou (area = 0) entao
escreva ("a area eh",area:5:2)
senao
escreva (" o raio precisa ser > = 0")
fimse
fimalgoritmo
var
area, raio:real
inicio
pi <- 3.141518
escreva ("digite raio")
leia(raio)
area <- pi * (raio ^2)
se ( area > 0) ou (area = 0) entao
escreva ("a area eh",area:5:2)
senao
escreva (" o raio precisa ser > = 0")
fimse
fimalgoritmo
3.3 ) Quais os valores armazenados em SOMA, NOME E TUDO após executados os passos abaixo,supondo-se que NUM,X,COR, DIA, TESTE e COD valem, respectivamente, 5,2,"Azul","Terça",FALSO e VERDADEIRO" ?
1. NOME <- DIA
NOME <- Terça
2. SOMA <-(NUM^2/X) + (X +1)=
SOMA <- (5^2/2) + (2+1 )= 15.5
3. TUDO <-nao ((TESTE ou COD) e (X <> NUM)= V
NOME <- Terça
2. SOMA <-(NUM^2/X) + (X +1)=
SOMA <- (5^2/2) + (2+1 )= 15.5
3. TUDO <-nao ((TESTE ou COD) e (X <> NUM)= V
3.2 ) Forneça o resultado da expressão lógica, se é Verdadeiro ou Falso:
(((5/2=5/2) e (3.0 <>3.1)) ou (5>=4)) e (nao(5=5.0)) F
3.1 Condicionais. 1) Resolva as expressões lógicas,em Verdadeiro ou Falso:
1) 2 >3 FALSO
2) (6 <8) ou ( 3>7) VERDADEIRO
3)nao (2< >2.0) VERDADEIRO
4) 5 >= 6 ou 6 < 7 ou nao ( a +5 - 6 = 8) onde a=5 FALSO
5) (34 <9 e 5 + u = 34) ou ( 5 = 15/3 e 8 >12) onde u = 29 FSALSO
2) (6 <8) ou ( 3>7) VERDADEIRO
3)nao (2< >2.0) VERDADEIRO
4) 5 >= 6 ou 6 < 7 ou nao ( a +5 - 6 = 8) onde a=5 FALSO
5) (34 <9 e 5 + u = 34) ou ( 5 = 15/3 e 8 >12) onde u = 29 FSALSO
domingo, 12 de setembro de 2010
5 ) Elabore um algoritmo qua dada a idade de um nadador,classifique-o uma das seguintes categorias : infantil A = 5 - 7 anos, infantil B = 8 - 10 anos,junvenil A= 11- 13 anos, juvenil B = 14 - 17 anos e adulto = maiores de 18 anos.
algoritmo "Calcular idade do nadador"
var
idade: inteiro
inicio
escreval("informe a idade do nadador")
leia (idade)
escreval
se ((idade >=5)e (idade <=7))entao
escreva ("infantil A")
senao
se ((idade >=8)e (idade <=10))entao
escreva ("infantil B")
senao
se ((idade >=11) e (idade <=13)entao
escreva("juvenil A")
senao
se ((idade >=14) e (idade <=17) entao
escreva ("juvenil B")
senao
escreva ("Adulto")
fimse
fimse
fimse
fimse
fimalgoritmo
var
idade: inteiro
inicio
escreval("informe a idade do nadador")
leia (idade)
escreval
se ((idade >=5)e (idade <=7))entao
escreva ("infantil A")
senao
se ((idade >=8)e (idade <=10))entao
escreva ("infantil B")
senao
se ((idade >=11) e (idade <=13)entao
escreva("juvenil A")
senao
se ((idade >=14) e (idade <=17) entao
escreva ("juvenil B")
senao
escreva ("Adulto")
fimse
fimse
fimse
fimse
fimalgoritmo
4 ) Elaborar um algoritmo que lê 2 valores a e b, os escrevem com a mensagem " são multiplos ou não "
algoritmo "Calcular multiplos"
var
a, b,resto : inteiro
inicio
escreval("calcular multiplos")
escreva ("informe valor a")
leia(a)
escreva ("informe valor b")
leia (b)
se (a>b) entao
resto <- a mod b
senao
resto <- b mod a
fimse
se (resto =0)entao
escreva ("sao multiplos")
senao
escreva ("nao multiplos")
fimse
fimalgoritmo
var
a, b,resto : inteiro
inicio
escreval("calcular multiplos")
escreva ("informe valor a")
leia(a)
escreva ("informe valor b")
leia (b)
se (a>b) entao
resto <- a mod b
senao
resto <- b mod a
fimse
se (resto =0)entao
escreva ("sao multiplos")
senao
escreva ("nao multiplos")
fimse
fimalgoritmo
3 ) Elaborar um algoritmo que lê 3 valores a, b, c e osescreve. A seguir encontre o maior dos 3 valores e escreva com a mensagem " é o maior"
algoritmo "Calcular tres valores"
var
a, b, c : real
inicio
escreva ("informe valor a")
leia (a)
escreva ("informe valor b")
leia (b)
escreva("informe valor c")
leia (c)
se (a >b) e (a>c) entao
escreva (" a eh o maior ")
fimse
se (b>c) entao
escreva (" b eh o maior ")
senao
escreva (" c eh o maior")
fimse
fimalgoritmo
var
a, b, c : real
inicio
escreva ("informe valor a")
leia (a)
escreva ("informe valor b")
leia (b)
escreva("informe valor c")
leia (c)
se (a >b) e (a>c) entao
escreva (" a eh o maior ")
fimse
se (b>c) entao
escreva (" b eh o maior ")
senao
escreva (" c eh o maior")
fimse
fimalgoritmo
2 ) Faça um algoritmo que receba duas notas,calcule a media e mostre uma das seguintes mensagens :media >=5 "aprovado" e media < 5 "reprovado"
algoritmo "calcular notas"
var
nota1, nota2, media : numerico
inicio
escreval (" calcular a media ")
escreva (" digite a primeira nota:")
leia (nota1)
escreva ("digite a segunda nota:")
leia (nota2)
media <- (nota1 + nota2)/2
se (media >=5)entao
escreva ("aprovado")
senao
se (media<5) entao
escreva (" reprovado")
fimse
fimse
fimalgoritmo
var
nota1, nota2, media : numerico
inicio
escreval (" calcular a media ")
escreva (" digite a primeira nota:")
leia (nota1)
escreva ("digite a segunda nota:")
leia (nota2)
media <- (nota1 + nota2)/2
se (media >=5)entao
escreva ("aprovado")
senao
se (media<5) entao
escreva (" reprovado")
fimse
fimse
fimalgoritmo
LD1 -Condicionais. 1) Faça um algorítmo que receba uma idade se ela for igual ou superior a 18 anos,mostre a mensagem " é maior".
algoritmo "informar idade"
var
idade : Inteiro
inicio
escreva (" digite a idade")
leia (idade)
se ((idade >=18) e (idade <30)) entao
escreva ("ele eh jovem")
senao
se (idade >=18)entao
escreva ("ele eh maior")
senao
escreva (" ele eh menor")
fimse
fimse
fimalgoritmo
var
idade : Inteiro
inicio
escreva (" digite a idade")
leia (idade)
se ((idade >=18) e (idade <30)) entao
escreva ("ele eh jovem")
senao
se (idade >=18)entao
escreva ("ele eh maior")
senao
escreva (" ele eh menor")
fimse
fimse
fimalgoritmo
domingo, 5 de setembro de 2010
21 ) A comissão de formatura de um curso está organizando a festa de formatura de sua turma e levantou as seguintes informações: 1. custo do salão (capacidade de 800 pessoas com mesas de 4 pessoas) R$ 2000.00; 2. custo da sonorização: R$ 500,00 3. custo da decoração: R$ 800,00 Além desses custos, que serão rateados igualmente entre os formandos, há custos cuja divisão é proporcional ao número de convidados do formando. São eles: 1. segurança: necessário um segurança para cada 80 pessoas da festa; 2. garçom: um garçom consegue atender 48 pessoas (ou 12 mesas de 4 pessoas); e 3. bebida. Escreva um algoritmo que leia o nome de cada um dos cinco formandos com seus respectivos números de convidados. Ele também deve ler os custos de um segurança, de um garçom e da bebida. O algoritmo deve calcular e escrever, para cada formando o número de mesas desitnadas para seus convidados e o custo da festa para eles. As mesas poderão ser compartilhadas entre convidados de diferentes formandos.
algoritmo "calcular festa formatura"
var
nomeF1, nomeF2, nomeF3, nomeF4, nomeF5:literal
nconF1, nconF2, nconF3, nconF4, nconF5, custoSeg, custo1Seg, seguranca, custoGar, custo1Gar, garcon, bebida, mesasFor, custoFestaFor, totalConv: real
inicio
escreval ("Calcular Festa Formatura")
escreva ("nome de formando 1: ")
leia (nomeF1)
escreva ("Informe numero convidados Formando 1:")
leia (nconF1)
escreva ("nome de formando 2: ")
leia (nomeF2)
escreva ("Informe numero convidados Formando 2:")
leia (nconF2)
escreva ("nome de formando 3: ")
leia (nomeF3)
escreva ("Informe numero convidados Formando 3:")
leia (nconF3)
escreva ("nome de formando 4: ")
leia (nomeF4)
escreva ("Informe numero convidados Formando 4:")
leia (nconF4)
escreva ("nome de formando 5: ")
leia (nomeF5)
escreva ("Informe numero convidados Formando 5:")
leia (nconF5)
escreva ("qual o valor de 1 segurança: ")
leia(custo1Seg)
escreva ("qual o valor de 1 garçom: ")
leia (custo1Gar)
escreva ("Qual valor da bebida: ")
leia (bebida)
escreval
totalConv <- (nconF1+nconF2+nconF3+nconF4+nconF5)
mesasFor <- (totalConv/4)
seguranca <- (totalConv/80)
custo1Seg <- (seguranca*custo1Seg)
garcon <- (totalConv/48)
custoGar <- (garcon*custo1Gar)
custoFestaFor <- (2000.00+500.00+800.00+custoSeg+custoGar+bebida)/5
escreva ("Cada Formando gastara na formatura R$ ",, custoFestaFor:5:2, " e cada formando terá direito a ", mesasFor, " mesas para seus convidados")
fimalgoritmo
var
nomeF1, nomeF2, nomeF3, nomeF4, nomeF5:literal
nconF1, nconF2, nconF3, nconF4, nconF5, custoSeg, custo1Seg, seguranca, custoGar, custo1Gar, garcon, bebida, mesasFor, custoFestaFor, totalConv: real
inicio
escreval ("Calcular Festa Formatura")
escreva ("nome de formando 1: ")
leia (nomeF1)
escreva ("Informe numero convidados Formando 1:")
leia (nconF1)
escreva ("nome de formando 2: ")
leia (nomeF2)
escreva ("Informe numero convidados Formando 2:")
leia (nconF2)
escreva ("nome de formando 3: ")
leia (nomeF3)
escreva ("Informe numero convidados Formando 3:")
leia (nconF3)
escreva ("nome de formando 4: ")
leia (nomeF4)
escreva ("Informe numero convidados Formando 4:")
leia (nconF4)
escreva ("nome de formando 5: ")
leia (nomeF5)
escreva ("Informe numero convidados Formando 5:")
leia (nconF5)
escreva ("qual o valor de 1 segurança: ")
leia(custo1Seg)
escreva ("qual o valor de 1 garçom: ")
leia (custo1Gar)
escreva ("Qual valor da bebida: ")
leia (bebida)
escreval
totalConv <- (nconF1+nconF2+nconF3+nconF4+nconF5)
mesasFor <- (totalConv/4)
seguranca <- (totalConv/80)
custo1Seg <- (seguranca*custo1Seg)
garcon <- (totalConv/48)
custoGar <- (garcon*custo1Gar)
custoFestaFor <- (2000.00+500.00+800.00+custoSeg+custoGar+bebida)/5
escreva ("Cada Formando gastara na formatura R$ ",, custoFestaFor:5:2, " e cada formando terá direito a ", mesasFor, " mesas para seus convidados")
fimalgoritmo
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; e 3. o salário liquido é o salário bruto mensal menos os encargos.
algoritmo " cacular horas trabalhadas"
var
nomeEmpregado:literal
valorHora, totalHoras, salarioBruto, encargos, salarioLiquido:real
inicio
escreva("Informe o nome do empregado")
leia(nomeEmpregado)
escreva("Informe o valor da hora trabalhada")
leia(valorHora)
escreva("Informe o total de horas trabalhadas")
leia(totalHoras)
salarioBruto <- totalHoras * valorHora
encargos <- (salarioBruto * (9/100)) + (salarioBruto * (8/100))
salarioLiquido <- salarioBruto - encargos
escreva("O empregado ", nomeEmpregado, " receberá o salário de: R$", salarioLiquido:5:2)
fimalgoritmo
var
nomeEmpregado:literal
valorHora, totalHoras, salarioBruto, encargos, salarioLiquido:real
inicio
escreva("Informe o nome do empregado")
leia(nomeEmpregado)
escreva("Informe o valor da hora trabalhada")
leia(valorHora)
escreva("Informe o total de horas trabalhadas")
leia(totalHoras)
salarioBruto <- totalHoras * valorHora
encargos <- (salarioBruto * (9/100)) + (salarioBruto * (8/100))
salarioLiquido <- salarioBruto - encargos
escreva("O empregado ", nomeEmpregado, " receberá o salário de: R$", salarioLiquido:5:2)
fimalgoritmo
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 " Calcular Custo Final Carro"
var
nomeCarro:literal
custoFinalCarro, custoFabrica, percentualVenda, imposto, totalTaxas: real
inicio
escreval ("*** Calcular Custo Final ao Consumidor de um Carro ***")
escreva ("nome do veiculo:")
leia (nomeCarro)
escreva ("Qual o custo de fábrica do veículo:")
leia (custoFabrica)
escreva ("Qual é o do percentual de revenda:")
leia (percentualVenda)
escreva ("Qual o valor do imposto:")
leia (imposto)
totalTaxas <- (custoFabrica*(percentualVenda+imposto))/100
custoFinalCarro <- custoFabrica+totalTaxas
escreva (" O custo final do carro ", nomeCarro, " eh ",custoFinalCarro: 5:2)
fimalgoritmo
var
nomeCarro:literal
custoFinalCarro, custoFabrica, percentualVenda, imposto, totalTaxas: real
inicio
escreval ("*** Calcular Custo Final ao Consumidor de um Carro ***")
escreva ("nome do veiculo:")
leia (nomeCarro)
escreva ("Qual o custo de fábrica do veículo:")
leia (custoFabrica)
escreva ("Qual é o do percentual de revenda:")
leia (percentualVenda)
escreva ("Qual o valor do imposto:")
leia (imposto)
totalTaxas <- (custoFabrica*(percentualVenda+imposto))/100
custoFinalCarro <- custoFabrica+totalTaxas
escreva (" O custo final do carro ", nomeCarro, " eh ",custoFinalCarro: 5:2)
fimalgoritmo
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 salário vendedor"
var
nomeVendedor, salarioMensal,carrosVendidos, comissao, comissaoTotal, valortotalVendas, salarioFinal: real
inicio
escreval ("Calcular salário vendedor")
escreva ("Informe salário mensal- ")
leia (salarioMensal)
escreva ("informe quantos carros foram vendidos no mês -")
leia (carrosVendidos)
escreva ("Informe valor total das vendas - ")
leia (valorTotalVendas)
comissao <- (carrosVendidos*50.00)
comissaoTotal <- (valorTotalVendas*1.04)-valorTotalVendas
salarioFinal <- (salarioMensal+comissao+comissaoTotal)
escreva (" O Vendedor ", nomeVendedor, " recebeu este mês um total de ", salariofinal:6:2)
fimalgoritmo.
var
nomeVendedor, salarioMensal,carrosVendidos, comissao, comissaoTotal, valortotalVendas, salarioFinal: real
inicio
escreval ("Calcular salário vendedor")
escreva ("Informe salário mensal- ")
leia (salarioMensal)
escreva ("informe quantos carros foram vendidos no mês -")
leia (carrosVendidos)
escreva ("Informe valor total das vendas - ")
leia (valorTotalVendas)
comissao <- (carrosVendidos*50.00)
comissaoTotal <- (valorTotalVendas*1.04)-valorTotalVendas
salarioFinal <- (salarioMensal+comissao+comissaoTotal)
escreva (" O Vendedor ", nomeVendedor, " recebeu este mês um total de ", salariofinal:6:2)
fimalgoritmo.
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)
algoritmo "conversão da base binário para decimal"
var
n1 ,n2, n3 , n4, n5, n6, decimal : numerico
inicio
escreval ("conversao binario para decimal")
escreva ("digite o primeiro numero")
leia (n1)
escreva ("digite o segundo numero")
leia (n2)
escreva ("digite o terceiro numero ")
leia (n3)
escreva ("digite o quarto numero")
leria (n4)
escreva (" digite o quinto numero")
leia (n5)
escreva ("digite o sexto numero")
leia (n6)
decimal <- (n1 * 32 + n2 * 16 + n3 * 8 + n4 * 4 + n5 * 2 + n6 * 1)
escreval (" binario fornecido",n1,n2,n3,n4,n5,n6)
escreva ("a base decimal eh")
fimalgoritmo
var
n1 ,n2, n3 , n4, n5, n6, decimal : numerico
inicio
escreval ("conversao binario para decimal")
escreva ("digite o primeiro numero")
leia (n1)
escreva ("digite o segundo numero")
leia (n2)
escreva ("digite o terceiro numero ")
leia (n3)
escreva ("digite o quarto numero")
leria (n4)
escreva (" digite o quinto numero")
leia (n5)
escreva ("digite o sexto numero")
leia (n6)
decimal <- (n1 * 32 + n2 * 16 + n3 * 8 + n4 * 4 + n5 * 2 + n6 * 1)
escreval (" binario fornecido",n1,n2,n3,n4,n5,n6)
escreva ("a base decimal eh")
fimalgoritmo
sábado, 4 de setembro de 2010
15 ) Escreva um algorítmo que leia o valor do raio e calcule a área do circulo correspondente.
algoritmo "calcular área do círculo"
var
r, area : real
inicio
escreval ("digite o raio do circulo")
leia (r)
area <- 3.14 * r^2
escreva ("area do circulo eh")
fimalgoritmo
var
r, area : real
inicio
escreval ("digite o raio do circulo")
leia (r)
area <- 3.14 * r^2
escreva ("area do circulo eh")
fimalgoritmo
14 ) Escreva um algorítmo que calcule a quantidade de latas de tintas necessárias e o custo pata pintar tanques clíndricos de combustível, onde são fornecido ( o algorítmo lê) a altura (h) e o raio ) e o raio ( r ) desse desse cilindro, Sabe -se que a lata de tinta anticorrosiva custa R$ 40.00, cada lata contem 5 litros e cada litro pinta 3 quadrados na media. Para que fique bm coberto de tinta,há necessidade de 2 demãos.
algoritmo "calcular pinturas de cilindros")
var
totalL, qtdLatas, areaBase, areaLateral, areaTotal, custoTotal, h, r, total : real
inicio
escreval("pintura de cilindros")
escreva ("digite a altura do cilindro ")
leia (h)
escreva ("digite o raio do cilindro ")
leia (r)
//calculando quantos metros quadrados 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
qtdLatas <- totalL /5
custoTotal <- qtdLatas * 40
escreval ("quantidade de latas de tinta po cilindros")
escreva ("valor total R$")
fimalgoritmo
var
totalL, qtdLatas, areaBase, areaLateral, areaTotal, custoTotal, h, r, total : real
inicio
escreval("pintura de cilindros")
escreva ("digite a altura do cilindro ")
leia (h)
escreva ("digite o raio do cilindro ")
leia (r)
//calculando quantos metros quadrados 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
qtdLatas <- totalL /5
custoTotal <- qtdLatas * 40
escreval ("quantidade de latas de tinta po cilindros")
escreva ("valor total R$")
fimalgoritmo
13) Escreva um algorítmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica,dada por : an = a1 * q^(n-1)
algoritmo "calculo de uma progressão geométrica"
var
a1, an, q, n :real
inicio
escreval ("calculo de uma progressão geometrica")
escreva (" digite o valor a1")
leia (a1)
escreva ("digite o valor n")
leia (n)
escreva ("digite o valor q")
leia (q)
an <- a1 * (q ^(n-1))
escreva ("valor do tempo an eh")
fimalgoritmo
var
a1, an, q, n :real
inicio
escreval ("calculo de uma progressão geometrica")
escreva (" digite o valor a1")
leia (a1)
escreva ("digite o valor n")
leia (n)
escreva ("digite o valor q")
leia (q)
an <- a1 * (q ^(n-1))
escreva ("valor do tempo an eh")
fimalgoritmo
12) Escreva um algorítmo 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 ,talque: 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 " calcular a soma da progressão Aritmética"
var
a1, an, sn, r, n : real
inicio
escreval (" calcular a soma da progressão Aritmética")
escreva ("digite o valor de a1")
leia (a1)
escreva ("digite o valor de an")
leia (an)
escreva ("digite o valor de r")
leia (r)
n <- ((an - a1)/r + 1)
sn <- ((a1 +an)/2)* n
escreva (" o valor da soma eh")
fimalgoritmo
var
a1, an, sn, r, n : real
inicio
escreval (" calcular a soma da progressão Aritmética")
escreva ("digite o valor de a1")
leia (a1)
escreva ("digite o valor de an")
leia (an)
escreva ("digite o valor de r")
leia (r)
n <- ((an - a1)/r + 1)
sn <- ((a1 +an)/2)* n
escreva (" o valor da soma eh")
fimalgoritmo
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 peizzas grandes com uma determinada quantidade de coberturas. Escreva um algorítmo que calcule a conta e, sabendo quantas pessoas estão á mesa, quanto cada deve pagar (não esqueça os 10% do garçon).
algoritmo " calcular a conta em uma pizzaria"
var
xchops, xpizza, xcobertura, xpessoas : inteiro
totalconta, sbtotalconta, gorggarcon, totalporpessoa : real
inicio
escreval ("calcular a canta em uma pizzaria")
escreva ("digite quantas pessoas?")
leia (xpessoas)
escreva (" digite total de chops?")
leia (xchops)
escreva ("digite total de pizzas?")
leia (xpizza)
escreva ("digite quantas coberturas?")
leia (xcobertura)
sbtotalconta <- (xchops * 2.80) + (xpizza * 20) + (xcobertura * 1.50)*xpizza
gorggarcon <- (sbtotalconta / 100 )* 10
totalconta <- sbtotalconta + gorggarcon
totalporpessoa <- totalconta / xpessoas
escreval ("sbtotalconta: R$")
escreval ("gorggarcon : R$ ")
escreval ("totalconta : R$")
escreval ("totalporpessoa :R$")
fimalgoritmo
var
xchops, xpizza, xcobertura, xpessoas : inteiro
totalconta, sbtotalconta, gorggarcon, totalporpessoa : real
inicio
escreval ("calcular a canta em uma pizzaria")
escreva ("digite quantas pessoas?")
leia (xpessoas)
escreva (" digite total de chops?")
leia (xchops)
escreva ("digite total de pizzas?")
leia (xpizza)
escreva ("digite quantas coberturas?")
leia (xcobertura)
sbtotalconta <- (xchops * 2.80) + (xpizza * 20) + (xcobertura * 1.50)*xpizza
gorggarcon <- (sbtotalconta / 100 )* 10
totalconta <- sbtotalconta + gorggarcon
totalporpessoa <- totalconta / xpessoas
escreval ("sbtotalconta: R$")
escreval ("gorggarcon : R$ ")
escreval ("totalconta : R$")
escreval ("totalporpessoa :R$")
fimalgoritmo
10 ) Escreva um algorítmo 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 algorítmo deve calcular a velocidade em KM/h, e exibir a seguinte frase : A velocidade média do foi km/h
algoritmo " Calcular velocidade média do pilto"
var
dk, tmi, vme : real
nomepiloto: literal
inicio
escreval (" calcular velocidade media do piloto")
escreva ("digite o nome do piloto")
leia (nomepiloto)
escreva ("digite a distancia percorrida")
leia ( dk)
escreva ("digite o tempo em minutos")
leia (tmi)
vme <- dk *(tmi/60)
escreva (" a velocidade media do ",nomepiloto,vme)
fimalgoritmo
var
dk, tmi, vme : real
nomepiloto: literal
inicio
escreval (" calcular velocidade media do piloto")
escreva ("digite o nome do piloto")
leia (nomepiloto)
escreva ("digite a distancia percorrida")
leia ( dk)
escreva ("digite o tempo em minutos")
leia (tmi)
vme <- dk *(tmi/60)
escreva (" a velocidade media do ",nomepiloto,vme)
fimalgoritmo
9) Um representante comercial realizará uma viagem de vários dias com um automóvel,e . após, deseja saber a quilomtragem 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 algorítmo que, a partir desses dados,informe a quilometragem media por litro de gasolina.
algoritmo " Calcular quilometragem media por litro de gasolina"
var
kmi, kmf, tg, md :real
inicio
escreval ("calcular quilometragem media por litro de gasolina")
escreva ("digita a quilometragem inicial")
leia ( kmi)
escreva ("digita a quilometragem final")
leia ( kmf)
escreva ("digita o total de gasolina usado na viagem")
leia (tg)
md<- (kmf - kmi)/tg
escreva ("media diaria por litro de gasolina usado na viagem:",md:5:2)
fimalgoritmo
var
kmi, kmf, tg, md :real
inicio
escreval ("calcular quilometragem media por litro de gasolina")
escreva ("digita a quilometragem inicial")
leia ( kmi)
escreva ("digita a quilometragem final")
leia ( kmf)
escreva ("digita o total de gasolina usado na viagem")
leia (tg)
md<- (kmf - kmi)/tg
escreva ("media diaria por litro de gasolina usado na viagem:",md:5:2)
fimalgoritmo
8) No seguinte algorítmo existem erros de sintaxe? Em caso de afirmativo, onde ?
algoritmo "TESTE"
var
marca : literal
idade : numérico //numerico não tem assento no E
letra : literal
marca : numérico // ja existe uma variavel com o nome "marca"
início // não tem assento agudo no I
leia (idade) // o correto é escrever e depois ler
escreva (idade)
idade = 678
leia ("letra") // não esta atribuindo o valor a nenhuma variável
leia (ABC) // não existe a variavel ABC
escreva ( Letra) // letra nao recebeu nada
letra <- 4 // letra eh tipo literal,nao pode receber numero inteiro
fimalgoritmo
var
marca : literal
idade : numérico //numerico não tem assento no E
letra : literal
marca : numérico // ja existe uma variavel com o nome "marca"
início // não tem assento agudo no I
leia (idade) // o correto é escrever e depois ler
escreva (idade)
idade = 678
leia ("letra") // não esta atribuindo o valor a nenhuma variável
leia (ABC) // não existe a variavel ABC
escreva ( Letra) // letra nao recebeu nada
letra <- 4 // letra eh tipo literal,nao pode receber numero inteiro
fimalgoritmo
7) Escreva um algorítmo que calcule o valor de Base.O algorítmo deve ler o valor da base e do expoente. Após,ele deve escrever o valor da base elevaod ao expoente.
algoritmo " calcule o valor da base"
var
b,ex,total : real
inicio
escreval ("calcule o valor da base")
escreva ("digita o valor da base")
leia (b)
escreva ("digita o valor do expoente")
leia (ex)
total <- b^ex
escreva (" a base levado a expente eh",total)
fimalgoritmo
var
b,ex,total : real
inicio
escreval ("calcule o valor da base")
escreva ("digita o valor da base")
leia (b)
escreva ("digita o valor do expoente")
leia (ex)
total <- b^ex
escreva (" a base levado a expente eh",total)
fimalgoritmo
6) Assinale com um X os comandos de atribuição considerados inválidos:
var
NOME, COR, TESTE, DIA, X : literal
SOMA, NUM : numerico
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
NOME, COR, TESTE, DIA, X : literal
SOMA, NUM : numerico
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
5) Assinale com X os nomes de variáveis válidos:
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.(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"
4) Classifique os valores constantes abaixo,de acordo com seu tipo, assinalando com N dados numéricos e com L os literais:
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"
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"
3) Resolva a expressão Aritmética abaixo montando todos passos utilizados para a obtenção da solução:
algoritmo "capitulo 2,exercicio 3"
var
total : real
inicio
escreval ("capitulo 2,exercicio 3")
total <- (20%7) + 7 - 3.0 + 7/2 + (19/5) + (20+4)/(4 * 3)
escreva ("o valor da expressão eh",total)
fimalgoritmo
var
total : real
inicio
escreval ("capitulo 2,exercicio 3")
total <- (20%7) + 7 - 3.0 + 7/2 + (19/5) + (20+4)/(4 * 3)
escreva ("o valor da expressão eh",total)
fimalgoritmo
Cap.2 ex. 1) Escreva as expressões abaixona forma de sintaxe do Português Estrutural:
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)
sexta-feira, 3 de setembro de 2010
Exercicio -9. Faça um algorítmo que leia o tempo de duração de um evento em uma fábrica expressa em segundos e mostre-os expresso em horas,minutos e segundo.
algoritmo " Calcular o tempo de duração do evento")
var
h,m ,s ,ts ,sh,sm :inteiro
inicio
escreval ("calcular o tempo de duração do evento")
escreva ("digite o tempo em seguntos")
leia (ts)
escreva ("digite o tempo em minutos")
leia (m)
escreva ("digite o tempo em horas ")
leia (h)
h <- ts div 3600
sh <- ts -(h * 3600)
m <- sh div 60
s <- sh -(m * 60)
escreva (" O tempo de duração eh")
fimalgoritmo
var
h,m ,s ,ts ,sh,sm :inteiro
inicio
escreval ("calcular o tempo de duração do evento")
escreva ("digite o tempo em seguntos")
leia (ts)
escreva ("digite o tempo em minutos")
leia (m)
escreva ("digite o tempo em horas ")
leia (h)
h <- ts div 3600
sh <- ts -(h * 3600)
m <- sh div 60
s <- sh -(m * 60)
escreva (" O tempo de duração eh")
fimalgoritmo
Exercício-10. Qua o peso ideal de uma pessoa? Calcule utilizando o IMC =IMC ideal é 25.Faça um fluxograma que receba a altura de uma pessoa e informe seu peso ideal.
algoritmo " Calcular IMC"
var
p,h :real
inicio
escreval ("digite a altura")
leia (h)
p <- (25*(h^2))
escreval (" resulta,p,kg")
fimalgoritmo
var
p,h :real
inicio
escreval ("digite a altura")
leia (h)
p <- (25*(h^2))
escreval (" resulta,p,kg")
fimalgoritmo
Exercício-8. Faça um algorítmo que leia trê 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.
algoritmo "Calcular média ponderada
var
n1,n2,n3,media:real
inicio
escreval ("Calcular a media ponderada")
escreva ("digite nota1,peso 2")
leia (n1)
escreval ("digite nota2,peso 3")
leia (n2)
escreval ("digite nota 3,peso 5")
leia (n3)
media <- (n1*2)+(n2*3)+(n3*5)/10
escreval (" a media eh")
fimalgorítmo
var
n1,n2,n3,media:real
inicio
escreval ("Calcular a media ponderada")
escreva ("digite nota1,peso 2")
leia (n1)
escreval ("digite nota2,peso 3")
leia (n2)
escreval ("digite nota 3,peso 5")
leia (n3)
media <- (n1*2)+(n2*3)+(n3*5)/10
escreval (" a media eh")
fimalgorítmo
Exercício-7. Faça um algorítmo que leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos,meses e dias.
algoritmo "Ler a Idade de um pessoa em dias"
var
dias,meses,anos,totaldias:inteiro
inicio
escreval ("Ler a idade de uma pessoa em dias")
escreva ("digite um valor para anos")
leia (anos)
escreva ("digite um valor para meses")
leia (meses)
escreva ("digite um valor para dias")
leia (dias)
totaldias <- (anos * 365)+ (meses * 30) + dias
escreva (" O total de dias eh")
fimalgorítmo
var
dias,meses,anos,totaldias:inteiro
inicio
escreval ("Ler a idade de uma pessoa em dias")
escreva ("digite um valor para anos")
leia (anos)
escreva ("digite um valor para meses")
leia (meses)
escreva ("digite um valor para dias")
leia (dias)
totaldias <- (anos * 365)+ (meses * 30) + dias
escreva (" O total de dias eh")
fimalgorítmo
Exercvício-6. Faça um algorítmo que leia a idade de uma pessoa expressa em anos,meses e dias e mostre-a expressa apenas em dias.
algoritmo "Ler a Idade de um pessoa em dias")
var
dias,meses,anos,totaldias:inteiro
inicio
escreval ("Ler a idade de uma pessoa em dias")
escreva ("digite um valor para anos")
leia (anos)
escreva ("digite um valor para meses")
leia (meses)
escreva ("digite um valor para dias")
leia (dias)
totaldias <- (anos * 365)+ (meses * 30) + dias
escreva (" O total de dias eh")
fimalgorítmo
var
dias,meses,anos,totaldias:inteiro
inicio
escreval ("Ler a idade de uma pessoa em dias")
escreva ("digite um valor para anos")
leia (anos)
escreva ("digite um valor para meses")
leia (meses)
escreva ("digite um valor para dias")
leia (dias)
totaldias <- (anos * 365)+ (meses * 30) + dias
escreva (" O total de dias eh")
fimalgorítmo
Exercício-5. Escreva um algorítmo que leia três números inteiros e positivo (A,B,C) e calcule a seguinte expressão: D=R+S/2. Onde R=(A=B)^2 S=(B+C)^2
algoritmo "Cálculo das expressões de números inteiros"
var
a,b,c : inteiro
d,r,s : real
inicio
escreval ("Cálculo das expressões de números inteiros")
escreva ("digite um valor para a")
leia (a)
escreva ("digite um valor para b")
leia (b)
escreva ("digite um valor para c")
leia (c)
r <- (a + b)/2
s <- (b + c)/2
d <- (r + S)/2
escreva ("O valor de d eh")
fimalgorítmo
var
a,b,c : inteiro
d,r,s : real
inicio
escreval ("Cálculo das expressões de números inteiros")
escreva ("digite um valor para a")
leia (a)
escreva ("digite um valor para b")
leia (b)
escreva ("digite um valor para c")
leia (c)
r <- (a + b)/2
s <- (b + c)/2
d <- (r + S)/2
escreva ("O valor de d eh")
fimalgorítmo
Exercício-4.Construa um algorítmo que,tendo como dados de entrada dois pontos quaisquer plano,P (x1,y1) e P(x2,y2),escreva a distância entre eles.A formula que efetue o cálculo é: d=raizq( (x2-x1)^2)+((y2-y1)^2)
algoritmo "Calcular a distância entre pontos"
var
x1,x2,y1,y2,distancia:real
inicio
escreval(" Calcular a distância entre posntos")
escreva ("Qula eh o valor de x1?")
leia (x1)
escreva ("Qual eh o valor de x2?")
leia (x2)
escreva ("Qual eh 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 pontos eh",distancia:5:2)
fimalgorítmo
var
x1,x2,y1,y2,distancia:real
inicio
escreval(" Calcular a distância entre posntos")
escreva ("Qula eh o valor de x1?")
leia (x1)
escreva ("Qual eh o valor de x2?")
leia (x2)
escreva ("Qual eh 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 pontos eh",distancia:5:2)
fimalgorítmo
Exercício-3.Você possui dois gatos e acabou de comprar um pacote de ração(Kg).Você deve dividir as porções de ração,levando em consideração o peso de cada gato,sabendo que para cada 1 kg de gatodeverá ser servido 50grs de ração diariamente.Faça um algorítmo que solicite o peso de cada gato e o peso (em Kg)de pacote de ração.O algorítmo deverá 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 dos gatos"
var
gato1,gato2,gramasgato1,gramasgato2,totalpeso,racaodia,racaoapos5dias,pacoteracao:real
inicio
escreval("calcular porções de ração diaria dos gatos")
escreva (" Qual eh o peso do gato1?")
leia (gato1)
escreva (" Qual eh o peso do gato2?")
leia (gato2)
escreva ("Qual eh o peso do pacote de ração?")
leia (pacoteracao)
gramasgato1 <- gato1*50
gramasgato2 <- gato2*50
racaodia <- gramasgato1 + gramasgato2
racaoapos5dias <-(pacoteracao * 1000)- (racaodia * 5)
escreva ("Total de ração após 5 dias eh:")
fimalgorítmo
var
gato1,gato2,gramasgato1,gramasgato2,totalpeso,racaodia,racaoapos5dias,pacoteracao:real
inicio
escreval("calcular porções de ração diaria dos gatos")
escreva (" Qual eh o peso do gato1?")
leia (gato1)
escreva (" Qual eh o peso do gato2?")
leia (gato2)
escreva ("Qual eh o peso do pacote de ração?")
leia (pacoteracao)
gramasgato1 <- gato1*50
gramasgato2 <- gato2*50
racaodia <- gramasgato1 + gramasgato2
racaoapos5dias <-(pacoteracao * 1000)- (racaodia * 5)
escreva ("Total de ração após 5 dias eh:")
fimalgorítmo
Exercício 2- Calcular a área de um triângulo equilátero.
algoritmo " Cacular a area de um triangulo Equilátero "
var
lado,h,area: real
inicio
escreval("Calcular área de triangulo Equilátero")
escreva ("Qual eh o valor do lado ")
leia (Lado)
h<- (lado *raizq(3))/2
area <-(lado*h)/2
escreva ("Area do triangulo eh:",area: 5:2)
Fimalgoritmo
var
lado,h,area: real
inicio
escreval("Calcular área de triangulo Equilátero")
escreva ("Qual eh o valor do lado ")
leia (Lado)
h<- (lado *raizq(3))/2
area <-(lado*h)/2
escreva ("Area do triangulo eh:",area: 5:2)
Fimalgoritmo
Algorítmo-LD1-Exercício do caderno.1-Calcular a área de um triângulo
algoritmo "Calculo a área de um triângulo"
var
h,b,area: real
inicio
escreval("Calculo da área")
escreva("Qual o valor da base")
leia (b)
escreva("Qual o valor da altura")
leia(h)
área <- (b*h)/2
escreval("A área desse triângulo eh igual a",area)
escreva("fim")
fimalgoritmo
var
h,b,area: real
inicio
escreval("Calculo da área")
escreva("Qual o valor da base")
leia (b)
escreva("Qual o valor da altura")
leia(h)
área <- (b*h)/2
escreval("A área desse triângulo eh igual a",area)
escreva("fim")
fimalgoritmo
Assinar:
Postagens (Atom)