1 2

Laboratorium z informatyki sem.II/ćw. I    Wydział Transportu PW

III    Zastosowanie funkcji lnputBox do wpisywania danych tekstowych

1.    Dodaj do formy drugi przycisk o nazwie Tekst, który będzie wyświetlać na etykiecie dowolny tekst wpisany przez użytkownika. Przejdź do edytora programu, dwukrotnie klikając przycisk.

2.    Między begin i end procedury obsługi zdarzenia OnClick przycisku Tekst wpisz instrukcję, która z pomocą wbudowanej funkcji InputBox wyświetla ciąg znaków wpisanych z klawiatury:

Labell.Caption:= InputBox('Dane tekstowe','wpisz tekst', '?????');

3.    Zapisz projekt poleceniem Save Ali, uruchom aplikację i sprawdź działanie przycisku Tekst.

IV    Konwersja tekstu na liczby

1.    W części prywatnej definicji typu TForml (po słowie kluczowym private) wstaw deklarację pola:

n: Integer;

2.    Dodaj do formy trzeci przycisk o nazwie Liczba z napisem liczba n, który posłuży do wczytywania liczby całkowitej podanej z klawiatury. Dwukrotnym kliknięciem przejdź do edytora programu,

i wewnątrz bloku begin. . . end procedury TForml. LiczbaClick wpisz następujące instrukcje:

Label2.Caption:= InputBox('podaj liczbę naturalną','',''); n:= StrToInt (Label2 .Caption) ; //konwersja tekstu na liczbę

3.    Przez skopiowanie etykiety Labell utwórz drugą etykietę o nazwie Labe!2. Umieść ją po prawej stronie przycisku Liczba, w oknie jej właściwości wyczyść pole Caption i ustaw AutoSize na False, Width na 100 i Alignment na taRightJustify.

4.    Uruchom program i sprawdź działanie przycisku Liczba wpisując liczbę całkowitą. Przy wpisaniu innego tekstu występuje błąd wykonania. Należy wtedy wybrać z menu polecenie Run|Program Rcset.

V    Iteracyjne obliczanie sumy

l. Dodaj do formy czwarty przycisk o nazwie Suma z napisem suma 1..n, który będzie obliczać i wyświetlać na etykiecie sumę liczb od l do //. Dwukrotnym kliknięciem przejdź do edytora programu, a następnie:

•    Pod nagłówkiem procedury TForml. SumaClick wpisz deklarację zmiennych lokalnych: var k, suma:Integer;

•    Wewnątrz bloku begin. . . end procedury TForml. SumaClick wpisz instrukcje: suma:= 0; //początkowa wartość sumy

for k:= 1 to n do suma:= suma + k;

Label3.Caption:= IntToStr (suma) ; //konwersja liczby na tekst

2.    Przez skopiowanie etykiety Label2 umieść po prawej stronie przycisku Suma etykietę Label3.

3.    Zapamiętaj wprowadzone zmiany, uruchom aplikację i sprawdź jej działanie wpisując liczbę z użyciem przycisku Liczba i wyświetlając sumę przyciskiem Suma.

VI    Iteracyjne obliczanie iloczynu

1.    Dodaj piąty przycisk o nazwie Potęga z napisem n do potęgi 5, obliczający 5 potęgę liczby n:

•    Pod nagłówkiem procedury TForml. PotegaClick wpisz deklarację zmiennych lokalnych: var k, potęga: Integer;

•    Wewnątrz bloku begin. . .end procedury TForml. PotegaClick wpisz instrukcje: potęga := 1; //początkowa wartość iloczynu

for k:= 1 to 5 do potęga:= potęga ^{1 2} n;

Label4.Caption:= IntToStr(potęga) ;

2.    Umieść po prawej stronie przycisku Potęga etykietę Label4. Sprawdź obliczanie potęgi używając przycisków Liczba i Potęga.

3.    Zapisz utworzoną aplikację w katalogu roboczym i wyjdź z programu Delphi poleceniem File|Exit.

4.    Skopiuj potrzebne pliki utworzonej aplikacji na dyskietkę i wyloguj się z sieci.

2

1

Rozwinięcie aplikacji

•    Zmodyfikować procedurę kliknięcia przycisku Liczba tak, aby po wpisaniu nowej wartości n znikały napisy na etykietach wyświetlających sumę i potęgę. Wskazówka: Pusty napis ma posłać: ' '

•    Umożliwić wyświetlenie z pomocą przycisków swojego nazwiska lub dowolnego tekstu w nagłówku, formy, a zbędną etykietę ukryć ustawiając odpowiednio jej właściwość Visible.

2

   Umożliwić obliczenie /-tej potęgi liczby n.

Wskazówka: Zadeklaruj lokalną zmienną i. Wpisz wykładnik do zmiennej i stosując funkcje InputBox oraz StrToInt, wyświetl wynik na etykiecie Label5,a następnie odpowiednio zmień wartość końcową licznika pętli for.