VisualG Visualg Procedimento e função

[davidzinh]

Escreva um algoritmo que receba números inteiros positivos (UTILIZE O ENQUANTO OU O REPITA). Determine o menor e o maior número através de procedimentos (Crie um procedimento para cada um). Calcule a soma e média dos números utilizando funções (Crie uma função para cada). O programa somente será finalizado quando o usuário digitar um número negativo (não deve ser considerado nas comparações).  Meu programa :

var
a,b : Inteiro
n:inteiro
funcao mediadenumeros (num :inteiro): real
retorne (
inicio

fimfuncao
procedimento maior (x,y:inteiro)
inicio
enquanto (n>=0) faca
   maior <- x
   menor <- y
   se (x > y) então
      escreval ("Este número" x, "e maior que", y)
   senao
      se (y > x ) então
         escreval ("Este número" y, "e maior que", x)
         senão
         escreval ("São Iguais!")
         fimse
         fimse
         fimprocedimento
         inicio
                    Escreva ("Número digitado de X : ")
                    leia (a)
                    Escreva ("Número dititado de Y : ")
                    leia (b)
                    maior (a,b)
      fimalgoritmo

Estou com muitas dificuldades para elaborar esse exercício.

[Simon Viegas]

Olá @davidzinh.

 

Dificuldades em qual parte? seja específico.

 

 

obs.: será que esse programa não seria para ser feito com vetores?

 

No aguardo.

 

 

 

[devair1010]

@davidzinh    para o  programa parar quando digitar um número negativo, você coloca um repita até a variável do número digitado ser menor que zero e coloca um se para se esse número for maior que -1 ele executa os comandos e se não for maior que -1 ele passa e sai do programa.   então você pega um número e vai nos procedimentos e funções, e depois que ele passar do repita você imprime o maior e o menor número e a média e o total .

seu procedimento está fazendo mais coisas do que precisa,   use um procedimento para ver qual o número maior e outro para ver qual o número menor , então para o número menor seria assim :

procedimento n_menor(x : inteiro)
inicio
  se quant = 1 ENTÃO
    menor := x
  fimse
  se menor > x então
    menor := x
  fimse
fimprocedimento
//-----------------------------------------------------

esse quant é um contador lá no programa para ver a quantidade de números digitados pois a cada número você aumenta o valor dessa variável para depois você calcular a média.  o procedimento para ver o maior número é parecido com esse .

na função para ver a média  você divide  o total por quant que é a quantidade de números  e para  a função soma  você soma o total mais o número digitado .