Программа для перевода из одной системы счисления в другую - VB (58453)

Формулировка задачи:

Напишите программу перевода чисел (длиной 8 бит) из одной системы счисления в другую. По программе составьте блок-схему. Перевод из системы по основанию 2 в систему по основанию 10; нужно сделать exe файл

Код к задаче: «Программа для перевода из одной системы счисления в другую - VB (58453)»

textual
Function dec2n(A As Integer, n as integer) As String
    If (n<=1) Or (n > 9) then
       dec2n="Error!"
    else
       Do While (A > 0)
           dec2n = CStr(A Mod n) & dec2n
           A = A \ n
       Loop
    end if
End Function

13   голосов, оценка 4.077 из 5


СОХРАНИТЬ ССЫЛКУ