REAJUSTE SALARIAL - (VISUAL G)

Prévia do material em texto

Algoritmo "Calculando Reajuste Salárial"
// Disciplina : [Linguagem e Lógica de Programação]
// Professor : Eduardo Teixeira
var
 nomeFuncionario : vetor[1..3] de caractere
 salarioFuncionario: vetor[1..3] de real
 quantidadeFuncionario, cont: inteiro
 op : caractere
Inicio
 Escreval(" - BEM VINDO - NOTA FISCAL [1.0.0.0] - ")
 enquanto op <> "NAO" faca
 Escreva("Informe a quantidade de funcionários: ")
 leia(quantidadeFuncionario)
 se(quantidadeFuncionario <> 0) entao
 limpatela
 Escreval(" - BEM VINDO - NOTA FISCAL [1.0.0.0] - ")
 para cont de 1 ate quantidadeFuncionario faca
 Escreval(" Informações do " , cont , " Funcionário")
 Escreva("Nome: ")
 leia(nomeFuncionario[cont])
 Escreva("Salário: R$ ")
 leia(salarioFuncionario[cont])
 se(salarioFuncionario[cont] <= 1000) entao
 salarioFuncionario[cont] <- (0.2 * salarioFuncionario[cont]) + salarioFuncionario[cont]
 senao
 se((salarioFuncionario[cont] > 1000) ou (salarioFuncionario[cont] <= 3000)) entao
 salarioFuncionario[cont] <- (0.15 * salarioFuncionario[cont]) + salarioFuncionario[cont]
 senao
 salarioFuncionario[cont]<- (salarioFuncionario[cont] * 0.1) + salarioFuncionario[cont]
 quantidadeFuncionario <- quantidadeFuncionario + 1
 fimse
 fimse
 Escreval("------------------------------------------------------------------")
 fimpara
 senao
 quantidadeFuncionario <- 0
 Escreval("Erro ao inserir a quantidade de funcionário.")
 fimse
 Escreval("Deseja recomeçar? [SIM] | [NAO]")
 Leia(op)
 escolha(op)
 caso "NAO"
 timer(400)
 Escreval("Processando dados...")
 limpatela
 Escreval("Lendo registros...")
 timer(0)
 limpatela
 para cont de 1 ate quantidadeFuncionario faca
 Escreval(" - FOLHA DE PAGAMENTO [1.0.0.0] - ")
 Escreval(nomeFuncionario[cont])
 Escreval(salarioFuncionario[cont])
 Escreval("------------------------------------------------------------------")
 fimpara
 interrompa
 outrocaso
 limpatela
 fimescolha
 fimenquanto
Fimalgoritmo