ajuda em visulag

[sergyogn]

Bom dia...

eu fiz um algoritmo em visual g, e gostaria de saber de alguem que entende mais, se tem como melhorar o codigo,afim de diminuir o mesmo, sem perder as suas funções

ALGORITMO "MEDIA"

// FUNÇÃO :CALDULAR A MEDIA

// AUTOR :SERGIO GOMES DO NASCIMENTO

// DATA : 29/03/2011

// SEÇÃO DE DECLARAÇÕES

VAR

NOT1,NOT2,NOT3,NOT4,NOT5,MEDIA,NOTPASSAR : REAL

INICIO

// SEÇÃO DE COMANDOS

ESCREVAL(" ALGORITMO PARA CALCULAR MEDIA")

ESCREVAL()

ESCREVAL()

ESCREVAL()

ESCREVA(" DIGITE A PRIMEIRA NOTA E TECLE ENTER: ")

LEIA (NOT1)

ENQUANTO (NOT1 <0) OU (NOT1 >10) FACA

ESCREVAL()

ESCREVAL (" NOTA INVALIDA, DIGITE UMA NOTA DE 0 A 10")

ESCREVAL()

ESCREVA(" DIGITE A PRIMEIRA NOTA E TECLE ENTER: ")

LEIA (NOT1)

FIMENQUANTO

ESCREVA(" DIGITE A SEGUNDA NOTA E TECLE ENTER: ")

LEIA (NOT2)

ENQUANTO (NOT2 <0) OU (NOT2 >10) FACA

ESCREVAL (" NOTA INVALIDA, DIGITE UMA NOTA DE 0 A 10:")

ESCREVA (" DIGITE A SEGUNDA NOTA E TECLE ENTER: ")

LEIA (NOT2)

FIMENQUANTO

ESCREVA(" DIGITE A TERCEIRA NOTA E TECLE ENTER: ")

LEIA (NOT3)

ENQUANTO (NOT3 <0) OU (NOT3 > 10) FACA

ESCREVAL(" NOTA INVALIDA, DIGITE UMA NOTA DE 0 A 10:")

ESCREVA (" DIGITE A TERCEIRA NOTA E TECLE ENTER: ")

LEIA (NOT3)

FIMENQUANTO

ESCREVA (" DIGITE A QUARTA NOTA E TECLE ENTER: ")

LEIA (NOT4)

ENQUANTO (NOT4 <0)OU (NOT4 >10)FACA

ESCREVAL (" NOTA INVALIDA, DIGITE UMA NOTA DE 0 A 10:")

ESCREVA (" DIGITE A QUARTA NOTA E TECLE ENTER: ")

LEIA (NOT4)

FIMENQUANTO

MEDIA<-(NOT1+NOT2+NOT3+NOT4)/4

ESCREVAL()

ESCREVAL()

ESCREVAL()

ESCREVA(" SUA MEDIA FOI", MEDIA)

ESCREVAL()

ESCREVAL()

SE (MEDIA >= 7) então

ESCREVA (" VOCÊ ESTA APROVADO, PARABENS")

SENAO

SE(MEDIA <3) então

ESCREVA (" VOCÊ ESTA REPROVADO.")

SENAO

SE (MEDIA >=3) E (MEDIA<7) então

ESCREVAL ("VOCÊ ESTA DE RECUPERAÇÃO, CUIDADO")

FIMSE

FIMSE

FIMSE

ESCREVAL()

ESCREVAL()

ESCREVAL()

NOTPASSAR <- (10 - MEDIA)

SE (MEDIA >=3) E (MEDIA <7) então

ESCREVA ("VOCÊ PRECISA TIRAR NO MINIMO ", NOTPASSAR)

ESCREVA (" PARA NÃO PERDER O ANO.")

FIMSE

ESCREVAL()

ESCREVAL()

ESCREVAL()

ESCREVAL()

ESCREVAL()

ESCREVAL()

ESCREVAL()

ESCREVAL()

ESCREVAL()

FIMALGORITMO

[duda3005]

1º... não tenho certeza mas na maioria das linguagens é assim

Dentro do ESCREVAL() existe um comando que pula linhas... por exemplo

ESCREVAL("ALGORITMO PARA CALCULAR MEDIA\n\n") perceba que tem 2x \n ou seja ele pulou 2 linhas...

Testa ai e vê no que da... em C eu sei que funciona.

Você pode verificar e armazenar todas as notas em apenas um "ENQUANTO"

ou melhor ainda... apenas 1 variável NOTA que será somada a cada Loop em uma variável média..

tipo

var nota, media :real
vai i :inteiro
inicio

media <- 0;
para i de 1 ate 4 faca   //4 pois são 4 notas
escreval("Digite a nota ", i);
leia(nota);
media += nota   // isso é a mesma coisa que media = media + nota;
fimpara

com isso ele irá armazenar as 4 notas em apenas uma variável..

como você só precisa da média... não precisa das notas...

dai ficaria

var nota, media :real
vai i :inteiro
inicio

media <- 0;
para i de 1 ate 4 faca   //4 pois são 4 notas
   escreval("Digite a nota ", i);
   leia(nota);
   media += nota   // isso é a mesma coisa que media = media + nota;
fimpara

media /= 4            // é a mesma coisa que media = media / 4
se (media >= 7) então
    escraval("aprovado")
senao se ( media >= 3 ) então
    escreval("REC")
senao 
    escreval("Reprovado")

espero ter ajudado

No caso seria... se ele tiver nota maior que 7 entra no primeiro...

SE NÃO... (ele tem nota menor que 7 ) se ele tem nota maior que 3 (portanto a nota é obrigatoriamente menor que 7 e maior que 3) e assim sucessivamente.