Méthode dichotomique : calcul de racine cubique
Soyez le premier à donner votre avis sur cette source.
Vue 9 785 fois - Téléchargée 435 fois
Description
Le programme suivant calcul, grâce à la méthode dichotomique, la racine cubique d'un nombre donné. La marge d'erreur est de 0.0001.
Enjoy
Source / Exemple :
///////////////////////////////////////////////////////////
// Fichier : uDichotomique.pas //
// Auteur : Stéphane HAIMET //
// Date de création : 12/02/08 //
// Date de modification : 13/02/08 //
///////////////////////////////////////////////////////////
unit uDichotomique;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
eIteration: TEdit;
eRacine: TEdit;
eNombre: TEdit;
bCalculer: TBitBtn;
bFermer: TBitBtn;
lMessage: TLabel;
procedure eNombreChange(Sender: TObject);
procedure bCalculerClick(Sender: TObject);
function psqrt(nombre:real):real;
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
//Variable publique :
n: integer;
implementation
{$R *.dfm}
//Quand on change l'édit nombre
procedure TForm1.eNombreChange(Sender: TObject);
begin
lMessage.caption := '';
eIteration.Text:='';
eRacine.Text:='';
end;
//Quand on clique sur le bouton "calculer"
procedure TForm1.bCalculerClick(Sender: TObject);
var nombre, resultat : real;
begin
nombre:=strtofloat(eNombre.text);
resultat:=psqrt(nombre);
eIteration.text:=inttostr(n);
eRacine.Text:=floattostr(resultat);
end;
//Fonction qui calcul la racine cubique
function TForm1.psqrt(nombre:real):real;
var bornInf, bornSup, bornMil : real;
begin
n:=0;
bornMil:=(bornInf+bornSup)/2;
//Si on a un nombre positif :
if (nombre>0) then
begin
bornInf:=0;
bornSup:=nombre;
end
else begin
bornInf:=nombre;
bornSup:=0;
end;
//On commence la boucle de recherche
repeat
if((bornMil*bornMil*bornMil)<nombre) then
bornInf:=bornMil
else
bornSup:=bornMil;
bornMil:=(bornInf+bornSup)/2;
n:=n+1;
until (((nombre-(bornMil*bornMil*bornMil))>-0.0001)
AND (nombre-(bornMil*bornMil*bornMil)<0.0001));
result:=bornmil;
end;
end.
Conclusion :
Enjoy
Codes Sources
A voir également
- Calcul racine cubique
- Racine cubique de 9 - Meilleures réponses
- Racine cubique calcul - Meilleures réponses
- Calcul racine cubique excel ✓ - Forum - Visual Basic 6
- Racine cubique - Forum - Delphi / Pascal
- Racine cubique python ✓ - Forum - C / C++ / C++.NET
- Calcul des racines d ' une équation du second degré - Codes sources - Visual Basic / VB.NET (Maths)
- Visual Basic / VB.NET : Calcul de racine carre entieres - CodeS SourceS - Guide
Commentaire
ça sera utile pour le cours de math! ;-)
Mike.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.