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

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

1.Перераспределить значения переменных X и Y так, чтобы в X оказалось меньшее из этих значений, а в Y — большее.

Вот решение в PascalABChttp://www.cyberforum.ru/pascal/thread155071.html

null

                    Листинг программы
                
write(x:0:2,' ',y:0:2);
readln
end

Решение задачи: «Перераспределить значения переменных 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

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

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

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

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

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