Averages/Pythagorean means: Difference between revisions
→{{header|ALGOL 68}}: bug
(→{{header|Fortran}}: adding gap) |
(→{{header|ALGOL 68}}: bug) |
||
Line 67:
printf(($"c: "f(real)l"s: "f(real)l"p: "f(real)l"r: "f(real)l$,count,sum,prod,resum));
printf(($"Arithmetic mean = "f(real)l$,sum/count));
printf(($"Geometric mean = "f(real)l$,prod**(1/count)));
printf(($"Harmonic mean = "f(real)l$,count/resum))
)</lang>
Line 79:
r: 2.9290
Arithmetic mean = 5.5000
Geometric mean =
Harmonic mean = 3.4142
</pre>
| |||