Другие языки программирования и технологии

Добрые люди, помогире сделать программу показывающую все возможные варианты двузначного числа в 16тиричной форм. исчисл.

Тебе нужна программа, которая выдает все 16-ные числа от 10 до FF?
В Visual Basic рисуешь поле Метка (Label) длиной в 48 знаков и высотой 16 строк. В свойствах Метки найди свойство, которое отвечает за перенос по словам, у него в названии есть слово Wrap, точное название я, к сожалению, не помню, и установи его в 1. И кнопку "Пуск", на неё вешаешь программу:
Sub A16
Dim i As Integer, N1 As Integer, N2 As Integer, S1 As String, S2 As String, Mes As String
Mes = "" ' В Mes формируется выходная таблица
For i = 16 To 255
N1= Int(i / 16) ' Первая цифра
Select Case N1 ' Заменяем, если надо, число на букву
Case Is 10: S1 = "A"
Case Is 11: S1 = "B"
Case Is 12: S1 = "C"
Case Is 13: S1 = "D"
Case Is 14: S1 = "E"
Case Is 15: S1 = "F"
Case Else: S1 = Str(N1)
End Select
N2 = i Mod 16 ' Вторая цифра
Select Case N2 ' Заменяем, если надо, число на букву
Case Is 10: S2 = "A"
Case Is 11: S2 = "B"
Case Is 12: S2 = "C"
Case Is 13: S2 = "D"
Case Is 14: S2 = "E"
Case Is 15: S2 = "F"
Case Else: S2 = Str(N2)
End Select
Mes = Mes & S1 & S2 & " " ' Добавляем 16-ное число к выходному сообщению
If N2 = 15 Then Mes = Mes & Chr(10) & Chr(13) ' Выдали 16 чисел - переход на след. строку
Next i
Label.Caption = Mes
End

Блок Select Case можно оформить в отдельную процедуру-функцию, и просто вызвать её 2 раза с параметром N1 и N2.
ММ
Максим Мышкин
50 804
Лучший ответ
Самый простой вариант - пересчитывать из десятичной системы. А их не проблема найти. Между 16 - 255.
во-первых, вариант показа одного числа - один. во-вторых, какой язык?

Похожие вопросы