Kwartyl dolny i górny

[MgielkaCuba]

Hej! Mam problem z napisaniem w Pascalu instrukcji liczącej kwartyl dolny i górny.
Mam takie dane: y:array[1..n] of real, n-ustalone
Znalazłam stronkę:
... i_kwartyle

i zaczęłam tak:

Kod: Zaznacz cały

procedure kwartyle (var a:y);
begin
if 1/4*x mod 2=0 then
                 kwD:=((1/4*x)+(1/4*x+1))/2
 else ...
end;

{i tu sie zaczyna problem, bo na stronie napisali : Jeśli iloczyn\(\displaystyle{ \frac{1}{4}\cdot n}\) nie jest liczbą całkowitą, czyli składa się z pewnej liczby całkowitej m i ułamka właściwego, to dolnym kwartylem jest wynik stojący na m+1 miejscu.
Nie mam pojęcia jak to zapisać.

[Sokół]

\(\displaystyle{ \frac{1}{4} * n}\) będzie liczbą całkowitą, jeśli n będzie podzielone przez cztery. By zbadać taką podzielność skorzystać z modulo, reszty z dzielenia. Jeśli reszta z dzielenia n przez 4 wyniesie 0, to n jest podzielne przez 4.

[MgielkaCuba]

No dobrze, ale co z drugą częścią. Jeżeli to \(\displaystyle{ \frac{1}{4}*n}\) nie jest liczbą całkowitą, czyli:
Jeśli iloczyn\(\displaystyle{ \frac{1}{4}\cdot n}\) nie jest liczbą całkowitą, czyli składa się z pewnej liczby całkowitej m i ułamka właściwego, to dolnym kwartylem jest wynik stojący na m+1 miejscu. Jak to m wyznaczyć ? Funkcja div ? Jeśli tak to w jaki sposób?

[Sokół]

m to po prostu największa liczba całkowita mniejsza od n/4. W c++ wyznaczyło by zrzutować na int n/4, nie wiem czy w pascalu też się tak robi. Jeśli nie, to znalazłem funkcję: Trunc(x).