Méthode dichotomique : calcul de racine cubique
0/5 (1 avis)
Vue 10 661 fois - Téléchargée 469 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 en ligne - Meilleures réponses
- Comment faire racine cubique sur calculatrice - Forum - Delphi / Pascal
- C / C++ / C++.NET : Trouver la racine carrée et la racine cubique d'un nombre avec plus de p - Guide
- Python racine cubique - Guide
- Delta calcul racine - Guide
- Racine cubique puissance - Guide
19 déc. 2009 à 11:19
ç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.