A-M baby

Task/Averages-Arithmetic-mean/Modula-2/averages-arithmetic-mean-1.mod2

@@ -0,0 +1,10 @@
+PROCEDURE  Avg;
+
+VAR     avg             : REAL;
+
+BEGIN
+   avg := sx / n;
+   InOut.WriteString ("Average = ");
+   InOut.WriteReal (avg, 8, 2);
+   InOut.WriteLn
+END Avg;

Task/Averages-Arithmetic-mean/Modula-2/averages-arithmetic-mean-2.mod2

@@ -0,0 +1,14 @@
+PROCEDURE Average (Data  : ARRAY OF REAL;   Samples : CARDINAL) : REAL;
+
+(*  Calculate the average over 'Samples' values, stored in array 'Data'.     *)
+
+VAR     sum         : REAL;
+        n           : CARDINAL;
+
+BEGIN
+  sum := 0.0;
+  FOR n := 0 TO Samples - 1 DO
+    sum := sum + Data [n]
+  END;
+  RETURN sum / FLOAT(Samples)
+END Average;