Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение В-в А - VB
Формулировка задачи:
Описать функцию ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение B
— в A (A, B, C — вещественные параметры, являющиеся одновременно
входными и выходными). С помощью этой процедуры выполнить левый
циклический сдвиг для двух данных наборов из трех чисел: (A1, B1, C1) и
(A2, B2, C2).
Решение задачи: «Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение В-в А»
textual
Листинг программы
- Option Explicit
- Private Sub Command1_Click()
- Dim A1 As Double, B1 As Double, C1 As Double
- Dim A2 As Double, B2 As Double, C2 As Double
- A1 = 0.111: B1 = 0.222: C1 = 0.333
- A2 = 1212.12: B2 = 3434.34: C2 = 5656.56
- MsgBox "До: " & " A1 = " & A1 & " B1 = " & B1 & " C1 = " & C1
- Call ShiftLeft3(A1, B1, C1)
- MsgBox "После: " & " A1 = " & A1 & " B1 = " & B1 & " C1 = " & C1
- MsgBox "До: " & " A2 = " & A2 & " B2 = " & B2 & " C2 = " & C2
- Call ShiftLeft3(A2, B2, C2)
- MsgBox "После: " & " A2 = " & A2 & " B2 = " & B2 & " C2 = " & C2
- End Sub
- Private Sub ShiftLeft3(ByRef A As Double, ByRef B As Double, ByRef C As Double)
- Dim Tmp As Double
- Tmp = B: B = C: C = A: A = Tmp
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д