Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.12.2007, 23:11   #1
RECREATOR
Пользователь
 
Регистрация: 29.11.2007
Сообщений: 26
По умолчанию Задачка на одномерный массив

Помогите пожалуйста с задачкой Сам честно говоря даже условия не понял

Const N=100
var x: ARRAY [1..N] OF REAL

Упорядочить массив Х по неубыванию (т.е переставить его элементы так, чтобы для всех К выполнялось х(к)<=х(к+1) используя следующий алгоритм сортировки(упорядочивания): сортировка выбором: отыскивается максимальный элемент и переносится в конец массива; затем этот метод применяется ко всем элементам массива кроме последнего(он уже находитсяна своем окончательном месте)
RECREATOR вне форума Ответить с цитированием
Старый 18.12.2007, 08:01   #2
kommunist
C# developer
Форумчанин
 
Аватар для kommunist
 
Регистрация: 03.10.2007
Сообщений: 393
По умолчанию

процедура для сортировки массива
Код:
procedure SelectionSort(var arr : array of Real; const N : Integer);
var
    I   :   Integer;
    J   :   Integer;
    K   :   Integer;
    M   :   Real;
begin
    for i:=1 to N do
    begin
        m:=Arr[i-1];
        k:=i;
        for j:=i to n do
        begin
            if m>Arr[j-1] then
            begin
                m:=Arr[j-1];
                k:=j;
            end;
        end;
        Arr[k-1]:=Arr[i-1];
        Arr[i-1]:=m;
    end;
end;
I like WPF
kommunist вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
одномерный массив ldx Паскаль, Turbo Pascal, PascalABC.NET 4 06.06.2008 17:45
VBA. Одномерный массив ExMatiss Microsoft Office Excel 9 07.05.2008 05:57
одномерный массив fatdog Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 23.02.2008 10:05
Массив Одномерный flait111 Помощь студентам 3 15.12.2007 14:08
Одномерный массив SkyDreamer Помощь студентам 1 01.12.2007 21:22