Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 9 10
Wyślij wiadomość do admina

Przewiń wpisy ↓

SUDOKU

2026-08-09 (22:28)

status Lottonauta
Data rejestracji: 2012-09-03
Ilość postów: 3820

13559
wpis nr 1 625 587
[ CZCIONKA MONOSPACE ]

super

--- wpis edytowano 2026-08-09 22:28 ---

2026-08-10 (10:22)

status 777ch
Data rejestracji: 2005-11-07
Ilość postów: 23091

1386
wpis nr 1 625 613
[ CZCIONKA MONOSPACE ]


Sub AlgorytmEuklidesa()
Dim a As Integer, b As Integer, reszta As Integer

' Pobierz liczby od użytkownika
a = InputBox("Podaj pierwszą liczbę (a):")
b = InputBox("Podaj drugą liczbę (b):")

'Zapisz liczby do wyświetlenia na końcu
Dim orgA As Integer, orgB As Integer
orgA = a: orgB = b

' Główna pętla algorytmu z resztą z dzielenia (modulo)
Do While b <> 0
reszta = a Mod b
a = b
b = reszta
Loop

' Wyświetl wynik
MsgBox "NWD liczb " & orgA & " i " & orgB & " to: " & a
End Sub
2026-08-10 (16:13)

status Lottonauta
Data rejestracji: 2012-09-03
Ilość postów: 3820

13559
wpis nr 1 625 633
[ CZCIONKA MONOSPACE ]

https://rosettacode.org/wiki/Greatest_common_divisor#BASIC
2026-08-11 (15:14)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8998

14865
wpis nr 1 625 708
[ CZCIONKA MONOSPACE ]

W informatyce stosowane są cztery główne systemy liczbowe: dwójkowy, szesnastkowy, ósemkowy i dziesiętny.
Ale systemów może być nieskończenie wiele, problem tylko ze znalezieniem oznaczeń (cyfr).

Proponuję zabawę w przekształcanie kodów.
Liczbę w kodzie siódemkowym: 1 2 3 4 5 6
przedstawić w kodzie czwórkowym.
2026-08-12 (11:39)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8998

14865
wpis nr 1 625 771
[ CZCIONKA MONOSPACE ]

za trudne?
2026-08-13 (01:00)

status Lottonauta
Data rejestracji: 2012-09-03
Ilość postów: 3820

13559
wpis nr 1 625 819
[ CZCIONKA MONOSPACE ]

zamienić na zapis binarny, a potem każdy nypel (dwa bity) zamienić na liczbę dziesiętną.
Zamieniamy zaczynając od prawej strony

--- wpis edytowano 2026-08-13 01:05 ---

2026-08-13 (01:14)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8998

14865
wpis nr 1 625 820
[ CZCIONKA MONOSPACE ]

Możesz to zrobić i przedstawić rezultat?
2026-08-13 (01:56)

status Lottonauta
Data rejestracji: 2012-09-03
Ilość postów: 3820

13559
wpis nr 1 625 821
[ CZCIONKA MONOSPACE ]

@fair_play,
sorry - nie chce mi się, za dużo pisania.

generalnie to zasada jest taka:
- zamieniam na system dziesiętny
- z systemu dziesiętnego zamieniam na system docelowy

--- wpis edytowano 2026-08-13 02:01 ---

2026-08-13 (02:25)

status fair_play
Data rejestracji: 2016-05-12
Ilość postów: 8998

14865
wpis nr 1 625 823
[ CZCIONKA MONOSPACE ]

CZCIONKA MONOSPACE

system liczba
7 123456
4 11211123

system liczba
16 ABCDEF
2 101010111100110111101111

system liczba
32 AUVW
16 57C00

system liczba
32 AUVW
8 1276000

system liczba
32 AUVW
10 359424

system liczba
20 7CGK
12 2B470


--- wpis edytowano 2026-08-13 02:39 ---

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 9 10
Wyślij wiadomość do admina