Арифметические действия над числами. Выбор номера действия. Перевод с Pascal - VB
Формулировка задачи:
Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия и два числа A и B (В не равно нулю). Выполнить над числами указанное действие и вывести результат.
Решение в PascalABC
Решение задачи: «Арифметические действия над числами. Выбор номера действия. Перевод с Pascal»
textual
Листинг программы
Sub Action() Dim n as integer Dim a as double Dim b as double Dim c as double a=Val(Inputbox("Введите a")) b=Val(Inputbox("Введите b")) n=Val(Inputbox("Введите n")) Select case(n) case 1 c=a+b case 2 c=a-b case 3 c=a*b case 4 c=a/b case else Msgbox "Код операции неверен!" Exit Sub End Select Msgbox "C=" & cstr(c) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д