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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 21.03.2011, 20:54   #1
amidatong
Пользователь
 
Регистрация: 07.04.2009
Сообщений: 21
По умолчанию Процедура сортировки массива по возрастанию

Данна задача:
Создайте массив случайных чисел. Описать процедуру вычисления, является ли заданный массив упорядоченным по возрастанию и вывода ответа на экран.
Делал с помощью метода "Пузырька"
Код:
Program z1;
Var
Rez:real;

procedure BubbleSort(var Arr : array [0..10] of Real; const N : Integer);
var
    I   :   Integer;
    J   :   Integer;
    Tmp :   Real;
begin
    for i:=Pred(N) downto 1 do
        for j:=0 to Pred(i) do
            if Arr[j]>=Arr[j+1] then
            begin
                Tmp:=Arr[j];
                Arr[j]:=Arr[j+1];
                Arr[j+1]:=Tmp;
               Rez:=Tmp;
            end;
end;
Begin
writeln(Rez);
end.
Правельно ли я сделал? Если да то не могу вывести ответ.
Как не пытался присваивать... Как не перебирал, все равно не работает...
Помогите пожалуйста!
amidatong вне форума Ответить с цитированием
Старый 21.03.2011, 21:00   #2
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

сразу бросается в глаза, что процедура описана, но не вызывается

и судя по заданию вам надо не отсортировать массив, а определить является ли он упорядоченным по возрастанию

Последний раз редактировалось unbanned; 21.03.2011 в 21:03.
unbanned вне форума Ответить с цитированием
Старый 21.03.2011, 21:04   #3
amidatong
Пользователь
 
Регистрация: 07.04.2009
Сообщений: 21
По умолчанию

Цитата:
Сообщение от unbanned Посмотреть сообщение
сразу бросается в глаза, что процедура описана, но не вызывается
не сможешь помочь?
amidatong вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В массиве а (10) первую половину массива отсортировать по убыванию, вторую по возрастанию leon1405 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 19.12.2010 18:36
Процедура сортировки с подсчётом перестановок и сравнений (Паскаль) Паскалька^^ Помощь студентам 0 17.10.2010 23:35
Паскаль. процедура сортировки числового массива методом выбора Оксаночка:) Помощь студентам 2 24.08.2009 11:41
Сортировка одномерного массива введенного с клавиатуры по возрастанию sande Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 9 18.01.2009 20:31
Вывод массива улиткой по возрастанию 7 на 8 Злая белка Паскаль, Turbo Pascal, PascalABC.NET 7 13.01.2009 22:18