Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг - VB

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

Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг: значение A переходит в C, значение C — в B, значение B— в A (A, B, C — вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры выполнить левый циклический сдвиг для двух данных наборов из трех чисел: (A1, B1, C1) и (A2, B2, C2).

Решение задачи: «Описать процедуру ShiftLeft3(A, B, C), выполняющую левый циклический сдвиг»

textual
                            Листинг программы 
                        

                            Sub ShiftLeft3(A, B, C)
Dim d
d = A: A = B: B = C: C = d
End Sub
 
Sub test_ShiftLeft3()
Dim x, y, z
x = 2: y = 5: z = 7
Debug.Print "до сдвига:", x; y; z
ShiftLeft3 x, y, z
Debug.Print "после сдвига:", x; y; z
Debug.Print
x = 1.2: y = 1.5: z = 1.7
Debug.Print "до сдвига:", x; y; z
ShiftLeft3 x, y, z
Debug.Print "после сдвига:", x; y; z
End Sub
                        

Оцени полезность:

15 голосов , оценка 4.2 из 5

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