Zadanie2_10
Implementacja projektu NWD w trybie konsoli
(15 min)
Opis zadania
Do wykonanego na lekcji 8 rozwi zania NWD.sln dodaj nowy projekt aplikacji konsolowej obliczaj cej NWD. Po napisaniu kodu programu zmie obiekt startowy by uruchomi nowo napisan aplikacj .
Efekt ko cowy
Celem zadania jest utrwalenie umiej tno ci posługiwania si aplikacjami konsolowymi oraz nabycie umiej tno ci dodawania nowego projektu do istniej cego rozwi zania.
- Aby wykona zadanie niezb dne jest wykorzystanie przygotowanego projektu: VB\Programy\Lekcja10\Program2_10\NWD.sln. Zadanie to bazuje na wykonanym wcze niej projekcie aplikacji obliczaj cej najwi kszy wspólny dzielnik na podstawie algorytmu Euklidesa.
Realizacja zadania
Podczas realizacji tego zadania przypomnisz sobie algorytm Euklidesa do obliczania NWD
i zrealizujesz go w postaci aplikacji konsolowej. Dodatkowo nauczysz si dodawa nowy projekt do istniej cego rozwi zania.
Krok 1 - Zapoznanie si z istniej cym rozwi zaniem
! "#
"
"#
Krok 2 - Dodanie nowego projektu do istniej cego rozwi zania
!
"
#
$
!
$
% &
' (
!
"
$
) ! "#
"
"#
1
Krok 3 - Wpisanie kodu programu
#
Dim a, b As Integer
*
$
( +
!
*
"
) Console.ReadLine Console.WriteLine.
'wyprowadzenie komunikatu
Console.WriteLine("Podaj pierwsz liczb : ")
‘przypisanie warto ci z klawiatury
a = Console.ReadLine
Console.WriteLine("podaj drug liczb ")
b = Console.ReadLine
'algorytm NWD
Do While a <> b
If a > b Then
a -= b
Else
b -= a
End If
Loop
'wyprowadzenie wyniku na ekran konsoli
Console.WriteLine("NWD = " & a)
Przykładowy kod programu:
Module Module1
Sub Main()
Dim a, b As Integer
'wyprowadzenie komunikatu
Console.WriteLine("Podaj pierwsz liczb : ")
'przypisanie warto ci z klawiatury
a = Console.ReadLine
Console.WriteLine("podaj drug liczb ")
b = Console.ReadLine
'algorytm NWD
Do While a <> b
If a > b Then
a -= b
Else
b -= a
End If
Loop
'wyprowadzenie wyniku na ekran konsoli
Console.WriteLine("NWD = " & a)
End Sub
End Module
Krok 3 - Zmiana projektu startowego i testowanie aplikacji
,
-
.
*
/
0
!
1
*
2
!
*
*
$
"
-
-
2