Описать процедуру SortInc3(A,B,C), меняющую содержимое переменных A,B,C - VB
Формулировка задачи:
вроде все просто, но как-то никак(
Описать процедуру SortInc3(A,B,C), меняющую содержимое переменных A,B,C таким образом, чтобы их значения оказались упорядоченными по возрастанию(A,B,C - вещественные параметры, являющиеся одновременно входными и выходными). С помощью этой процедуры упорядочить по возрастанию 2 данных набора из 3 чисел: (A1,B1,C1) и (A2,B2,C2).
Решение задачи: «Описать процедуру SortInc3(A,B,C), меняющую содержимое переменных A,B,C»
textual
Листинг программы
Sub SortInc3(A#, B#, C#)
SA A, B
SA B, C
SA A, B
End Sub
Sub SA(A#, B#) 'SwapAscending
Dim X#
If A > B Then X = A: A = B: B = X
End Sub
Sub Example()
Dim A1#, B1#, C1#, A2#, B2#, C2#
A1 = InputBox("A1=")
'и т.д.
SA A1, B1, C1
Print A1, B1, C1
'и т.д.
End Sub