Описать процедуру 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
Листинг программы
  1. Option Explicit
  2.  
  3. Private Sub Command1_Click()
  4.  
  5.     Dim A1 As Double, B1 As Double, C1 As Double
  6.     Dim A2 As Double, B2 As Double, C2 As Double
  7.    
  8.     A1 = 0.111: B1 = 0.222: C1 = 0.333
  9.     A2 = 1212.12: B2 = 3434.34: C2 = 5656.56
  10.    
  11.     MsgBox "До: " & "  A1 = " & A1 & "  B1 = " & B1 & "   C1 = " & C1
  12.     Call ShiftLeft3(A1, B1, C1)
  13.     MsgBox "После: " & "  A1 = " & A1 & "  B1 = " & B1 & "   C1 = " & C1
  14.    
  15.     MsgBox "До: " & "  A2 = " & A2 & "  B2 = " & B2 & "   C2 = " & C2
  16.     Call ShiftLeft3(A2, B2, C2)
  17.     MsgBox "После: " & "  A2 = " & A2 & "  B2 = " & B2 & "   C2 = " & C2
  18.  
  19. End Sub
  20.  
  21. Private Sub ShiftLeft3(ByRef A As Double, ByRef B As Double, ByRef C As Double)
  22.     Dim Tmp As Double
  23.     Tmp = B: B = C: C = A: A = Tmp
  24. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.222 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы