cs_sparo83
Messages postés47Date d'inscriptionsamedi 8 décembre 2007StatutMembreDernière intervention 5 juin 2010
-
19 juin 2008 à 22:50
delyes
Messages postés39Date d'inscriptionsamedi 4 novembre 2000StatutMembreDernière intervention19 janvier 2013
-
21 juin 2008 à 17:08
bonsoir a vous,
je suis debutant en delphi et je voudrais savoir comment calculer la moyenne d'un champs?
merci pour votre aide,
jackalunion
Messages postés128Date d'inscriptionmercredi 8 janvier 2003StatutMembreDernière intervention14 juillet 2008 20 juin 2008 à 00:21
Met 3 TEdit
le Edit1 pour la valeur un
le Edit 2 pour la valeur deux
un boutton pour calculer la moyenne
procedure TForm1.Button1Click(Sender: TObject);
var
a,b,moyenne:real;
begin
a:=strtofloat(edit1.text); // a reçoit la valleur contenu de Edit1
b:=strtofloat(edit2.text); // b reçoit la valleur contenu de Edit2
moyenne:=(a+b)/2; // edit1 + edit2 et divise les par deux
edit3.text:=floattostrF(moyenne,fffixed,10,2);
// Donne le resultat dans edit3
delyes
Messages postés39Date d'inscriptionsamedi 4 novembre 2000StatutMembreDernière intervention19 janvier 2013 21 juin 2008 à 17:08
// double cliquer sur bouton1
var s,i,m : integer
begin
s=:0;i=:0;
with table do
first;
begin
while not eof do
begin
s:= s+tablechamp.valeu;
i:=i+1;
next;
end;
if i>0 then
m:= s/i;// afficher m sur label ou edit ...ect (label.caption:= inttostr(m));