Média de escola

[Wolve]

Olá galera, estou começando a programar agora, e como todo iniciante o Pascal é uma boa ferramenta.

Me tirem uma dúvida, quero fazer um que dê a média escolar de cada unidade de uma escola e no final dê a média final do ano e se o aluno foi aprovado ou não.

A de cada unidade eu consegui, mas tem dois problemas:

1) Quando ele mostra a média aparece ao invés de 9,5 aparece 9,500000

2) Não sei o comando pra calcular a média final.

Está abaixo o que já consegui.

Corrijam por favor

Program medialuno ;

var t1,p1,t2,p2,t3,p3,t4,p4 : integer;

Begin

write ('Teste 1 unidade');

readln(t1);

write ('Prova 1 unidade');

readln(p1);

write ('Teste 2 unidade');

readln(t2);

write ('Prova 2 unidade');

readln(p2);

write ('Teste 3 unidade');

readln(t3);

write ('Prova 3 unidade');

readln(p3);

write ('Teste 4 unidade');

readln(t4);

write ('Prova 4 unidade');

readln(p4);

writeln ('Média da 1 unidade:', (t1+p1)/2);

writeln ('Média da 2 unidade:', (t2+p2)/2);

writeln ('Média da 3 unidade:', (t3+p3)/2);

writeln ('Média da 4 unidade:', (t4+p4)/2);

End.

[Simon Viegas]

Olá galera, estou começando a programar agora, e como todo iniciante o Pascal é uma boa ferramenta.

Me tirem uma dúvida, quero fazer um que dê a média escolar de cada unidade de uma escola e no final dê a média final do ano e se o aluno foi aprovado ou não.

A de cada unidade eu consegui, mas tem dois problemas:

1) Quando ele mostra a média aparece ao invés de 9,5 aparece 9,500000

2) Não sei o comando pra calcular a média final.

Está abaixo o que já consegui.

Corrijam por favor

Olá,

Wolve,

quero fazer um que dê a média escolar de cada unidade de uma escola e no final dê a média final do ano e se o aluno foi aprovado ou não.

No caso você deseja calcular a "média escolar de cada unidade de um ALUNO"... , ou seja, da forma que está fica parecendo que existem "unidades escolares" diversas... mas vamos lá:

1) Formatação de números na tela

Quando se faz uma divisão no Pascal, automaticamente torna implícito um número real, e o Pascal vai tratar a divisão desta forma.

Por padrão o Pascal imprime números reais na forma de notação científica. Para alterar isso podem-se usar um recurso para re-formatar, usando :x:y ao final da variável, onde x é o número de casas reservadas a esquerda, e y o número de casas reservadas depois da vírgula.

Ex.:

var
  num :real;
BEGIN
num:=7.5;
writeln(num:0:2); {vai imprimir 7.50}
END.

Acho que deve funcionar diretamente também sem uma variável, testa ai.. (estou sem Pascal para testar)

writeln ('Média da 1 unidade:', ((t1+p1)/2):0:2);

Se pegar, vê se funcionar assim também:

writeln ('Média da 1 unidade:', (t1+p1)/2:0:2);

2) Cálculo de média

O cálculo de média é simples: "soma dos valores" dividido pela "quantidade de valores". Ora! Qual então a média final do aluno?:

1) Ou soma todas as 8 notas e divide por 8.

2) Ou soma todas as 4 médias e divide por 4. (média das médias - é matematicamente a mesma coisa).

Simples assim...

Obs.: Faça testes com uma calculadora (ou de cabeça mesmo) para ver se o resultado confere.

PS: Poste aqui o que conseguir fazer para analisarmos também..

No aguardo

Abraços

[Wolve]

Em relação as casas decimais deu certo e ficou assim.

writeln ('Média da 1 unidade:', (t1+p1)/2:0:1);

writeln ('Média da 2 unidade:', (t2+p2)/2:0:1);

writeln ('Média da 3 unidade:', (t3+p3)/2:0:1);

writeln ('Média da 4 unidade:', (t4+p4)/2:0:1);

Mas em relação a media final, eu quero pegar o resultado de cada um, mas que váriável eu uso com o resultado de cada.

Assim:

writeln ('Média da 2 unidade:', (t2+p2)/2:0:1);

Com isso eu obtenho a média da unidade 2, mas como eu faço pra pegar o resultado e jogar automaticamente no cálculo da média final?

E eu tentei também assim:

writeln ('Média final', (t1+t2+t3+t4+p1+p2+p3+p4)/8:0:1);

E deu certo, mas quero saber como fazer do outro jeito que falei mais acima, pois tenho outos sistemas que dependo disso também.

Outra coisa que notei aqui, todo programa que gero o executável, ele finaliza sozinho assim que termino de digitar os dados e ele calcula.

[Simon Viegas]

Olá,

Uma forma para calcular usando as médias é você armazenando-as. Bastaria criar 4 variáveis, ex.:

Media1, Media2, Media3, Media4:real;

O resultado vai ser o mesmo que somando 1 por 1.

Em relação ao fechar, basta colocar Readln; ou Readey; antes do END.