cw8b

Wydział Transportu PW

Laboratorium informatyki sem. II / ćw. 8

III    Generowanie danych i wyświetlanie zawartości tablicy

1.    Zadeklaruj metodę formy, która w siatce tekstowej StringGridl wyświetla dane z liczbowej tablicy T

procedurę TForrnl. WyswietlDane;

var i .-Integer;

begin

for i : = 1 to LiczbaElementow do StringGridl,Cells [i-1, 0] : == IntToStr (T [i ] ) ; end;

2.    Utwórz i oprogramuj procedurę obsługi kliknięcia przycisku Generuj, która wpisuje do tablicy T liczby losowe z przedziału <0, 20) i aktualizuje siatkę danych, o następującej treści:

for i:=1 to LiczbaElementow do T[i]:= Random(20);

WyswietlDane;

GroupBocl ,Hide;

3.    Analogicznie oprogramuj procedurę kliknięcia przycisku Zeruj, która zeruje całą tablicę:

4.    Utwórz i oprogramuj procedurę obsługi zdarzenia OnSetEditText dla siatki StringGridl aktualizującą zawartość zmienionego elementu tablicy:

procedurę TForrnl.StringGridlSetEditText(Sender: TObject; ACol,

ARow: Integer; const Value: String); begin

T[ACol+l]:= StrToIntDef(Value, 0);

GroupBoxl.Bidę; end;

5.    Skompiluj i uruchom program, sprawdź zachowanie oprogramowanych komponentów.

IV    Operacje na tablicy

1.    W części implementacyjnej zadeklaruj pomocniczą funkcję Maksimum, znajdującą największy element tablicy:

function Maksimum : Integer;

var i : Integer;

begin

Resuit:= T [ 1] ;

for i : — 2: to LiczbaElementow do if T[i]>Result then Result: =T [ i ] ; end;

2.    Utwórz procedurę obsługi zdarzenia kliknięcia przycisku Maksymalny paska narzędziowego o treści

WyswietlDane;

GroupBoxl.Show;

GroupBoxl.Caption:    'Największy element tablicy';

StringGrid2.Width:= StringGrid2.De faultC6lWidth+4;

StringGrid2.Cells[0,0]:=IntToStr(Maksimum);

3.    Uruchom aplikację i sprawdź działanie przycisku.

4.    Analogicznie zadeklaruj funkcję Suma, obliczającą sumę elementów tablicy i oprogramuj zdarzenie OnClick przycisku Sumuj.

5.    Zadeklaruj procedurę o nazwie Sortowanie, sortującą rosnąco elementy tablicy:

procedurę Sortowanie; var i, j, pom : Integer; begin

for i:= 1 to LiczbaElementow-1 do for j:= i+1 to LiczbaElementow do if T[i] > T[j) then

begin pom:=T[i]; T[i]:=T[j]; T[j]:=pom; end;

end;

6.    Utwórz procedurę obsługi zdarzenia OnClick dla przycisku Sortuj. Wywołaj w niej procedurę Sortowanie i w siatce StringGrid2 wyświetl wszystkie elementy posortowanej tablicy T oraz wpisz do tablicy T dane z siatki StringGridl.

7.    Uruchom aplikację i sprawdź jej działanie.

Rozwinięcie aplikacji

Dodaj do paska narzędziowego przyciski, których kliknięcie spowoduje:

•    wyświetlenie liczby elementów tablicy o wartości niemniejszej od 10

•    wyświetlenie kwadratów wartości kolejnych elementów tablicy

•    wyświetlenie średniej arytmetycznej wartości elementów tablicy z dokładnością do 4 miejsc po przecinku.

I