Дана строка, изображающая арифметическое выражение. Вывести значение - VB
Формулировка задачи:
Помогите, пожалуйста решить.
Дана строка, изображающая арифметическое выражение вида «<циф-
ра>±<цифра>±…±<цифра>», где на месте знака операции «±» находится
символ «+» или «–» (например, «4+7–2–8»). Вывести значение данного
выражения (целое число).
Решение задачи: «Дана строка, изображающая арифметическое выражение. Вывести значение»
textual
Листинг программы
- Function z(c$)
- Dim b$, a$, i%, S%
- b = Mid(c, 1, 1)
- If b <> "+" And Val(b) > 0 Then c = "+" & c
- a = "": S = 0: b = ""
- For i = Len(c) To 1 Step -1
- b = Mid(c, i, 1)
- If InStr(1, "+-", b) = 0 Then
- a = b & a
- Else
- If b = "+" Then
- S = S + Val(a)
- Else
- S = S - Val(a)
- End If
- a = ""
- End If
- Next i
- z = S
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
