Fórum Calculo de Medias #415501

17/04/2012

0

Delphi

boa noite , bom estou com uma dúvida sobre como fazer um programa para calcular medias,
bom eu tenho 7 edits para receber as notas que são com duas casas decimais, e uma 8ªedit onde vai colocar o número de
notas ,pois mesmo tendo as 7 edits pode acontecer de ocorrer apenas 5 notas,então terá uma 9ªedit que receberá o valor calculado, desde já agradeço a atenção de todos
Rodrigo Martins

Rodrigo Martins

Responder

Posts

17/04/2012

Vinícius Belisário

some o valor dos 7 edits, independentemente se tem valores ou não, divida pelo 8º edit, e jogue o valor no 9º edit, seria isso?
Responder

Gostei + 0

17/04/2012

Joel Rodrigues

Use o método StrToFloatDef para garantir que não haverá erro de conversão, caso algum edit seja deixado em branco:

n1 := StrToFloatDef(edit1.Text, 0);
n2 := StrToFloatDef(edit2.Text, 0);
n3 := StrToFloatDef(edit3.Text, 0);
n4 := StrToFloatDef(edit4.Text, 0);
n5 := StrToFloatDef(edit5.Text, 0);
n6 := StrToFloatDef(edit6.Text, 0);
n7 := StrToFloatDef(edit7.Text, 0);
qtd := n1 := StrToFloatDef(edit8.Text, 1);
media = (n1+n2+n3+n4+n5+n6+n7)/qtd;
edit9.Text := FloatToStr(media);


Considerando já devidamente declaradas as variáveis utilizadas.
Boa sorte.
Responder

Gostei + 0

17/04/2012

Rodrigo Martins

Muito Obrigado pela ajuda, o programa ficou redondo
abraços
Responder

Gostei + 0

17/04/2012

Joel Rodrigues

Valeu, cara. Ficamos felizes por ter ajudado.
Boa sorte.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar