RusFAQ.ru: Программирование на Delphi (comp.soft.prog.delphiplus) : Рассылка : Subscribe.Ru

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.311 RSS

← Июнь 2009 →
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

3.311 подписчиков
0 за неделю

← Все выпуски →

RusFAQ.ru: Программирование на Delphi

Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Victor Pyrlik
Статус: Модератор
Рейтинг: 337
∙ повысить рейтинг >>

Тимошенко Дмитрий
Статус: Студент
Рейтинг: 212
∙ повысить рейтинг >>

Влaдимир
Статус: Студент
Рейтинг: 144
∙ повысить рейтинг >>

∙ / КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1391 от 14.06.2009, 17:35
Администратор рассылки: Калашников О.А., Руководитель
В рассылке: подписчиков - 559, экспертов - 186
В номере: вопросов - 1, ответов - 1

Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке:
оценить выпуск >>

Вопрос № 169164: Создайте свой метод сортировки с помощью процедуры, которая не использует никаких компонент формы, не принадлежит методам формы, и работает только с ячейками памяти, в которых хранится сгенерированный вами массив. Метод сортировки приведен на схеме а...

Вопрос № 169164:

Создайте свой метод сортировки с помощью процедуры, которая не использует никаких компонент формы, не принадлежит методам формы, и работает только с ячейками памяти, в которых хранится сгенерированный вами массив. Метод сортировки приведен на схеме алгоритма (рис. 1).

[img]C:\Users\Danil\Pictures[/img]

procedure _________________(var ________;___________);
var _________________________________________
__________________________________________;
begin

end;
end;

Отправлен: 09.06.2009, 07:56
Вопрос задал: Спиридонов Данил Сергеевич, Посетитель
Всего ответов: 1
Страница вопроса >>

Отвечает Евгений/Genia007/, Студент :
Здравствуйте, Спиридонов Данил Сергеевич.
Вот нужная Вам процедура

Код:

procedure sort(n: integer; out a: array of integer);
var
  i, j, x: integer;
begin
  i:= 0;
  while i <= n - 1 do
    begin
      j:= 0;
      while j <= n - 2 do
        begin

         if a[j] > a[j + 1] then
            begin
              x:= a[j + 1];
              a[j + 1]:= a[j];
              a[j]:= x;
            end;
          j:= j + 1;
        end;
      i:= i + 1;
    end;
end;

Слово out в объявлении переменных процедуры обозначает, что массив а будет содержать результат работы этой процедуры.
А вот код который запускается по нажатию кнопки на форме

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, n: integer;
  a: array of integer;
begin
  Randomize;
  ListBox1.Clear;
  ListBox2.Clear;
  n:= StrToInt(Edit1.Text);
  SetLength(a, n);  //  Установка длины массива
  For i:= 0 to n - 1 do
    begin
      a[i]:= Random(100);  //
 Ввод элементов массива
      Form1.LIstBox1.Items.Add(IntToStr(a[i]));  //  Вывод массива на экран
    end;
  sort(n, a);  //  Вызов процедуры сортировки
  For i:= 0 to n - 1 do
    Form1.ListBox2.Items.Add(IntToStr(a[i]));  //  Вывод отсортированного массива на экран
end;

Исходник прилагается. Прикрепленный файл: загрузить >>

-----
Помогли тебе, помоги и ты.

Ответ отправил: Евгений/Genia007/, Студент
Ответ отправлен: 11.06.2009, 20:31

Как сказать этому эксперту "спасибо"?

Отправить SMS #thank 250852 на номер 1151 (Россия) | Еще номера >>

Отправить WebMoney:

Вам помогли? Пожалуйста, поблагодарите эксперта за это!

подать вопрос экспертам этой рассылки >>

Скажите "спасибо" эксперту, который помог Вам!

Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
на короткий номер 1151 (Россия)
Номер ответа и конкретный текст СМС указан внизу каждого ответа.

Полный список номеров >>

* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.

© 2001-2009, Портал RFpro.ru, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2009.6.1 RC от 10.06.2009

В избранное

RFpro.ru: Программирование на Delphi и Lazarus