Antoni M. Zajączkowski: APP - Zadania. Wskaz
niki
26 maja 2009
Zadanie. Mamy dane deklaracje:
type Wsk_Integer is access Integer;
Wsk1, Wsk2 : Wsk_Integer;
oraz instrukcje
Wsk1 := new Integer'(0);
Wsk2 := new Integer'(100);
Put (Wsk1.All, 3); New_Line;
Put (Wsk2.All, 3); New_Line;
Wsk2.All := Wsk1.All;
Put (Wsk1.All, 3); New_Line;
Put (Wsk2.All, 3); New_Line;
Wsk1.All := 5;
Wsk2.All := 25;
Put (Wsk1.All, 3); New_Line;
Put (Wsk2.All, 3); New_Line;
Wsk1 := Wsk2;
Put (Wsk1.All, 3); New_Line;
Put (Wsk2.All, 3); New_Line;
Podaj wszystkie wartości wypisywane przez wywołania procedury Put.
Zadanie. Przypuśćmy, że chcemy wyznaczać wartości dowolnych, dobrze określonych
2 2
odwzorowań F : , x y = F(x). W tym celu piszemy deklaracje
type Wektor_2 is array (1 .. 2) of Float;
type Odwzorowanie is access function (X : in Wektor_2) return Wektor_2;
Napisać funkcję Obraz, której parametrami są argument X typu Wektor_2 i funkcja typu
Odwzorowanie. Funkcja ma wyznaczać wektor Odwzorowanie(X). Następnie napisać
funkcje Przeciwny i Obrocony_O_90 obliczające odpowiednio wektor przeciwny do
argumentu tej pierwszej funkcji i wektor obrócony o kąt 90o do argumentu drugiej funkcji,
takie, że mogą być parametrami aktualnymi funkcji Obraz. Mając deklaracje
V : Wektor_2 := (1.0, 1.0);
W : Wektor_2;
napisać instrukcje przypisujące zmiennej W wartości obliczone przez funkcję Obraz w przy-
padku, gdy jej parametrami aktualnymi są V i funkcje Przeciwny i Obrocony_O_90.
1