Section courante

A propos

Section administrative du site

SUMOFSQUARES

Somme des carrés
Free Pascal Math

Syntaxe

Function sumofsquares(const data: array of Extended):float;
Function sumofsquares(const data: PExtended;const N: Integer):float;

Paramètres

Nom Description
data Ce paramètre permet d'indiquer le tableau de valeur à calculer
N Ce paramètre permet d'indiquer le nombre d'élément dans le tableau

Description

Cette fonction permet de renvoyer la somme des valeurs au carré d'un tableau de nombre réel.

Exemple

Voici un exemple montrant l'utilisation de cette fonction :

  1. Program SumOfSquaresSamples;
  2.  
  3. Uses Math; 
  4.  
  5. Var
  6.  Array1:Array[0..1]of Double = (5,-18);
  7.  Array2:Array[0..1]of Double = (0.25,0.115);
  8.  Array3:Array[0..4]of Double = (1,2,3,4,5);
  9.  Array4:Array[0..4]of Double = (5,4,3,2,1);
  10.  Array5:Array[0..6]of Double = (24,34,13,72,100,1,34);
  11.          
  12. BEGIN
  13.  WriteLn('SumOfSquares(5,-18)=',SumOfSquares(Array1):1:0);
  14.  WriteLn('SumOfSquares(0.25,0.115)=',SumOfSquares(Array2):1:3);
  15.  WriteLn('SumOfSquares(1,2,3,4,5)=',SumOfSquares(Array3):1:0);
  16.  WriteLn('SumOfSquares(5,4,3,2,1)=',SumOfSquares(Array4):1:0);
  17.  WriteLn('SumOfSquares(24,34,13,72,100,1,34)=',SumOfSquares(Array5):1:0);
  18. END.

on obtiendra le résultat suivant :

SumOfSquares(5,-18)=349
SumOfSquares(0.25,0.115)=0.076
SumOfSquares(1,2,3,4,5)=55
SumOfSquares(5,4,3,2,1)=55
SumOfSquares(24,34,13,72,100,1,34)=18242


Dernière mise à jour : Samedi, le 18 juillet 2015