Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
(add Pascal example) |
|||
Line 1,150: | Line 1,150: | ||
Mean: 3.83333333 |
Mean: 3.83333333 |
||
</pre> |
</pre> |
||
Alternative version using the Math unit: |
|||
<lang pascal>Program Mean; |
|||
uses math; |
|||
const |
|||
vector: array [3..8] of double = (3.0, 1.0, 4.0, 1.0, 5.0, 9.0); |
|||
var |
|||
i: integer; |
|||
begin |
|||
writeln('Calculating the arithmetic mean of a series of numbers:'); |
|||
write('Numbers: [ '); |
|||
for i := low(vector) to high(vector) do |
|||
write (vector[i]:3:1, ' '); |
|||
writeln (']'); |
|||
writeln('Mean: ', sum(vector):10:8); |
|||
end.</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |