Antoni M. Zaj czkowski: APP - Zadania. Jednostki ogólne

26 maja 2009

1

Zadanie.

Mamy deklaracje

generic

type

Typ_Danych

is private

;

procedure

Wymien_Ogolnie (W1, W2 :

in out

Typ_Danych);

...

procedure

Wymien_Ogolnie (W1, W2 :

in out

Typ_Danych)

is

Temp: Typ_Danych;

begin

Temp := W1;
W1 := W2;
W2 := Temp;

end

Wymien_Ogolnie;

Czy typ Typ_Danych zadeklarowany w sekcji ogólnej jako

private

, mo e by typem prywatnym ograniczonym –

limited private

? Uzasadnij

odpowied .

Zadanie.

Mamy deklaracje

generic

type

Typ_Danych

is private

;

procedure

Wymien_Ogolnie (W1, W2 :

in out

Typ_Danych);

Napisa konkretyzacj procedury Wymien_Ogolnie w przypadku typu standardowego
Character

.

Zadanie.

Mamy deklaracje

generic

type

Typ_Danych

is private

;

with function

Wiekszy(L, R : Typ_Danych)

return

Boolean;

function

Maksimum (W1, W2 : Typ_Danych)

return

Typ_Danych;

Napisa

konkretyzacj funkcji Maksimum w przypadku typu standardowego Character.