min-max.doc

(19 KB) Pobierz
Function WartoscMinimalna(var wartość:wezel): wezel

Function WartoscMinimalna(var wartość:wezel): wezel

Var BiezacyWezel:wezel

   Begin

      BiezacyWezel:=root

      Repeat

      BiezacyWezel:=LewySyn

      Until BiezacyWezel=NIL

      WartoscMinimalna:=BiezacyWezel;

    End

 

 

 

Function WartoscMaksymalna(var wartość:wezel): wezel

Var BiezacyWezel:wezel

   Begin

      BiezacyWezel:=root

      Repeat

      BiezacyWezel:=PrawySyn

      Until BiezacyWezel=NIL

      WartoscMaksymalna:=BiezacyWezel;

    End

 

...
Zgłoś jeśli naruszono regulamin