CEILING, FLOOR, MOD

---

Jestliže X je reálné číslo, pak píšeme

X nebo FLOOR(X)= největší celé číslo menší nebo rovno X;
X nebo CEILING(X)= nejmenší celé číslo větší nebo rovno X.

 

FLOOR: procedure parse arg F return TRUNC(F) - (F < 0) * (F <> TRUNC(F))   CEILING: procedure parse arg C return TRUNC(C) + (C > 0) * (C <> TRUNC(C))

 

PŘÍKLAD

Program

say FLOOR(4) CEILING(4) say FLOOR(-4.1) CEILING(-4) say FLOOR(4.1) CEILING(4.1) say FLOOR(4.9) CEILING(4.9) exit

zobrazí

4 4
-5 -4
4 5
4 5

Pro reálná čísla X a Y definujeme operaci:

MOD(X,Y)=X-Y*FLOOR(X/Y) if Y<> 0;
MOD(X,0)=X

 

MOD: procedure parse arg X, Y if Y = 0 then return X return X - Y * FLOOR(X/Y)

 

(D.E.Knuth) Cvičení 8, 9, 10, kapitola 1.2.4, a výsledky

say MOD(100,3) MOD(100,7) MOD(-100,7) MOD(-100,0)

          zobrazí 1 2 5 -100

say MOD(5,-3) MOD(18,-3) MOD(-2,-3)

          zobrazí -1 0 -2

say MOD(1.1,1) MOD(0.11,0.1) MOD(0.11,-0.1)

          zobrazí 0.1 0.01 -0.09