Problème d'exposant sur une méthode mathématique.

**ecobarito** · 28/08/2007, 23h22

Bonjour,
J'espere quevous pourrez m'aider ... car j'ai un petit souçi ....
je vous explique je developpe un petit utilitaire de calculs pour des credits ...
pour facilite ma tache au boulot ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure Tform1.Button3Click(Sender: TObject);
 
function intPower(Base: extended; Exponent: extended): extended;
 
var
      f,g,h:
      real;
begin
    f :=StrToFloat(montant.Text);
    g :=StrToFloat(pourcentage.Text);
    h :=StrToFloat(duree.Text);
 
   f:=intpower (f,f+1); <= voilà mon problème... comment faire fonctionner la fonction power ou intpower afin de calculer mon exposant ... ?
 
      interetmensuel.caption:= floattostr ((1+g)^(g/12)-1); 
//bad      interetmensuel.caption:= floattostr ;
      primemens.caption:=FloatToStr (f);
 
 
  end;
  end.

voilà mon problème... comment faire fonctionner la fonction power ou intpower afin de calculer mon exposant ... j'espere que vous pourrez m'éclairer un peu ... ou me mettre sur la voie ...

merci :p

**sidahmed** · 28/08/2007, 23h46

Bonsoir,
as-tu inclu l'unité math dans la partie uses ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
uses math;

Bon cour@ge.

**ecobarito** · 28/08/2007, 23h57

oui c'est fait ... mais ca ne fonctionne pas ... :s je vais mettre le code entier de mon applic pour avoir plus facile ...
unit Unit1;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math;
 
 
type
  Tform1 = class(TForm)
    edit1: TEdit;
    edit2: TEdit;
    somme: TLabel;
    Button1: TButton;
    soustra: TLabel;
    division: TLabel;
    multi: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edit3: TEdit;
    Racine: TLabel;
    Label7: TLabel;
//  Button2: TButton;
    montant: TEdit;
    pourcentage: TEdit;
    pourcenlabel: TLabel;
    Label6: TLabel;
//  Button1: TButton;
    Prime: TLabel;
    primemens: TLabel;
    interetmensuel: TLabel;
    Label8: TLabel;
    Label5: TLabel;
    duree: TEdit;
    Label9: TLabel;
 
    procedure Button1Click(Sender: TObject);
 
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
 
  form1: Tform1;
 
implementation
 
{$R *.dfm}
 
 
procedure Tform1.Button1Click(Sender: TObject);
 
function intPower(Base: extended; Exponent: extended): extended;
 
var
      f,g,h:
      real;
begin
    f :=StrToFloat(montant.Text);
    g :=StrToFloat(pourcentage.Text);
    h :=StrToFloat(duree.Text);
//   f:=intpower (f,f+1);
 
    interetmensuel.caption:= floattostr((1+g)^(g/12)-1);
    primemens.caption:=FloatToStr ((f/h)*(g/12)+1);
 
 
  end;
  end.

voili, voilà... ?

**sidahmed** · 29/08/2007, 00h12

Salut,
je crois que cette ligne qui pose problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

interetmensuel.caption:= floattostr((1+g)^(g/12)-1);

Y a pas l'opérateur puissance ^ dans Delphi, mais Power ou IntPower.
J'attends ta réponse, à bientôt.

**ecobarito** · 29/08/2007, 00h16

ben voui je l'ai renseignée un peu plus haut la intpower ... mais je ne sais pas comment la présentée j'ai du mal en fait

calculx.zipvoici les codes sources et tout et tout ... :s

**sidahmed** · 29/08/2007, 01h37

Bonsoir,
voilà mon ami, une petite aide :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  math ;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  f, g, h, res, res2 : real;
begin
  f := 2.0;
  g := 3.0;
  h := 4.0;
  f := power(f, f + 1);
  res := power(1 + g, g / 12);
  res := res - 1;
  res2 := (f / h) * (g / 12) + 1;
  {interetmensuel.caption:= floattostr((1+g)^(g/12)-1);
  primemens.caption:=FloatToStr ((f/h)*(g/12)+1);}
  ShowMessage('f = ' + FloatToStr(f));
  ShowMessage('res = ' + FloatToStr(res));
  ShowMessage('res2 = ' + FloatToStr(res2));
end;
 
end.

j'espère avoir t'aider, bon courage.

**evarisnea** · 29/08/2007, 06h26

Envoyé par ecobarito

ben voui je l'ai renseignée un peu plus haut la intpower ... mais je ne sais pas comment la présentée j'ai du mal en fait

ecobarito je te souhaite la bienvenue sur le forum des développeurs, et je te conseille si ce n'est déjà fait de lire ceci.
en effet pour ton souci, un petit

sur intpower ou power aurait suffit je trouve.

**ecobarito** · 29/08/2007, 12h27

Merci beaucoup :d
ben alors faut croire que je suis un imbécile ... cela fait 15 ans que je rôde de forum en forum pour divers activitées mais on ne m'avait jamais fait une remarque comme celle là ... de plus lorsque je cherche dans l'aide de delphi (qui est un peu nulle ...) je n'ai eu que ceci comme resultat ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function intPower(Base: extended; Exponent: extended): extended;

qui de plus apparait n'etre pas la bonne fonction ...

**OutOfRange** · 29/08/2007, 14h58

Salut
Moi j'ai ça (Aide Delphi 6 perso)

IntPower, fonction

Calcule la puissance entière d'une valeur de base.

Unité

Math

Catégorie

routines arithmétiques

function IntPower(const Base: Extended; const Exponent: Integer): Extended register;

Description

IntPower élève Base à la puissance spécifiée par Exponent.

Donc IntPower(2,3) renvoie "2^3" soit 8

Pour manipuler des puissances non entières, power est ce qu'il te faut ("2^0.5" par ex)

**ecobarito** · 29/08/2007, 16h38

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure Tform1.Button3Click(Sender: TObject);
 
var
  f, g, h, res, res2 : real;
 
begin
  f := 2.0;
  g := 3.0;
  h := 4.0;
  f := power(f, f + 1);
  res := power(1 + g, g / 12);
  res := res - 1;
  res2 := (f / h) * (g / 12) + 1;
  {interetmensuel.caption:= floattostr((1+g)^(g/12)-1);
  primemens.caption:=FloatToStr ((f/h)*(g/12)+1);}
  ShowMessage('f = ' + FloatToStr(f));
  ShowMessage('res = ' + FloatToStr(res));
  ShowMessage('res2 = ' + FloatToStr(res2));
end;

Je dispose de 3 champs tedit qui contiendront les valeurs (ex: 200000€ pour le montant du crédit , 5,25% pour le taux d'interet annuel , X mois pour la duree ex: 20 ans = 240 mois) et j'ai aussi 2 tlabel, un nommé primemens et l'autre interetmensuel dans lesquels j'aurai voulu afficher mes resultats ... je ne vois pas ou je dois inserer dans ce code ces variable là ... désolé de mon noobisme :s ... :p
j'ai regarde dans l'aide de mon delphi 2007 ... mais je ne trouve aucun exemple représentatif ...
merci de vos réponses :p

**OutOfRange** · 29/08/2007, 17h21

Sers toi de FloatToStr pour changer la propriété caption de tes TLabel

**ecobarito** · 29/08/2007, 18h51

ce code ci me renvoi une erreur
je pense que l'erreur vient du fait qu'il y aurait trop de chiffre apres la virgule ...

Exception déclenchée à $7C81EB33. Classe d'exception EOverflow avec message 'Floating point overflow'. Processus Project2.exe (984)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure Tform1.Button3Click(Sender: TObject);
 
var
  f, g, h, res, res2 : real;
 
begin
  f := StrToFloat(montant.Text);
  g := StrToFloat(pourcentage.Text);
  h := StrToFloat(duree.Text);
  f := power(f, f + 1);
  res := power(1 + g, g / 12);
  res := res - 1;
  res2 := (f / h) * (g / 12) + 1;
 
primemens.caption:=  FloatToStr(res);
interetmensuel.caption:=  FloatToStr(res2)
  // ShowMessage('f = ' + FloatToStr(f));
  //ShowMessage('res = ' + FloatToStr(res));
  //ShowMessage('res2 = ' + FloatToStr(res2));
end;

**sidahmed** · 29/08/2007, 19h30

Bonsoir,
non, ça marche parfaitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  math, StdCtrls ;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
var
  f, g, h, res, res2 : real;
begin
  f := 2.0;
  g := 3.0;
  h := 4.0;
  f := power(f, f + 1);
  res := power(1 + g, g / 12);
  res := res - 1;
  res2 := (f / h) * (g / 12) + 1;
  {interetmensuel.caption:= floattostr((1+g)^(g/12)-1);
  primemens.caption:=FloatToStr ((f/h)*(g/12)+1);}
  Label1.Caption := FloatToStr(res);
  Label2.Caption := FloatToStr(res2);
  {ShowMessage('f = ' + FloatToStr(f));
  ShowMessage('res = ' + FloatToStr(res));
  ShowMessage('res2 = ' + FloatToStr(res2));}
end;
 
end.

Bon cour@ge.

**ecobarito** · 29/08/2007, 19h49

ben ici je dois bien mettre le nom de mes tedit ???

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
f := StrToFloat(montant.Text);
  g := StrToFloat(pourcentage.Text);
  h := StrToFloat(duree.Text);

toi tu met ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  f := 2.0;
  g := 3.0;
  h := 4.0;

pourquoi ?

**sidahmed** · 29/08/2007, 20h16

Rebonsoir,
Oui, j'ai fait ça juste pour t'expliquer que ça marche, sinon tu mets tes TEdit.
Au revoir.

Problème d'exposant sur une méthode mathématique.

Delphi

Discussions similaires

Partager

Partager