16 lines
271 B
Text
16 lines
271 B
Text
class MAIN is
|
|
-- irrms stands for Integer Ranged RMS
|
|
irrms(i, f:INT):FLT
|
|
pre i <= f
|
|
is
|
|
sum ::= 0;
|
|
loop
|
|
sum := sum + i.upto!(f).pow(2);
|
|
end;
|
|
return (sum.flt / (f-i+1).flt).sqrt;
|
|
end;
|
|
|
|
main is
|
|
#OUT + irrms(1, 10) + "\n";
|
|
end;
|
|
end;
|