VisualG Preciso fazer um programa no visualG

[Iago1234]

Preciso fazer um programa no visualG com a seguinte descrição : "Faça um programa que receba o salário e o cargo de 10 funcionários e mostre a média de salários por cargo. Sabe-se que o funcionário pode ter o cargo de Analista ou de Técnico."

Tentei fazer, mas quando coloco a opção 2 para técnico, a media está dividindo pelo contador e dando a média errada, se alguém souber resolver eu agradeço.


 

Algoritmo "semnome"


Var


m1, m2 :real

salario, s1, s2, t1, t2 :inteiro

cargo :inteiro

cont :inteiro


Inicio


para cont de 1 ate 3 faca


escreva("Qual seu cargo? 1-Analista ou 2-Técnico: ")

leia(cargo)

escreva("Qual seu salário? ")

leia(salario)

escreval()


escolha cargo


caso 1


s1 <- salario

t1 <- s1 + t1


m1 <- t1 / cont + 0


caso 2


s2 <- salario

t2 <- s2 + t2



m2 <- t2 / cont + 0

fimescolha


fimpara


escreval("O funcionário com cargo de analista tem média de:",m1)

escreval("O funcionário com cargo de técnico tem média de:",m2)


Fimalgoritmo

 

[JorgeGus]

@Iago1234 Você não está somando os salários de cada função, está somando funcionários a salários, e a média precisa ser calculada depois do for.

Algoritmo "semnome"

Var
m1, m2 :real
salario, s1, s2, t1, t2 :inteiro
cargo :inteiro
cont :inteiro

Inicio
   s1 <- 0
   s2 <- 0
   t1 <- 0
   t2 <- 0
para cont de 1 ate 3 faca
   escreva("Qual seu cargo? 1-Analista ou 2-Técnico: ")
   leia(cargo)
   escreva("Qual seu salário? ")
   leia(salario)
   escreval()
   escolha cargo
      caso 1
         s1 <- s1 + salario
         t1 <- t1 + 1
      caso 2
         s2 <- s2 + salario
         t2 <- t2 + 1
   fimescolha
fimpara
m1 <- s1 / t1
m2 <- s2 / t2
escreval("O funcionário com cargo de analista tem média de:",m1)
escreval("O funcionário com cargo de técnico tem média de:",m2)

Fimalgoritmo

Depois de testar não se esqueça de aumentar o contador do "para" para 10 conforme o enunciado.

[Iago1234]

Muito obrigado Jorge, consegui entender a lógica. Muito grato.