Выпуск № 1391 от 14.06.2009, 17:35
Администратор рассылки: Калашников О.А., Руководитель
В рассылке: подписчиков - 559, экспертов - 186
В номере: вопросов - 1, ответов - 1
Нам очень важно Ваше мнение об этом выпуске рассылки. Вы можете оценить этот выпуск по пятибалльной шкале, пройдя по ссылке: оценить выпуск >>
Вопрос № 169164: Создайте свой метод сортировки с помощью процедуры, которая не использует никаких компонент формы, не принадлежит методам формы, и работает только с ячейками памяти, в которых хранится сгенерированный вами массив. Метод сортировки приведен на схеме а...
Вопрос № 169164:
Создайте свой метод сортировки с помощью процедуры, которая не использует никаких компонент формы, не принадлежит методам формы, и работает только с ячейками памяти, в которых хранится сгенерированный вами массив. Метод сортировки приведен на схеме алгоритма (рис. 1).
[img]C:\Users\Danil\Pictures[/img]
procedure _________________(var ________;___________); var _________________________________________ __________________________________________; begin
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;
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.