Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Сортировка массива методом "пузырька"
30 lens = 10: REM Количество элементов массива
40 diap = 100: REM Диапазон значений
60 DIM a(lens): REM Массив А
70 mit = 0: REM Переменная для перестановки
80 i = 0
90 j = 0
110 CLS : REM Очистка экрана
120 RANDOMIZE (time): REM Инициализация случайного выбора
130 FORi= 1 ТО lens
140 a(i) = INT(RND * diap): REM Заполнение массива
150 NEXT i
160 FOR i= 1 TO lens
170 PRINT a(i);"";: REM Распечатка массива
180 NEXT i
190 PRINT
200 FOR i = lens - 1 TO 1 STEP -1
210 REM Цикл замены
220 j = i
230 IF j >= lens OR a(j) <= a(j + 1) THEN GOTO 300
240 REM Цикл "всплытия"
250 IF a(j) <= a(j + 1) THEN GOTO 300
260 IF a(j) > a(j + 1) THEN mit = a(j): a(j) = a(j + 1): a(j + 1) = mit
270 j=j+ 1
280 IF j < lens THEN GOTO 250
290 NEXT i
300 FOR i = 1 TO lens
310 PRINT a(i); “ “: REM Распечатка нового массива
320 NEXT i
330 END
Web программирование Pascal&Delphi Бeйсик
|
|
|