Page 89 - 33

рідини у протилежні посудини: першу - у другу посудину, а другу - у першу.
Зрозуміло, що для здійснення цієї операції потрібна третя посудина. Так само

при програмуванні нашої задачі потрібно ввести додатковий ідентифікатор,
який би виконував роль третьої посудини. Щоправда, в деяких версіях

комп’ютерних мов є спеціальна функція обміну. В GWBASIC це оператор
SWAP, який дозволяє обійтись без додаткового ідентифікатора. Цей спосіб

переприсвоювання зручніший, але, оскільки ним не завжди можна

скористатись, далі буде показано обидва. Приступимо до складання програми.

Припустимо, що аналізується змінна Х, під якою може бути будь-який

параметр ( наприклад, проходка на долото ). Тоді програма виглядатиме так:

5 CLS

10 PRINT “ Ранжування елементів масиву за зростанням

15 DIM X ( 30 )

20 INPUT “ Кількість елементів масиву ”, N

25 FOR I = 1 TO N

30 INPUT X ( I )

35 NEXT I

40 FOR J = 1 TO N

45 FOR I = 1 TO ( N – 1 )

50 IF X ( I ) = X ( I + 1 ) THEN

Y = X ( I ) : X ( I ) = X ( I + 1 ) : X ( I + 1 ) = Y

55 NEXT I

60 NEXT J

65 FOR I = 1 TO N

70 PRINT I , X ( I )

75 NEXT I

80 END

У цій програмі рядки 5 - 35 забезпечують формування масиву, рядки

40 - 60 здійснюють ранжування змінних, рядки 65 - 80 виводять на екран

89