Реализации алгоритмов/Сортировка/Пузырьком: различия между версиями
Содержимое удалено Содержимое добавлено
→TurboBasic 1.1: викификация |
→TurboBasic 1.1: обновление данных |
||
Строка 343:
</source></big>
== [[:w:Turbo Basic|TurboBasic 1.1]]==
<big><source lang="qbasic">
CLS
RANDOMIZE TIMER
Строка 376:
'ALGORITM "SORTIROVKA PROSTYM OBMENOM" O(N^2)
F=0▼
MTIMER
FOR J=1 TO N-1 STEP 1
▲ F=0
FOR I=1 TO N-J STEP 1
'IF Y[I] > Y[I+1] THEN D=Y[I]:Y[I]=Y[I+1]:Y[I+1]=D:F=1
Строка 403:
PRINT "ELAPSED TIME=";T1
�
</source></big>
| |||