простейшие методы сортировки данных в массиве

[DreamerEvermore]

Задание:
Разработать программу для обработки массива, обеспечив выполнение следующих операций:
1 Ввод значений массива с клавиатуры и запись в файл
2 Генерация значений массива с помощью датчика случайных чисел
3 Чтение данных из файла в массив
4 Вывод содержимого массива на экран
5 Сортировка массива методом выбора
6 Сортировка методом вставки
7Сортировка методом обмена (“пузырьковая”)
8Завершение работы программы.

оформить в виде процедур

[DiemonStar]

Ну и что конкретно вызывает проблемы? или вы хотите получить готовое решение?

[Prizrak86]

ну прям как заказ, не исходника, ничего...

[denisbrain]

Сообщение от DreamerEvermore

Задание:
Разработать программу для обработки массива, обеспечив выполнение следующих операций:
1 Ввод значений массива с клавиатуры и запись в файл
2 Генерация значений массива с помощью датчика случайных чисел
3 Чтение данных из файла в массив
4 Вывод содержимого массива на экран
5 Сортировка массива методом выбора
6 Сортировка методом вставки
7Сортировка методом обмена (“пузырьковая”)
8Завершение работы программы.

оформить в виде процедур

может чем поможет

procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
     a: array of integer;
     L:integer;
     s2,s:string;
     b,k,min:integer;
begin
  l:=0;
  s:=form1.edit1.text;
  // ========================================================================
  // занести массив из поля Edit1.text
  for X:=1 to length(s) do
    if (s[x]=',') or (length(s)=x) then begin
    if length(s)=x then if s[x]<>',' then s2:=s2+s[x];
    l:=l+1;
    setlength(a,l);
    trystrtoint(s2,a[l-1]);
    s2:='';
    end
    else s2:=s2+s[x];
  // занести массив из поля Edit1.text и через запятую
  // ========================================================================
  // -----  сортировка    -----  //
  // ========================================================================
  for x:=0 to l-1 do begin
     min:=a[x];
     for k:=x to l-1 do
        if a[k]<min then begin
           b:=a[x];
           a[x]:=a[k];
           a[k]:=b;
           min:=a[x];
        end;
  end;
  // -----  сортировка    -----  //

  // вывод массива через запятую
  s2:='';
  for x:=0 to l-1 do
  if s2='' then  s2:=s2+inttostr(a[x])  else s2:=s2+','+inttostr(a[x]);
  edit2.text:=s2;
  Showmessage('Массив отсортирован!');
end;

исходник примера для сортировки массива Delphi/Pascal
http:///netsoftware.ucoz.ru/sortirovka.zip