Exercicios visualg

Prévia do material em texto

Thifany Prates dos Santos 1º Semestre
Exercícios Visualg
1-
2- Var:
opc: caractere
op: inteiro
quant: inteiro
CB, CV, CE, CM: caractere
Início:
escreval ("Deseja fazer um pedido?")
escreval ("1)sim")
escreval ("2)nao")
leia (op)
se op = "1" entao
escreval("Qual chá deseja pedir?")
escreval ("CV = Chá verde")
escreval ("CP = Chá preto")
escreval ("CE = Chá de ervas")
escreval ("CM = Chá mate")
escreval ("Digite o Código do Chá escolhido:")
leia (opc)
escolha opc
caso "CB"
escreval ("Quantas unidades?")
leia (quant)
escreval ("Seu pedido ficou no total de", quant * 1.50, " reais.")
escreval "Seu pedido foi concluído"
fimse
caso "CV"
escreva ("Digite quantas unidades?")
escreval
leia (quant)
escreval ("Seu pedido ficou no total de", quant * 1.65, " reais.")
escreval ("Seu pedido foi concluído")
fimse
caso "CP"
escreva ("Digite quantas unidades?")
escreval
leia (quant)
escreval ("Seu pedido ficou no total de", quant * 1.99, " reais.")
escreval ("Seu pedido foi concluído")
fimse
caso "CE"
escreva ("Digite quantas unidades?")
leia (quant)
escreval ("Seu pedido ficou no total de", quant * 1.00, " reais.")
escreval ("Seu pedido foi concluído")
fimse
caso "CM"
escreva ("Digite quantas unidades?")
leia (quant)
escreval ("Seu pedido ficou no total de", quant * 1.00, " reais.")
escreval ("Seu pedido foi concluído"(
fimse
outrocaso
escreval ("Opção inexistente")
fimse
fimenquanto
fimescolha
Fimalgoritmo
3) Var:
Cont: Inteiro
Início:
Cont <- 1
enquanto cont <=100 faca
escreval (cont)
cont <- cont + 1
fimenquanto
Fimalgoritmo
4) Var:
N1: Inteiro
Ínicio:
Escreval ("Digite um número: ")
leia (n1)
Se (n1 mod 2) = 0 entao
escreval ("O número é par")
senao
escreval ("O número é ímpar")
FIMSE
Fimalgoritmo
5) Var:
i, total: Inteiro
Início:
total <- 0
para i de 1 ate 10 faca
se ((i mod 2) <> 0 ) entao
total <- total + i
fimse
fimpara
escreval (" A soma dos números ímpares de 1 até 10 é: ",total)
Fimalgoritmo
6) Var:
nota1, nota2: real
média: real
íncio:
Escreval ("Digite a nota1")
leia (nota1)
Escreval ("Digite a nota2")
leia (nota2)
media <- (nota1 + nota2) / 2
escreval ("a média é: ", media)
Fimalgoritmo
7) Var:
n1, n2, n3, n4 , n5, n6, n7 , n8, n9, n10: Inteiro
Início:
Escreval ("Digite um valor")
leia (n1)
Escreval ("Digite um valor")
leia (n2)
Escreval ("Digite um valor")
leia (n3)
Escreval ("Digite um valor")
leia (n4)
Escreval ("Digite um valor")
leia (n5)
Escreval ("Digite um valor")
leia (n6)
Escreval ("Digite um valor")
leia (n7)
Escreval ("Digite um valor")
leia (n8)
Escreval ("Digite um valor")
leia (n9)
Escreval ("Digite um valor")
leia (n10)
Escreval ("soma: ", n1+n2+n3+n4+n5+n6+n7+n8+n9+10)
Fimalgoritmo
8) Var:
n0, n1, n2, n3, n4, n5, n6, n7, n8, n9, n10: Inteiro
Início:
Escreval ("Digite um valor")
leia (n0)
Escreval ("Digite um valor")
leia (n1)
Escreval ("Digite um valor")
leia (n2)
Escreval ("Digite um valor")
leia (n3)
Escreval ("Digite um valor")
leia (n4)
Escreval ("Digite um valor")
leia (n5)
Escreval ("Digite um valor")
leia (n6)
Escreval ("Digite um valor")
leia (n7)
Escreval ("Digite um valor")
leia (n8)
Escreval ("Digite um valor")
leia (n9)
Escreval ("Digite um valor")
leia (n10)
Escreval ("soma: "n0+ n1+n2+n3+n4+n5+n6+n7+n8+n9+10)
fimalgortimo
9) Var:
n, c, fat: inteiro
Início:
fat <- 1
Escreval ("Digie um valor inteiro: ")
leia (n)
para c de n ate 1 passo -1 faca
fat <- fat*c
fimpara
Escreval ("Fatorial de ", n, "= ", fat)
Fimalgoritmo
10) Var:
Jogador1, Jogador2, Jogador3: Caractere
n1, n2, n3: real
média: real
Início:
Escreval ("Digite o nome do jogador 1")
leia (jogador1)
Escreval ("Digite o nome do jogador 2")
leia (jogador2)
Escreval ("Digite o nome do jogador 3")
leia (jogador3)
Escreval (" Digite a altura do jogador 1")
leia (n1)
Escreval (" Digite a altura do jogador 2")
leia (n2)
Escreval (" Digite a altura do jogador 3")
leia (n3)
media <- (n1 + n1 + n3) / 3
escreval ("a média da altura dos jogadores é: ", media)
fimalgoritmo
11) Var:
c,i, n, p: inteiro
Início:
Escreval ("Digite um valor: ")
leia (n)
para c de 1 ate n faca
p<-0
para i de 1 ate c faca
se (c mod i = 0) entao
p <-p+1
fimse
fimpara
se (p=2) entao
escreva (c)
fimse
fimpara
fimalgoritmo
12) Var:
n1, n2, total: Real
Início:
Escreval ("Digite o primero número: ")
leia (n1)
Escreval ("Digite o segundo número: ")
leia (n2)
total <- n1 * n2
Escreval ("O resultado é: ", total)
Fimalgoritmo
13) Var:
Cont: Inteiro
Início:
Cont <- 1
enquanto cont <=100 faca
escreval (cont)
cont <- cont + 1
fimenquanto
Fimalgoritmo
14) Var:
n1, n2: Inteiro
soma: inteiro
Início:
Escreval (“Digite o primeiro número”)
Leia (n1)
Escreval (“Digite o segundo número”)
Leia (n2)
Soma <- n1+n2
Soma <- (“Escreval a soma é : “, soma)
Fimalgoritmo