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

м
Нет описания правки
м
}
</source>
 
==[[:w:TurboBasic 1.1|TurboBasic 1.1]]==
<big><source lang="qbasic">
PRINT FRE(-1)
�</source><big>
 
== [[w:PL/SQL|PL/SQL]] ==
<source lang="plsql">
type sort_list is table of integer index by binary_integer;
-----------------------------------------------------------
function SORT_CHOISE return sort_list
IS
list sort_list;
l_min pls_integer;
l_dummy pls_integer;
begin
for n in 1..100 loop
list(n):=dbms_random.random; -- инициализация массива случайными числами
end loop;
for i in list.first..list.last loop
l_min:=i;
for j in (i + 1)..list.last loop
if (list(j) < list(l_min)) then
l_min := j;
end if;
end loop;
l_dummy:=list(i);
list(i):=list(l_min);
list(l_min) := l_dummy;
end loop;
return list;
end SORT_CHOISE;
</source>
 
{{BookCat | filing = deep}}
12

правок