begin process at 2010 02 10 12:35:42
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Maths

 > FONCTION RACINE CARRÉ

FONCTION RACINE CARRÉ


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

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

Auteur : fabiin

Ecrire un message privé
Site perso
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

Source avec Zip 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)
Source avec Zip Source avec une capture ASCII-T : PETIT SOFT D'ASCII ART.
CHANGER CONTRASTE / LUMINOSIT&#201; (L'ALGORITHME)

 Sources de la même categorie

Source avec Zip Source avec une capture CONVERTISSEUR D'UN NOMBRE DÉCIMAL EN BINAIRE ET HEXADECIMAL par ludokk
Source avec Zip Source avec une capture PREMIER OU PAS? par ludokk
Source avec Zip Source avec une capture CONJECTURE DU CARRÉ DES FACTEURS par Bacterius
Source avec Zip Source avec une capture GÉNÉRATEUR DE NOMBRES PSEUDO-ALÉATOIRES par Bacterius
Source avec Zip Source avec une capture ALGORITHME DE HASH LEA par Bacterius

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.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,577 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales