Задать вопрос
12 октября, 06:06

Visual Basic

Написать процедуру для нахождения отрицательных и положительных чисел из строки, состоящий из произвольного набора цифр и букв.

*перевести полученное число в его двоичный код

*найти максимальное из чисел

+1
Ответы (1)
  1. 12 октября, 09:48
    0
    Язык VBA:

    Function Bin (s As String, z As Integer) As String

    Dim c As Integer

    Dim oct As Integer

    c = Val (s)

    Do

    oc = c Mod 2

    c = c / 2

    Bin = Bin & Str (oc)

    Loop Until c = 0

    Bin = StrReverse (Bin)

    If z = - 1 Then Bin = "-" & Bin

    End Function

    Sub z ()

    Dim s As String, s1 As String

    Dim n As Integer, i As Integer, z As Integer

    Dim max

    s = InputBox ("Введите строку: ")

    max = Null

    i = 1

    Do While i < = Len (s)

    Select Case Mid (s, i, 1)

    Case 0 To 9

    If z = 0 And i > 1 Then

    z = IIf (Mid (s, i - 1, 1) = "-", - 1, 1)

    Else: z = 1

    End If

    s1 = s1 + Mid (s, i, 1)

    If i = Len (s) Then GoSub 1

    Case Else:

    If s1 "" Then GoSub 1

    End Select

    i = i + 1

    Loop

    MsgBox ("max=" & max)

    End

    1: n = z * Val (s1)

    MsgBox (n & "; двоичная форма: " & Bin (s1, z))

    If IsNull (max) Then max = n

    If max < n Then max = n

    z = 0

    s1 = ""

    Return

    End Sub
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Visual Basic Написать процедуру для нахождения отрицательных и положительных чисел из строки, состоящий из произвольного набора цифр и ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Вопрос 1 Что представляет собой Visual Basic? система программирования среда проектирования объединяет в себе систему программирования и среду проектирования Вопрос 2 Каким образом можно изменить значения свойств объекта?
Ответы (1)
Дана матрица А. Написать программу определения количества положительных и отрицательных элементов матрицы. Язык Visual Basic.
Ответы (1)
Вождь племени Мульти поручил своему министру разработать двоичный код и перевести в него важную информацию. Какой разрядности потребуется двоичный код, если алфавит. используемый племенем Мульти, содержит 64 символа! решение с Дано
Ответы (1)
1. Вождь племени Мульти поручил своему министру разработать двоичный код и перевести в него всю важную информацию. Какой разрядности потребуется двоичный код, если алфавит, используемый племенем Мульти, содержит 64 символа? Ребят, кто знает помогите
Ответы (1)
Ребята придумали свой алфавит, который содержит 16 символов, всю информацию, записанную с помощью этого алфавита, они решили перевести в двоичный код. Какой разрядности двоичный код им потребуется.
Ответы (1)