Перераспределить значения переменных X и Y (перевести с Pascal) - VB

Узнай цену своей работы

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

1.Перераспределить значения переменных X и Y так, чтобы в X оказалось меньшее из этих значений, а в Y — большее.
Вот решение в PascalABChttp://www.cyberforum.ru/pascal/thread155071.html
null

Решение задачи: «Перераспределить значения переменных X и Y (перевести с Pascal)»

textual
Листинг программы 
Sub SwapXY(x as double, y as double)
Dim tmp as double
      If (x > y) then
         tmp=x
         x=y
         y=tmp
      Ens if      
End Sub

ИИ для рефератов и докладов

  • Экспорт Word по ГОСТу
  • Минимум 80% уникальности текста
  • Поиск релевантных источников в интернете
  • Готовый документ за 2 минуты

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

15   голосов , оценка 4 из 5
Похожие ответы