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

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

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

Решение задачи: «Программа для перевода из одной системы счисления в другую»

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

Похожие ответы