23 (800)

Rozdział 4. ♦ Wprowadzanie danych, formatowanie i wyświetlanie na ekranie

71

Tabela 4.9. Wybrane funkcje statystyczne
Definicja funkcji	Znaczenie
RaxVa1ue(const Data: array of Double): Double;	Funkcja zwraca największą wartość z elementów tablicy jednowymiarowej (parametr Data). Elementy tej tablicy muszą być typu Doubl e. Nie oznacza to, że nie można przypisać elementowi takiej tablicy liczby całkowitej.
RaxIntValue(const Data: i array of Integer): Integer;	Funkcja MaxIntVal ue zwraca największą liczbę z tablicy jednowymiarowej (parametr Data). Dotyczy tylko liczb całkowitych.
*ean(const Data: array Double): Extended;	Funkcja Mean oblicza średnią arytmetyczną liczb całkowitych lub rzeczywistych z tablicy jednowymiarowej (parametr Data).
StdDev(const Data: array •* Double): Extended;	Funkcja oblicza odchylenie standardowe dla danych z tablicy Data.

Przykład 4.22.

Korzystając z funkcji biblioteki Math, oblicz pierwiastek trzeciego stopnia z liczby 0,008, wyświetl maksymalną liczbę z tablicy 10-elementowej jednowymiarowej oraz oblicz i wyświetl średnią tych liczb. Wyniki przedstawiono na rysunku 4.10.

Rysunek 4.10.

Wyniki dla danych z tabeli uzyskane aa pomocą funkcji modułu Math

Rozwiązanie

Umieść na formularzu trzy etykiety TLabel, przycisk TButton oraz tabelę TStringGrid o 10 kolumnach (ColCount=10) i dwóch wierszach (RowCount=2) — rysunek 4.10. Dla pierwszej etykiety ustaw rozmiar czcionki na 12 pkt, a dla pozostałych 14 pkt (właściwość Font. Si ze).

Treść procedury wykonującej obliczenia po kliknięciu przycisku jest następująca:

procedurę TForml.ButtonlClicktSender: TObject); var tab:array[0..9] of double; i :integer; a: single:

begin

//wyświetlenie pierwiastka trzeciego stopnia z liczby 0,008

Labell.Caption:='Pierwiastek sześcienny z 0.008='+FloattoStr(Power(0.008,l/3));

//wypełnienie tabeli liczbami

for i:=0 to 9 do

begin

a:= Random(lO); //lub liczby losowe rzeczywiste 100*Random; tabfi]:=a: //wpisanie liczby do tablicy