Enviado em 20/11/2013 - 10:32h
Questão: Faça um algoritmo que leia um número indeterminado de nomes e salários. Calcule e escreva a média entre os salários lidos. O flag será nome igual a FIM.
algoritmo "semnome"
var name: caractere
sal, Msal, Ssoma: real
Nqtde, Sqtde: inteiro
inicio
Nqtde <- 0
Ssoma <- 0
Sqtde <- 0
escreval("digite o ",Nqtde + 1,"° nome ou FIM para sair: ")
leia(name)
escreval("digite o ",Sqtde + 1,"° salário: ")
leia(sal)
enquanto sal < 0 faca
escreval("salário inválido! digite o salário novamente: ")
leia(sal)
fimenquanto
enquanto name <> "FIM" faca
Nqtde <- Nqtde + 1
Sqtde <- Sqtde + 1
Ssoma <- Ssoma + sal
escreval("digite o ",Nqtde + 1,"° nome ou FIM para sair: ")
leia(name)
escreval("digite o ",Sqtde + 1,"° salário: R$ ")
leia(sal)
enquanto sal < 0 faca
escreval("salário inválido! digite o salário novamente: ")
leia(sal)
fimenquanto
fimenquanto
se Sqtde > 0 entao
Msal <- Ssoma / Sqtde
escreva("a média dos salários é: R$",Msal)
fimse
fimalgoritmo
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
O mínimo que você precisa saber sobre o terminal (parte 2)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Como deixar as abas do Firefox mais fininhas
Mudar o gerenciador de login (GDM para SDDM)
"Tentando" fazer com que programas rodem no Wayland e no X11
Notebook instalado com Linux Debian de fábrica dando problema (3)
Problemas com acesso a Pasta Comparilhada em Rede (12)
Geração de CSR para enviar à CA + instalação do certificado SSL no ubu... (6)