Вывести числа от 1 до 15 в Децимальной, Хексадецимальной, и Октальной системе счёта

@Вайрис · Регистрация: 08.11.2015

Студворк — интернет-сервис помощи студентам

На самом деле это репост моего оригинального трэда, но окозалось, что я не правильно понял задание.

Вообщем, задание: Вывести числа от 1 до 15 в Децимальной, Хексадецимальной, и Октальной системе счёта.

В Аксессе в катором я работаю, есть встроение функции: Hex(), Oct().

К сожелению, я немогу их изпользовать, поэтому, я хотел вас попрасить помочь мне решить этo задание.

Я немогу найти не одно похожее задание в интернете, да и сам я придумать не могу.

Может я могу как-то посмотреть код встроеной функции?

Спосибо за помощь и сори за граматику

@Catstail · 13.03.2016, 23:02

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Hex_(n As Integer) As String
       Digs$ = "0123456789ABCDEF"
       If n < 16 Then
          Hex_ = Mid$(Digs$, n + 1, 1)
       Else
          k% = n Mod 16
          Hex_ = Hex(n \ 16) & Mid$(Digs$, k% + 1, 1)
       End If
End Function
 
Function Oct_(n As Integer) As String
       If n < 8 Then
          Oct_ = CStr(n)
       Else
          Oct_ = Oct(n \ 8) & CStr(n Mod 8)
       End If
End Function

Shersh · 14.03.2016, 07:15

Сообщение от Вайрис

К сожелению, я немогу их изпользовать

скорее всего потому что не знаете как.
В VB.NET DEBUG устроен по другому, попробуйте такой вариант -

VB.NET
1
2
3
4
5
  Sub Main()
    For X = 1 To 15
      Debug.Print(X & " " & Oct(X) & " " & Hex(X))
    Next X
  End Sub

@Pro_grammer · 14.03.2016, 07:19

Сообщение от Shersh

скорее всего потому что не знаете как.

Скорее всего это запрещено условиями задания. Вот Catstail понял суть проблемы!

Shersh · 14.03.2016, 07:26

Pro_grammer, возможно, Вы с Catstailом и правы, но судя по тому, что одна из тем ТС скоропостижно переехала в NET, он просто заблудился в бэйсике.

@Вайрис · 14.03.2016, 08:05 **[ТС]**

Дело в том что у меня был запрет на ети функции в рамках задания, но всё ровно, большое спосибо за помощь всем

@Catstail · 14.03.2016, 10:00

Ой, виноват! Правильно так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Hex_(n As Integer) As String
       Digs$ = "0123456789ABCDEF"
       If n < 16 Then
          Hex_ = Mid$(Digs$, n + 1, 1)
       Else
          k% = n Mod 16
          Hex_ = Hex_(n \ 16) & Mid$(Digs$, k% + 1, 1)
       End If
End Function
 
Function Oct_(n As Integer) As String
       If n < 8 Then
          Oct_ = CStr(n)
       Else
          Oct_ = Oct_(n \ 8) & CStr(n Mod 8)
       End If
End Function

Добавлено через 1 минуту
Спасибо Казанскому!

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Вайрис 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 45

	Вывести числа от 1 до 15 в Децимальной, Хексадецимальной, и Октальной системе счёта 13.03.2016, 17:30. Показов 1404. Ответов 6 Метки нет (Все метки) На самом деле это репост моего оригинального трэда, но окозалось, что я не правильно понял задание. Вообщем, задание: Вывести числа от 1 до 15 в Децимальной, Хексадецимальной, и Октальной системе счёта. В Аксессе в катором я работаю, есть встроение функции: Hex(), Oct(). К сожелению, я немогу их изпользовать, поэтому, я хотел вас попрасить помочь мне решить этo задание. Я немогу найти не одно похожее задание в интернете, да и сам я придумать не могу. Может я могу как-то посмотреть код встроеной функции? Спосибо за помощь и сори за граматику 0

Shersh Заблокирован
	14.03.2016, 07:26
	Pro_grammer, возможно, Вы с Catstailом и правы, но судя по тому, что одна из тем ТС скоропостижно переехала в NET, он просто заблудился в бэйсике. 1

@Вайрис 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 45
	14.03.2016, 08:05 [ТС]
	Дело в том что у меня был запрет на ети функции в рамках задания, но всё ровно, большое спосибо за помощь всем 0

Вывести числа от 1 до 15 в Децимальной, Хексадецимальной, и Октальной системе счёта

Решение

Решение