Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Сортировка массива методом "пузырька".
program sort;
uses crt;
const
lens=10; //* Количество элементов массива */
diap=100; //* Диапазон значений */
var
A:array[1..lens] of integer; //* Массив A */
mit:integer; //* Переменная для перестановки */
j,i:integer;
BEGIN
clrscr; //* Очистка экрана */
randomize; //* Инициализация случайного выбора */
for i:=1 to lens do A[i]:=random(diap); //* Заполнение массива */
for i:=1 to lens do write(A[i],''); //* Распечатка массива */
writeln;
for i:=lens-l downto 4 do //* Цикл замены по всему массиву */
begin
j:=i;
while (j<lens) AND (a[j]>a[j+1]) do //* Цикл "всплытия */
begin
if a[j]>a[j+l] then //* Если больше, */
begin mit:=a[j];
a[j]:=a[j+l]; //* то "всплываем" */
a[j+l]:=mit;
end;
j:=j+l;
end;
end;
for i:=l to lens do write(A[i],' ');//* Распечатка нового массива */
readln;
end.
Web программирование Pascal&Delphi Бeйсик
|
|
|