CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 10 11 12:18:15

LE NOUVEAU GOJIRA, C'EST POUR LUNDI. par coq

SHAREPOINT : NOUVEL ARTICLE SUR LA MISE EN PLACE DES SCOPES DANS MOSS SEARCHS par ROMELARD Fabrice

HELLO CS par julz

MSDN/TECHNET/MICROSOFT DAYS TOUR 2008 à LILLE LES 13 ET 14 OCTOBRE ! par redo

MVC PRATIQUE #07 - UN PROJET CONCRET ET LE TRANSFERT DES OBJETS AVEC LES MODELBINDERS par Rui

RE : BIZARRERIE : FORM QUI NE S'AFFICHE PLUS par netboydz

RE : NOMBRE DE FORM DANS LE PROJET par netboydz

RE : FROM UNIT DIFERENTE par netboydz

RE : PROJET SANS FORM par netboydz

+ de logiciels à télécharger

1 259 768 membres
193 nouveaux aujourd'hui
14 408 membres club

Trouver une ressource

Trouvez une ressource parmi 38 821 codes, 1 185 654 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

FONCTION RACINE CARRÉ

Information sur la source

Catégorie :Maths Niveau : Débutant Date de création : 29/12/2001 Date de mise à jour : 29/12/2001 11:30:00 Vu : 8 526

Auteur : fabiin

Site perso

Ecrire un message privé

Note :

10,00 / 10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Ne connaissant pas de fonction permettant de trouver la racine carré d'un nombre en delphi, en voici une ;)

Source

Function RacineCarre(n : real) : real;
const
precision = 1.0*100-10;
var
x1, x2 : real;
begin
x2 := 1;
repeat
x1 := x2;
x2 := x1 - (x1*x1-n)/(2*x1)
until abs(x1-x2)<=precision;
RacineCarre := x2;
end;

Function RacineCarre(n : real) : real;
const
  precision = 1.0*100-10;
var
  x1, x2 : real;
begin
  x2 := 1;
  repeat
     x1 := x2;
     x2 := x1 - (x1*x1-n)/(2*x1)
  until abs(x1-x2)<=precision;
  RacineCarre := x2;
end;

Conclusion

Changer la précision si vous utilisez des nombres trop précis

Sources du même auteur

CAPTUER LE SON SORTANT ET L'ENREGISTRER DANS UN FICHIER WAV

CALCUL D'UNE MOYENNE

CHANGER LA DURÉE D'AFFICHAGE DES BULLES D'AIDES (HINT)

ASCII-T : PETIT SOFT D'ASCII ART.

CHANGER CONTRASTE / LUMINOSITÉ (L'ALGORITHME)

Toutes les sources de fabiin

Sources de la même categorie

PROGRAMME PASCAL (( MODULE: THÉORIE DES GRAPHES )) par offlake

MA PETITE COMBINE par cantador

CONVERSION DE TEMPERATURE par noch100

VERIFICATION RIB AVEC MODULO 97 par eli42

CALCUL FORMEL (NIVEAU LYCÉE) par rudimath

Toutes les sources de la catégorie Maths

Commentaires et avis

Commentaire de VUX le 05/01/2002 23:03:42

just pour te préciser que c' est la fonction sqrt de delphi qui calcule la racine carrée.

Commentaire de VUX le 06/01/2002 21:00:55

Autre précision: Faut plus utiliser le type Real:
A la place fo utiliser Single,Double ou Extended.
Car real est juste laissé pour des raisons de compatibilité avec les précédentes versions et n' est pas conforme à la norme IEEE.

Commentaire de lpikachu58 le 25/05/2002 14:55:40

A mon avis le plus facile pour calculer la racine carrée d'un nombre est d'utiliser le développement limité de racine de x.
Et comme le dis VUX respecte les norme IEEE c'est qui font la pluie et le beau temps dans le monde scientique

Mais c'est un bon travail
@+
cordialement
Cédrik Lemaitre

Commentaire de max12 le 09/03/2003 20:28:59 administrateur CS

Sinon tu prend ton nombre ^ 0.5 (Je sais plus si c'est comme sa en delphi) mais tu fait exposant 0.5

Commentaire de cedricbi le 30/05/2005 19:18:29

En delphi c'est Power(X, 0.5) !

Commentaire de speletux le 15/12/2005 22:41:57

En tout cas, cet auteur a le mérite de solutionner avec son cerveau un problème qu'il a rencontré.
Il n'a pas lu la doc (ou trouvé les fonctions Delphi) mais il a fait un peu de maths.

Sinon,

- Ne plus utiliser le type real
- Lire les docs Delphi avant de faire des maths (sauf si vous aimez), mais j'ai aussi ce gros défaut

Commentaire de ffert le 26/01/2006 17:05:37

Bien...

Je l'ai pas testé mais pas mal pour l'algorythme. merci.

cependant en delphi quelques commandes qu'on trouve dans le Uses Math  :
racine carré : sqrt(nombre) = racine   --> sqrt(9) = 3
élever au carrer : sqr(nombre) = carré  --> sqr(3) = 9
cosinus inverse : trouver la valeur de cos(x) : arccos(x)
sinus inverse : trouver la valeur de sin(x) : arcsin(x)

voilà. entre autre...

bye.