Antoni M. Zajączkowski: APP - Zadania. Jednostki ogólne
26 maja 2009
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
odpowiedz
.
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.
1