Ajuda com Sistema de Médias
Caros colegas programadores, queria uma ajuda em um sistema simples, porém não tenho experiencia em cálculos com delphi. Imagino que seja fácil:
Média1 = Nota1+nota2 / 2
Se média1 <7,0 o cara vai fazer um Exame, no caso Ex1, onde:
Média2 = (X + 5,0 / 2) + K
K= 0,24 fator de correção é constante.
X = M1 + Ex1 / 2
Média2 tem que ser >=5,0
E tem mais uma coisa se a média1 for menor que 3,0 o cara tá reprovado.
Mais informações pelo e-mail: [b:4908223358]wgodo@ig.com.br[/b:4908223358]
Antecipadamente agradeço.
Wendel Pires
Média1 = Nota1+nota2 / 2
Se média1 <7,0 o cara vai fazer um Exame, no caso Ex1, onde:
Média2 = (X + 5,0 / 2) + K
K= 0,24 fator de correção é constante.
X = M1 + Ex1 / 2
Média2 tem que ser >=5,0
E tem mais uma coisa se a média1 for menor que 3,0 o cara tá reprovado.
Mais informações pelo e-mail: [b:4908223358]wgodo@ig.com.br[/b:4908223358]
Antecipadamente agradeço.
Wendel Pires
Wendel Teixeira
Curtidas 0
Respostas
Turbo Drive
21/06/2004
Deixa ver se entendi, ´média´ é a soma das duas notas dividido por 2, então vc faz assim:
Media1 := (Nota1+nota2) / 2;
if media1 < 7 then
begin
if media1 < 3 then
showmessage(´reprovado´)
else
begin
X = (Media1 + Ex1) / 2;
Media2 = ((X + 5,0) / 2) + K;
if media2 < 5 then
showmessage(´reprovado no exame´)
else
showmessage(´Aprovado´);
end;
end
Media1 := (Nota1+nota2) / 2;
if media1 < 7 then
begin
if media1 < 3 then
showmessage(´reprovado´)
else
begin
X = (Media1 + Ex1) / 2;
Media2 = ((X + 5,0) / 2) + K;
if media2 < 5 then
showmessage(´reprovado no exame´)
else
showmessage(´Aprovado´);
end;
end
GOSTEI 0