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.