Numer ćwiczenia: 1	Konrad Syrek Jarosław Szewczyk	Data: 20.11.2011r.
	Wydział EAIiE, rok 3 EC

Celem ćwiczenia było napisanie kodu programu zamieniającego liczbę w dowolnym systemie liczbowym na dowolny inny przy podaniu charakterystycznych danych.

Program aby zamienić liczbę musi pierwsze zamienić ja na system dziesiętny, następnie dopiero przelicza na system zadany.

Dziesiętny system liczbowy, zwany też systemem arabskim to pozycyjny system liczbowy, w którym podstawą pozycji są kolejne potęgi liczby 10. Do zapisu liczb potrzebne jest więc w nim 10 cyfr: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.

Jak w każdym pozycyjnym systemie liczbowym, liczby zapisuje się tu jako ciąg cyfr, z których każda jest mnożnikiem kolejnej potęgi liczby stanowiącej podstawę systemu. Część całkowitą i ułamkową oddziela separator dziesiętny.

Metoda zamiany: Np. zapis "5045,7" wynika z:

Aby przeliczyć liczbę z systemu dziesiątkowego na inny, wykonujemy dzielenie z resztą liczby przez podstawę systemu liczbowego, na który jest przeliczana. Iloraz tych liczb ponownie dzielimy przez podstawę systemu liczbowego, aż do wyniku 0. Zapisujemy reszty z dzielenia od końca.

Zapis za pomocą algorytmu:

Dane: liczba LICZ - prawidłowa liczba naturalna w systemie dziesiętnym oraz system liczbowyQ, do którego będziemy dokonywać konwersji 
Wynik: liczba WYN powstała w wyniku zapisania liczby LICZ w systemie liczbowym Q

Algorytm w postaci listy kroków

1. Liczbie wynikowej WYN przypisujemy ciąg pusty, tak, że jej zawartość jest pusta

2. Jeśli Q>10, to dla każdej z liczb od 10 do Q-1 (włącznie) wprowadzamy specjalne oznaczenie (zwyczajowo przyjmuje się 10=A, 11=B, 12=C, 13=D itd.)

3. Dopóki liczba LICZ jest różna od 0 wykonujemy:

   • Zmiennej pomocniczej POM przypisujemy resztę z dzielenia LICZ/Q

   • Jeśli POM<10, to do liczby wynikowej WYN dopisujemy cyfrę POM

   • Jeśli natomiast POM>=10, to do liczby wynikowej WYN dopisujemy jako cyfrę ten symbol, który odpowiada liczbie POM

   • LICZ przypisujemy część całkowitą z ilorazu LICZ/Q

4. Odwracamy kolejność cyfr w liczbie WYN i kończymy algorytm. Liczba wynikowa to liczba WYN.

Kod programu:

'Program służący do przeliczania podanej liczby pomiędzy dwoma dowolnymi systemami liczbowymi'

1 Dim p As Integer 'deklaracja zmiennej p - podstawa wprowadzanej liczby, 2 'zmienna typu liczba całkowita'

3 Dim b As String 'zmienna b - podstawa liczby przeliczanej, zmienna typu 4 'łańcuch znaków(tekst)'

5 Dim przel As Integer 'zmienna przel - podstawa konwertowanej liczby'

6 Dim kod As Integer 'zmienna kod - zwraca wartość kodu ASCII podanego 7 'znaku przy pomocy funkcji Asc()'

8 Dim znak As String 'zmienna znak - zawiera zwrócony przy pomocy 9 'instrukcji Mid$() fragment tekstu

10 '(wprowadzonej liczby) '

11 Dim k As Integer 'zmienna k - podaje przy pomocy instrukcji Len() 12 'ilość znaków zadanego tekstu '

13 Dim i As Integer 'zmienna i - pozycja znaku w zamienianej na 14 'tekst liczbie, użyta w pętli for'

15 Dim cyfra As Integer 'zmienna cyfra - kod ASCII danej cyfry po 16 'rozróżnieniu znaków'

17 Dim liczb10poj As Integer 'zmienna liczb10poj -wartość dziesiętna 18 'pojedynczej cyfry w liczbie dziesiętnej

19 Dim reszta As Integer 'zmienna reszta - zwraca resztę z dzielenia 20 'liczby dziesiętnej

21 'przez podstawę liczby konwertowanej(przy 22 'pomocy instrukcji Mod)'

23 Dim calkowita As Integer 'zmienna calkowita - zwraca wartość całkowitą 24 'z dzielenia liczby dziesiętnej

25 'przez podstawę liczby konwertowanej(przy 26 'pomocy instrukcji Fix()'

27 Dim a As Integer 'zmienna a - podaje przy pomocy instrukcji 28 'Len() ilość znaków zmiennej u'

29 Dim As Integer wynik_dzies=0 'zmienna wynik_dzies - ustawiona na wartość 30 'początkową równą zero,

31 'zawiera wartość liczby przeliczanej na 32 'system dziesiętny'

33 Dim u As String 'zmienna u - zawiera w postaci tekstu cyfry 34 'przekonwertowanej liczby'

35 Dim koncowy_wynik As String 'zmienna koncowy_wynik - ostateczny wynik 36 'konwersji liczb w postaci łańcucha znaków'

37 Dim znak_2 As String 'zmienna znak_2 - zawiera zwrócony przy 38 'pomocy instrukcji Chr$()znak tekstowy

39 'odpowiadający podanemu kodowi ASCII (dla 40 'przekonwertowanej liczby)'

41

42 Input "Podaj podstawe liczby:",p 'wprowadzenie wartości zmiennej p'

43 Input "Podaj liczbe przeliczana:",b 'wprowadzenie wartości zmiennej b'

44 k=Len(b) 'wpisuje do zmiennej k ilość znaków 45 'wprowadzonej liczby'

46

47

48 For i=1 To k 'pętla for służąca do obliczania 49 'kodu ASCII 48 pojedynczych 50 'znaków wprowadzonej liczby'

51 znak=Mid$(b,i,1) 'zwraca odpowiedni fragment wprowadzonej liczby'

52 kod=Asc(znak) 'zwraca wartość kodu ASCII zmiennej znak'

53

54 'pętla if służąca do wyliczenia kodu ASCII z rozróżnieniem cyfr od 0 55 'do 9 oraz 'liter od A do F dla systemów liczbowych o podstawie większej 56 'niż 10'

57 If kod>=Asc("0")And kod<=Asc("9") Then

58 cyfra=kod-Asc("0") 'przyjmuje wartość dla cyfr 59 'od 0 do 9'

60 ElseIf kod<=Asc("F")And kod>=Asc("A") Then

61 cyfra=kod-Asc("A")+10 'przyjmuje wartość dla 59 liter od A do F'

62 ElseIf kod<=Asc("f")And kod>=Asc("a") Then

63 cyfra=kod-Asc("a")+10 'umożliwia wpisywanie również małych liter 64 'od a do f'

65 End If 'zakończenie pętli if'

66

67

68 'porównuje zmienną cyfra ze zmienną p(podstawę wprowadzonej liczby)

69 'gdy wprowadzona liczba jest nieprawidłowa kończy program'

70 If cyfra>=p Then

71 Print "Podana liczba jest nieprawidlowa" 'wypisuje informację na 72 'ekranie'

73 End 'kończy program'

74 End If 'zakończenie pętli if'

75

76 liczb10poj=cyfra*(p^(k-i)) 'oblicza wartość pojedynczej 77 'liczby dziesiętnej

78 'k- ilość cyfr w liczbie 79 'i - numer pozycja danej cyfry'

80 wynik_dzies +=liczb10poj 'wprowadzona liczba przeliczona 81 'na system dziesiętny'

82 Next i

83

84

85 Print "Liczba dziesietnie wynosi:";wynik_dzies 'wypisuje na ekranie 86 'wynik dziesiętnie'

87 Input "Podaj podstawe konwertowanej liczby:",przel 'wprowadzenie 88 'wartości zmiennej przel'

89

90 'pętla do - przeliczanie liczby z systemu dziesiętnego na dowolny od 2 91 'do 16'

92 Do

93 reszta=wynik_dzies Mod przel 'zwraca resztę z dzielenia'

94 calkowita=Fix(wynik_dzies/przel) 'zwraca liczbe całkowitą z 95 'dzielenia'

96 'pętla if do wyznaczenia zmiennej znak_2 '

97 If reszta >= 0 And reszta <= 9 Then

98 znak_2=Chr$(reszta+Asc("0")) 'gdy cyfra w liczbie zawiera się

99 'od 0 do 9'

100 ElseIf reszta >= 10 And reszta <= 15 Then

101 znak_2=Chr$(reszta+Asc("A")-10) 'gdy cyfra w liczbie zawiera się 102 'od 10 do 15'

103 End If

104 Print "";wynik_dzies;"/";przel;"=";calkowita;" r";reszta 'pokazuje 105  'na ekranie algorytm konwersji liczby

106 'z systemu dziesiętnego na dwójkowy'

107 u=u+Str(znak_2)

108 wynik_dzies=calkowita 'kolejna dzielona liczba jest równa zwróconej 109 'liczbie całkowitej z poprzedniego dzielenia'

110

111 Loop Until calkowita=0 'wykonuje w pętli do momentu, gdy zmienna 112 'calkowita=0'

113

114 a=Len(u) 'wpisuje do zmiennej a ilośc znaków zmiennej 111 tekstowej u'

115

116 'pętla do służąca do wyświetlenia na ekranie końcowego wyniku'

117 Do

118 If a=0 Then

119 Print " ";b;"(";p;" )";"=";koncowy_wynik;"(";przel;" )" 'wyświetla na 120 'ekranie końcowy wynik konwersji'

121 Exit Do 'kończy pętlę do'

122 Else

123 koncowy_wynik=koncowy_wynik+Mid$(u,a,1) 'zmienna 122 tekstowa tworząca 124 'wynik w postaci łańcucha znaków'

125 a=a-1 'odejmuje 1 od zmiennej a do 126 'momentu, gdy a=0'

127 End If

128 Loop

129

130 'program zatrzymuje się przed zakończeniem i czeka na naciśnięcie 131 dowolnego klawisza'

132 Print "Nacisnij dowolny klawisz aby wyjsc z programu..."

133 Do While Len(inkey)=0

134 Sleep 50

135 Loop