Question

How to calculate the sum of squares of an array of floating-point values in Pascal

Answer 1

program SumOfSquaresPrograms;

var
  arr: array[1..5] of Double = (0.05, 0.86, 0.001, -0.29, -4.81);
  sumOfSquares: Double;
  i, size: Integer;

begin
  sumOfSquares := 0.0;
  size := Length(arr);
  
  for i := 1 to size do
    sumOfSquares := sumOfSquares + arr[i] * arr[i];
    
  WriteLn(sumOfSquares:0:6);
end.



(*
run:

23.962301

*)

 

70+ SQL courses for beginners and professionals