const mc as integer=10
dim m(10) as integer
'Массив
public sub sort
dim i as integer
dim b as boolean
dim с as integer
do
for i=1 to mc
b=false
if m(i)<m(i-1) then
c=m(i)
m(i)=m(i-1)
m(i-1)=с
b=true
end if
next
loop while b=true
end sub
Ну если иметь в виду работоспособность, то вроде все так, но если скорость, то не учитывая супер-пупер методы, а именно твой пузырек, то не все. У тебя ж каждый цикл просматривается заново весь массив, а нужно каждый раз на один элемент меньше.Debugger писал(а):вроде всё так...
Сейчас этот форум просматривают: Yandex-бот и гости: 62