Exercícios do visualg 2.0 Média, Média enquanto e Salário Sport

algoritmo "MEDIA_GERAL"

var
nota1:real
nota2:real
media:real

inicio
escreva ("Digite a 1ª nota")
leia (nota1)
escreva ("Digite a 2ª nota")
leia (nota2)
media<-(nota1 + nota2) /2
escreva ("A média é", media)

fimalgoritmo

---------------------------------------------------------------------------------

algoritmo "Media"

var
x: Inteiro
Nota1: Real
Nota2: Real
Media: Real
qtd_alunos: Inteiro
inicio
Escreva (" DIGITE QUANTIDADE DE ALUNOS ")
Leia (qtd_alunos)
x <- 1
Enquanto x < qtd_alunos Faca
Escreva (" DIGITE A 1ª NOTA ")
Leia (Nota1)
Escreva (" DIGITE A 2ª NOTA ")
Leia (Nota2)
MEDIA <- (Nota1 + Nota2)/ 2
Escreva (" A MÉDIA ", MEDIA)
x <- x+1
fimenquanto
fimalgoritmo

------------------------------------------------------------------------------

algoritmo "Salario SPORT"

var

qtd_jogadores: inteiro
count: inteiro
salario_inicial: real
salario_reajustado: real
piso: real
teto:real
reajuste1 : real
reajuste2: real
reajuste3: real
nome_jogador: caracter

inicio
// Seção de Comandos
escreval(" ")
escreval(" ------------------ PROGRAMA SALARIO DO SPORT ------------------ ")
escreva(" Digite a quantidade de jogadores do time: ")
reajuste1 <- 0.2
reajuste2 <- 0.1
reajuste3 <- 0.05
piso <- 90000.00
teto <- 130000.00
count <- 1
leia(qtd_jogadores)

enquanto count <= qtd_jogadores faca
escreva(" Digite o nome do jogador : ")
leia (nome_jogador)
escreva(" Digite o salário atual do jogador (R$) : ")
leia (salario_inicial)

//Verifica se o salário é menor que 90000
se salario_inicial <= piso entao
salario_reajustado <- salario_inicial + (salario_inicial * reajuste1)
fimse

//Verifica se o salário está entre 90000 e 130000
se (salario_inicial > piso) e (salario_inicial <= teto) entao
salario_reajustado <- salario_inicial + (salario_inicial * reajuste2)
fimse

//Verifica se o salário é maior que 130000
se salario_inicial > teto entao
salario_reajustado <- salario_inicial + (salario_inicial * reajuste3)
fimse


escreval(" Atleta:" + nome_jogador)
escreva(" Salário Inicial: R$")
escreval(salario_inicial)
escreva(" Salário Reajustado: R$")
escreval(salario_reajustado)
escreval(" ")
escreval(" ------------------------------------------------------ " )
count <- count + 1

fimenquanto
fimalgoritmo

ALGORITMO (MEDIA) Mudanças em questões estéticas e correção no bug da quantidade de alunos que não se completava, conforme o destaque abaixo:


var
x: Inteiro
Nota1: Real
Nota2: Real
Media: Real
qtd_alunos: Inteiro
inicio
Escreva (" DIGITE QUANTIDADE DE ALUNOS: ")
Leia (qtd_alunos)
x <- 0
Enquanto x < qtd_alunos Faca
Escreva (" DIGITE A 1ª NOTA: ")
Leia (Nota1)
Escreva (" DIGITE A 2ª NOTA: ")
Leia (Nota2)
MEDIA <- (Nota1 + Nota2)/ 2
Escreval (" A MÉDIA ", MEDIA)
escreval (" ----------------------------------------------------------- ")
x <- x+1
fimenquanto

// Seção de Comandos
fimalgoritmo

Hoberdan, Valeu mesmo cara essa era a minha dúvida colocava pra fazer em 3 alunos e só fazia em 2 então o X ou contador tem que ser 0, ou então tem outra forma de ser feita tb.


var
x: Inteiro
Nota1: Real
Nota2: Real
Media: Real
qtd_alunos: Inteiro
inicio
Escreva (" DIGITE QUANTIDADE DE ALUNOS: ")
Leia (qtd_alunos)
x <- 1
Enquanto x <= qtd_alunos faca
Escreva (" DIGITE A 1ª NOTA: ")
Leia (Nota1)
Escreva (" DIGITE A 2ª NOTA: ")
Leia (Nota2)
MEDIA <- (Nota1 + Nota2)/ 2
Escreval (" A MÉDIA ", MEDIA)
escreval (" ----------------------------------------------------------- ")
x <- x+1
fimenquanto

// Seção de Comandos
fimalgoritmo

Valeu a ajuda cara.

Como eu estou aprendendo a programar eu fiz um sistema de média bem simples com regras que nós aprendemos em sala de aula. Ele apenas faz a leitura de quantos alunos desejam fazer a leitura e pergunta a média da 1ª e 2ª prova e se a média for maior que 7,00 o aluno é aprovado e se for menor ele é reprovado.

algoritmo "Media Escolar"
//By: Júlio Melo
var
nota1 :real
nota2 :real
media :real
qtd_aluno :inteiro
contador :inteiro
condicao :real


inicio

escreval ("")
escreval ("***********************************************************************")
escreval ("**************************** Sistema Média ****************************")
escreval ("***********************************************************************")
escreval ("")
escreval ("Quantos alunos deseja saber a média? ")
leia (qtd_aluno)
condicao <- 7,00
contador <- 1
enquanto contador <= qtd_aluno faca
escreva ("Digite sua primeira nota: ")
leia (nota1)
escreva ("Digite sua segunda nota: ")
leia (nota2)
media <- (nota1 + nota2) /2
escreval ("Sua MÉDIA É: ", media)
contador <- contador+1

se (media < condicao) entao
escreval ("Você foi REPROVADO!!")
fimse
se (media >= condicao) entao
escreval ("Parabéns você foi aprovado por média")
fimse
fimenquanto

fimalgoritmo

----------------------------------------------------------------------------

Aqui esse código pede pra informar o nome do aluno

algoritmo "Média Aprovaão"

var
nota1 :real
nota2 :real
media :real
condicao :real
contador :inteiro
qtd_alunos :inteiro
nome :caracter


inicio




escreval ("Quantos alunos você deseja saber a média? ")
leia (qtd_alunos)
contador <- 1
condicao <- 7,00
enquanto qtd_alunos >= contador faca
escreval ("Qual o nome do aluno? ")
leia (nome)
escreva ("Qual a sua nota da primeira unidade? -> ")
leia (nota1)
escreva ("Qual a sua nota da segunda unidade? -> ")
leia (nota2)
media <- (nota1 + nota2) /2
escreval ("Sua média é: ",media)
se media > condicao entao
escreva ("Parabéns ",nome," você foi APROVADO!!! ")
fimse
se media <= condicao entao
escreva ("Infelismente ",nome," você foi REPROVADO!!! ")
fimse
contador <- contador +1
fimenquanto

fimalgoritmo

Muito bom gostei, aqui gostaria que postasse alguns exercicios resolvidos de Portugues estruturado junto com o chines, poderiam me ajudar? estou precisando muito disso no momento ok abraços!