Algoritmo - Visual G

[Bjapa]

E ae galera.

Estou tendo problemas com o seguinte exercicio no VisualG:

" Faça um algoritmo que leia 10 numeros, encontre o menor numero par positivo e o maior impar positivo. Se o quadrado do menor positivo for inferior ao maior impar mostre a media entre os 10 numeros digitados, senao, mostre a soma de todos os numeros."

Alguém tem alguma ideia de como resolve-lo?

[lourivan]

a politica do site proibi qualquer resposta pronta. seria melhor você postar qual a sua duvida e se você ja tem alguma ideia de como resolver esse problema. abraço

dica do jack estripador "vamos por partes" e resolva uma questao de cada vez.

[Roberto.Korea]

Tenho, mas quais são suas dúvidas, poste pra gente, para podermos te ajudar.

[erciorb]

Eu tb estou com o mesmo problema, até agora fiz pra escolher os 10 numeros, separei por par e impar só que na hora de verificar o maior e o menor ele não difere de par ou impar.

algoritmo "semnome"

// Função :Faça um Algoritmo que leia 10 numeros, encontre o menor numero par

//positivo e o maior impar positivo, se o quadrado do menor positivo

//for inferior ao maior impar mostre a média entre os 10 numeros

//digitados, senão, mostre a soma de todos os numeros.

// Autor :

// Data : 01/09/2011

// Seção de Declarações

var

numero: vetor [1..10] de inteiro

sequencia,menorpar,maiorimpar,soma: inteiro

media,quadmenor: real

inicio

Para sequencia de 1 ate 10 faca

Escreva ("Digite o", sequencia, " numero: ")

//par

se(numero[sequencia] mod 2=0)então

leia (numero[sequencia])

menorpar <- numero[sequencia]

para sequencia de 2 ate 9 faca

se(numero[sequencia]<menorpar) então

menorpar <- numero[sequencia]

fimse

fimpara

//impar

senao

maiorimpar <- numero[sequencia]

para sequencia de 2 ate 9 faca

se (numero[sequencia]>maiorimpar) então

maiorimpar <- numero[sequencia]

fimse

fimpara

fimse

fimpara

escreval("o menorpar é: ", menorpar)

escreval("o maior impar é: ", maiorimpar)

fimalgoritmo

[Bjapa]

Ta ai a solução:

var

maior, menor, soma, numero:inteiro

inicio

escreva("Digite o 1° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

menor <- numero

senao

maior <- numero

fimse

fimse

soma <- numero

escreva("Digite o 2° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

escreva("Digite o 3° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

escreva("Digite o 4° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

escreva("Digite o 5° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

escreva("Digite o 6° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

escreva("Digite o 7° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

escreva("Digite o 8° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

escreva("Digite o 9° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

escreva("Digite o 10° número: ")

leia(numero)

se(numero > 0) então

se(numero mod 2 = 0) então

se(numero < menor) OU (menor = 0) então

menor <- numero

fimse

senao

se(numero > maior) então

maior <- numero

fimse

fimse

fimse

soma <- soma + numero

se((menor^2) < maior) então

escreval(" ")

escreval("----------------------------------")

escreval(" ")

escreval("O menor é: ", menor)

escreval("o maior é: ", maior )

escreval(" ")

escreval("O quadrado do menor é: ", menor^2)

escreval(" ")

escreva("A média entre os números é: ", soma / 10 )

escreval(" ")

escreval("----------------------------------")

escreval(" ")

senao

escreval(" ")

escreval("----------------------------------")

escreval(" ")

escreval("O menor é: ", menor)

escreval("o maior é: ", maior )

escreval(" ")

escreval("O quadrado do menor é: ", menor^2)

escreval(" ")

escreva("A soma dos números é: ", soma )

escreval(" ")

escreval("----------------------------------")

escreval(" ")

fimse

fimalgoritmo

-

Moderador, pode fechar o tópico.