56 (284)

spowoduje błąd kompilacji (Error26: Type mismatch.). Podobnie próba definicji funkcji, która ma policzyć liczbę niezerowych elementów tablicy:

function LiczbaNiezerowych (A : airay [1..10] of Byte) : Byte;

begin

end;

także zakończy się błędem. Przyczyną tego jest fakt, że deklaracje zmiennych A i B w pierwszym przykładzie wcale nie są tego samego typu. Można co najwyżej powiedzieć, że jest to typ taki sam, ale to już coś innego. Do tego w nagłówkach funkcji kompilator nie pozwala na zdefiniowanie nowego typu strukturalnego, a nasz drugi przykład traktuje właśnie jako próbę takiej definicji.

Z odsieczą przychodzi nam część bloku deklaracyjnego, służąca do definiowania własnych typów. Jej struktura jest następująca:

type

NazwaTypul - DefinicjaTypul;

NazwaTypu2 - DefinicjaTypu2;

NazwaTypuN - DefinicjaTypuN;

Po zadeklarowaniu typów możesz ich już używać w deklaracji zmiennych tak, jak typów standardowych. Oto przykład:

type

TPomiary - airay [1..300] of Real; var

Pomiary : TPomiary;

function WariancjaPomiarow (P : TPomiary) : Real; begin

end;

Writeln (WariancjaPomiarow (Pomiary));

Ć W I C I E K I t_

| Określanie parzystości

Zdefiniuj typ tablicowy (tablica z 1000 elementów typu Byte). Napisz funkcją, która bada, ile elementów jest parzystych. Napisz program, który zapełnia tablicą wartościami losowymi z zakresu 0..99 i sprawdza wartość funkcji.

program cw4_07;

{ Program ilustruje działanie funkcji, obliczającej }

{ liczbę parzystych elementów w tablicy.    }

{ Katalog r4_02 : 4_07.pas    }

type

TTablicaLosowa - array [1..1000] of Byte;

var

Tablica : TTablicaLosowa;

I    : Integer;

function LiczbaParzystych (T : TTablicaLosowa) ; Integer;

{ Funkcja oblicza liczbę parzystych elementów w tablicy. }