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