Vinícius Theófilo

Muito obrigado mais uma vez @Simon Viegas, com certeza vou aplicar e treinar!

Muito obrigado @devair1010 e @Simon Viegas  !!! Completamente entendido e resolvido! Vocês são feras! 

Boa tarde!

Criei o seguinte algoritmo para o problema abaixo, porém ao realziar os testes a quantidade de acertos não bate com a numeração de resultado proposta. Poderiam me ajudar?

Problema:

''Escrever um algoritmo que lê um vetor com 6 elementos, que é o resultado de um sorteio da Sena, e o mostra. Em seguida ler outro vetor, também com 6 elementos, que é a aposta de um apostador. Em seguida comparar os vetores e mostrar o número de acertos do apostador.''

algoritmo "Mega sena"
// Função :
// Autor :
// Data : 14/05/2017
// Seção de Declarações
var
RE : VETOR[1..6] DE inteiro
AP : VETOR[1..6] DE inteiro
i, j, cont : inteiro

inicio
// Seção de Comandos

cont <- 0
para i de 1 ate 6 faca
Escreval ("Digite o ", i, "º número do resultado do concurso da Mega Sena")
Leia (RE[i])
fimpara
para j de 1 ate 6 faca
Escreval ("Digite o ", j, "° número de sua aposta do concurso da Mega Sena")
Leia (AP[j])
fimpara
para i de 1 ate 5 faca
para j de i+1 ate 6 faca
se(RE[i] = AP[j])então
cont <- cont + 1
fimse
fimpara
fimpara
Escreva ("O resultado do concurso é: ", RE )
Escreva ("O total de acertos foi de: ", cont )
fimalgoritmo

Bom dia!

Escrevi o algoritmo abaixo para resolução do problema abaixo:

Faça um algoritmo que leia um código numérico inteiro e um vetor de 50 posições de números reais. Se o código for zero, termine o algoritmo. Se o código for 1, mostre o vetor na ordem direta. Se o código for 2, mostre o vetor na ordem inversa.

O problema do meu algoritmo é que ele está lendo os dois vetores (na ordem direta e inversa) e não somente um deles. Outro problema é que ao digitar zero, o programa não encerra o algoritmo sem mostrar nenhum dos dois vetores como solicita o enunciado do problema.

Poderiam por gentileza me ajudar?

algoritmo "Vetor 50 posições - codigo 0,1 e 2"
// Função :
// Autor : Vinícius Theófilo
// Data : 14/05/2017
// Seção de Declarações
var
A : VETOR[1..50] DE real
B : VETOR[1..50] DE real
i : inteiro
cod : caractere
inicio
// Seção de Comandos
para i de 1 ate 50 faca
Escreval ("Digite um número inteiro para a posição ", i, " do vetor A")
Leia (A[i])
fimpara
Escreval ("Digite o código: 0 para terminar o algoritmo; 1 para mostrar o vetor na ordem direta e 2 para mostrar o vetor na ordem inversa: ")
Leia (cod)
se (cod = 1) então
para i <- 1 ate 50 faca
Escreva (A[i])
fimpara
fimse

se (cod = 2) então
para i <- 1 ate 50 faca
B[i] <- 51 - A[i]
Escreva (B[i])
fimpara
fimse

se (cod = 0) então
fimse

fimalgoritmo

11 minutos atrás, devair1010 disse:

@Vinícius Theófilo     seu código está certo, mas para que o loop seja encerrado assim que você digital zero é preciso colocar o comando se logo depois de ler a idade, assim se for zero ele não faz a entrada dos outros dados.

veja como ficaria seu código :

algoritmo "pesquisa"
// Função :
// Autor :
// Data : 13/05/2017
// Seção de Declarações
var
idade,maioridade, menoridade,conthomem         : inteiro
sexo                                           : caracter
salario, mediasalario, somasalario, contsalario: real
contmulher, contmulher300, porcentmulher       : real
inicio
// Seção de Comandos
menoridade <- 10000;
maioridade <- 0;
conthomem <- 0
somasalario <- 0
contsalario <- 0
contmulher <- 0
idade <- 1
enquanto idade <> 0 faca
  Escreva ("Digite a idade ")
  Leia (idade)
  se idade > 0 ENTÃO
    Escreva ("Digite o sexo : M para Masculino e F para feminino: ")
    Leia (sexo)
    Escreva ("Digite o salário ")
    Leia (salario)
    se (idade > maioridade) ENTÃO
      maioridade <- idade
    fimse
    se (idade < menoridade) ENTÃO
      menoridade <- idade
    fimse
    se (sexo = "M") ENTÃO
      conthomem <- conthomem + 1
    senao
      se (sexo = "F") ENTÃO
        contmulher <- contmulher + 1
      fimse
      se (sexo = "F") E (salario <= 300) ENTÃO
        contmulher300 <-contmulher300 + 1
      fimse
      porcentmulher <- (contmulher300 * 100) / contmulher
    fimse
    contsalario <- contsalario + 1
    somasalario <- somasalario + salario
    //mediasalario <- somasalario / contsalario
  fimse
fimenquanto
mediasalario <- somasalario / contsalario
Escreval (" A porcentagem do total de mulheres com salario até 300 reais é de ", porcentmulher, " % ")
Escreval ("A quantidade total de homens é de ", conthomem, " homens")
Escreval ("A maior idade do grupo é ", maioridade, "anos")
Escreval ("A menor idade do grupo é ", menoridade, "anos")
Escreval ("A média de salário do grupo é de ", mediasalario, "reais")
fimalgoritmo

 

Muito obrigado @devair1010 !!! Funcionou perfeitamente e entendi o problema anterior! Muito Grato!

Boa tarde!

Construí um algorimto para a resolução do problema abaixo no viasualg:

Você esta fazendo uma pesquisa com 50 habitantes de uma pequena vila. Escreva um algoritmo que colete os dados de idade, sexo (M/F) e salário de todos as pessoas que desejam participar da pesquisa (para encerrar a entrada de dados entre na idade o valor igual a zero). Após coletar todos os dados informe: 

a. A média de salário do grupo 
b. Maior e menor idade do grupo 
c. A percentagem do total de mulheres com salário até R$ 300,00 
d. . A quantidade de homens 

O problema do meu algoritmo é que quando digito a idade igual a zero, ele contabiliza todas as outras funções do laço pela última vez ao invé de simplesmente encerrar o loop. Poderiam me ajudar?
Eis o algoritmo que criei abaixo:

 

algoritmo "semnome"
// Função :
// Autor :
// Data : 13/05/2017
// Seção de Declarações
var
idade,maioridade, menoridade,conthomem: inteiro
sexo: caracter
salario, mediasalario, somasalario, contsalario, contmulher, contmulher300, porcentmulher: real
inicio
// Seção de Comandos
menoridade <- 10000;
maioridade <- 0;
conthomem <- 0
somasalario <- 0
contsalario <- 0
contmulher <- 0
idade <- 1
enquanto idade <> 0 faca
Escreva ("Digite a idade ")
Leia (idade)
Escreva ("Digite o sexo : M para Masculino e F para feminino: ")
Leia (sexo)
Escreva ("Digite o salário ")
Leia (salario)
se (idade > maioridade) então
maioridade <- idade
fimse
se (idade < menoridade) então
menoridade <- idade
fimse
se (sexo = "M") então
conthomem <- conthomem + 1
senao
se (sexo = "F") então
contmulher <- contmulher + 1
fimse
se (sexo = "F") E (salario <= 300) então
contmulher300 <-contmulher300 + 1
fimse
porcentmulher <- (contmulher300 * 100) / contmulher
fimse
contsalario <- contsalario + 1
somasalario <- somasalario + salario
mediasalario <- somasalario / contsalario
fimenquanto
Escreval (" A porcentagem do total de mulheres com salario até 300 reais é de ", porcentmulher, " % ")
Escreval ("A quantidade total de homens é de ", conthomem, " homens")
Escreval ("A maior idade do grupo é ", maioridade, "anos")
Escreval ("A menor idade do grupo é ", menoridade, "anos")
Escreval ("A média de salário do grupo é de ", mediasalario, "reais")
fimalgoritmo