Описать процедуру 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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