Реализации алгоритмов/Сортировка/Пузырьком: различия между версиями

→‎TurboBasic 1.1: обновление данных
(→‎TurboBasic 1.1: викификация)
(→‎TurboBasic 1.1: обновление данных)
</source></big>
== [[:w:Turbo Basic|TurboBasic 1.1]]==
<big><source lang="qbasic">
CLS
RANDOMIZE TIMER
 
'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
PRINT "ELAPSED TIME=";T1
</source></big>
 
 
Анонимный участник