Zadanie3d 17, Visual Basic, E-podrecznik Visual Basic, materialy, 17 lekcja, 17 zadania
[ Pobierz całość w formacie PDF ]
Lekcja 17: Rekurencja i jej zastosowania
Zadanie3d_17
Zadanie3d_17
Dwumian Newtona w wersji rekurencyjnej
(30 min.)
Opis zadania
Przygotuj program obliczający wartość dwumianu Newtona. Przykładowa aplikacja powinna obliczać


n


ze wzoru rekurencyjnego


n


=

−
n
1


+


n
−
1


, dla zadanych n i k
całkowitych,
k
k
k
k
−
1
spełniających zależność
n
≥
k
.
Uwaga:


n


=


n


=
1
(przypadki elementarne).
0
n

Efekt końcowy
Celem zadania jest utrwalenie umiejętności wykorzystania rekurencji w programowaniu.
- Zadanie nie wymaga plików ćwiczeniowych.
Realizacja zadania
W zadaniu napiszesz aplikację obliczającą rekurencyjnie


n


. Stworzysz interfejs aplikacji wg wzoru
k
i napiszesz funkcje pozwalające na obliczenie wartości dwumianu Newtona.
Krok 1 - Otwarcie przygotowanego projektu
1. Utwórz nowy projekt o nazwie
Dwumian rekurencja.sln
w folderze
VB\Programy\Lekcja17
.
Krok 2 – Rozmieszczenie kontrolek w formularzu
1. Rozmieść na formularzu kontrolki wg wzorca poniżej.
Algorytmika i programowanie
1














Lekcja 17: Rekurencja i jej zastosowania
Zadanie3d_17
Krok 3 - Ustawianie właściwości kontrolek
1. Ustaw wybrane właściwości etykiet i pól tekstowych (właściwości etykiet i pól tekstowych ustawione
w przykładzie przedstawia poniższa tabela).
Etykiety:
Nazwa kontrolki
Właściwość Nowawartość
Label1
Text
n
Label1
TextAlign
MiddleCenter
Label2
Text
k
Label2
TextAlign
MiddleCenter
Label3
Text
wartość dwumianu (rekurencyjnie):
Label3
TextAlign
MiddleCenter
Label4
Text
wartość dwumianu ze wzoru n!/k!(n-k)!
Label4
TextAlign
MiddleCenter
Label5
Text
n >= k
Label5
TextAlign
MiddleCenter
lbAnkRek
Text
lbAnkRek
TextAlign
MiddleCenter
lbAnkIte
Text
lbAnkIte
TextAlign
MiddleCenter
Pola tekstowe:
Nazwa kontrolki
Właściwość Nowawartość
txtN
Text
txtK
Text
Przycisk:
Nazwa kontrolki
Właściwość Nowawartość
btnOblicz
Text
Oblicz
Algorytmika i programowanie
2
Lekcja 17: Rekurencja i jej zastosowania
Zadanie3d_17
2. Zapisz wykonaną pracę.
Krok 4 – Pisanie kodu
1. Wpisz w edytorze kodu funkcję
DwumianRek.
Private Function DwumianRek(ByVal a As Byte, ByVal b As Byte) As Integer
If b = 0 Or a = b Then
DwumianRek = 1 'przypadek elementarny
Else
DwumianRek = DwumianRek(a - 1, b) + DwumianRek(a - 1, b - 1)
'zależność rekurencyjna
End If
Return DwumianRek 'zwrot obliczonej wartości
End Function
2. Wpisz kod funkcji obliczającej silnię -
Silnia.
Private Function Silnia(ByVal a As Byte) As Long
Dim s As Long = 1
Dim i As Integer
For i = 1 To a
s *= i
Next i
Return s
End Function
3. Dodajprocedurę obsługi zdarzenia dla przycisku
Oblicz
4. Wprowadź kod do procedury wywołujący wcześniej utworzone funkcje i wyświetlający wynik obliczeń
Dim n, k As Byte
n = CByte(txtN.Text)
k = CByte(txtK.Text)
'wywołanie funkcji i zwrot jej przekonwertowanej wartości do pola tekstowego
lbAnkRek.Text = CStr(DwumianRek(n, k))
'obliczenie z "gotowego" wzoru wartości dwumianu
lbAnkIte.Text = CStr(Silnia(n) / (Silnia(k) * Silnia(n - k)))
n
≥
3. Kliknijprzycisk
Oblicz
, aby zweryfikować działanie aplikacji.
4. Zamknij VB .NET.
5. Korzystając z Eksploratora Windows, zmień nazwę folderu aplikacji (
Dwumian rekurencja
) na
Program3d_17
.
(
k
)
.
Algorytmika i programowanie
3
Krok 5 – Test aplikacji
1. Uruchomaplikację.
2. Wpisz liczby w pola opisane jako
n
i
k
[ Pobierz całość w formacie PDF ]