сортировка одномерного массива по возростанию с использование рекурсии

Тема в разделе "Pascal and Delphi", создана пользователем -, 5 апр 2010.

Статус темы:
Закрыта.
  1. Гость

    задание : Составить программу сортировки по возрастанию одномерного массива из N элементов. Использовать рекурсию.

    помогите исправить эту программу чтобы в ней была рекурсия..((





    Код (Delphi):
    Program labrab3;
    Uses crt;
    Const N=100;
    Var
    a : array [1.. N] of integer;
    j, k : integer;
    b : char;
    {--------------------------------------------------------------------}
    {процедура ввод данных}
    Procedure input (var k : integer; var a : array of integer);
    Var
    q, j : integer;
    w : string;
    begin
    clrscr;
    writeln ('Данная программа предназначена для сортировки одномерного массива из N элементов по возростанию с использование рекурсии');
    readkey;
    repeat
    repeat
    write (' Введите количество элементов k (k<=N): ');
    readln (w);
    val (w,k,q);
    until (q=0) and (k<=N);
    writeln (' Введите элементы массива ');
    for j:=1 to k do
    begin
    repeat
    write (' Введите a[j]: ');
    readln (w);
    val (w,a[j],q);
    until (q=0);
    end;
    writeln (' Если вы ввели неправильные значения нажмите n.Если правильные то любую другую клавишу');
    b:=readkey;
    until b<>'n';
    end;
    {--------------------------------------------------------------------}
    {процедура обработки данных}
    procedure calc (var a : array of integer; k:integer);
    Var
    i, j, m, min : integer;
    Begin
    for i:=1 to k-1 do
    begin
    min:=i;
    for j:=i+1 to k do
    if a[min]>a[j] then
    min:=j;

    m:=a[i];
    a[i]:=a[min];
    a[min]:=m;
    end;
    end;
    {--------------------------------------------------------------------}
    {процедура вывода данных}
    Procedure output (const a: array of integer;k:integer);
    Var
    i, j: integer;
    begin
    writeln (' Отсортированный по возрастанию массив выглядит так : ');
    for i:=1 to k do
    write (a[i]:4);

    end;
    {Основная программа}
    begin
    Clrscr;
    Writeln ('Данная программа предназначена для сортировки одномерного массива из N элементов по возростанию с использование рекурсии. ');
    Input (k, a);
    calc (a,k);
    output (a,k);
    Readkey;
    end.
     
Загрузка...
Похожие Темы - сортировка одномерного массива
  1. vera2014
    Ответов:
    0
    Просмотров:
    1.076
  2. Liori
    Ответов:
    2
    Просмотров:
    1.008
  3. FCDK
    Ответов:
    0
    Просмотров:
    1.267
  4. ленарано
    Ответов:
    1
    Просмотров:
    1.106
  5. Creder
    Ответов:
    0
    Просмотров:
    1.350
Статус темы:
Закрыта.

Поделиться этой страницей