в делфи

[vit1990]

ПРОГРАММИРОВАНИЕ ФАЙЛОВОГО ВВОДА/ВЫВОДА
1. Считать исходный массив (прил. 2) из указанного файла.
2. Из исходного массива сформировать рабочий массив. Правила формирования рабочего массива из исходного приведены в вашем варианте.
3. Отсортировать рабочий массив методом прямого выбора. Для четных вариантов организовать сортировку по возрастанию, а для нечетных – по убыванию.
4. Отсортировать рабочий массив методом прямого обмена. Для четных вариантов организовать сортировку по убыванию, а для нечетных – по возрастанию.
5. Сохранить рабочий и отсортированный массив в файле.


Вариант
1 Выбрать элементы, начиная с индексов i = max, j = min для схемы:
i - min, j - max с шагом 2,
где i – номер строки исходного массива, j – номер столбца исходного массива

ПРИЛОЖЕНИЕ 2
Исходное множество чисел
51 39 53 79 86 17 37 39 35 49 98 33
46 56 41 96 3 99 39 44 86 74 97 22
35 0 14 78 19 88 39 82 86 63 33 69
44 91 59 52 94 99 81 40 14 21 41 74
65 97 31 41 73 2 0 44 2 91 52 32
33 80 22 28 95 5 40 90 25 27 19 13
63 73 36 48 88 34 78 87 61 53 70 65
32 86 29 49 32 10 93 32 43 12 12 52
25 87 28 99 51 23 51 78 63 57 24 47
57 26 36 44 69 51 12 78 7 22 8 36
51 76 71 45 31 86 56 80 37 5 3 10
35 25 16 36 76 55 6 34 48 21 75 35
помогите

[Grag]

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

для этого и сделаны форумы...

Раздел называется "Помощь студентам", а не выполнение заданий ЗА СТУДЕНТОВ! Тебе во фриланс и за денежку... Хватит халяву на разных форумах клянчить!!! Или выкладывай СВОИ наработки по заданию...

[vit1990]

сча выложи наработки но это по мойму бред

public
  Procedure PrintArray;
    Procedure Data_Load;
    Procedure Data_Save;
  end;
var
MainForm: TMainForm;
OriginArray: Array [1..12, 1..12] of integer;
WorkArray: Array [1..6] of integer;
Data, Res: TextFile;



implementation

{$R *.dfm}

procedure Tmainform.Button5Click(Sender: TObject);
var
  i, j: integer;
begin
  j:=1;
  ListBox1.Items.Add('Массив для сортировки:  ');
  for i:=1 to 6 do
  begin
    WorkArray[i]:=OriginArray[10, j];
    j:=j+2;
  end;
  PrintArray;

end;

procedure Tmainform.Button4Click(Sender: TObject);
var
  i, j, min, temp: integer;
begin
  for i:=1 to 6 do
  begin
    min:=i;
    for j:=i+1 to 6 do
    begin
      if WorkArray[min]>WorkArray[j] then min:=j;
    end;
    temp:=WorkArray[i];
    WorkArray[i]:=WorkArray[min];
    WorkArray[min]:=temp;
  end;
  ListBox1.Items.Add('Отсортированный массив (метод прямого выбора):');
  PrintArray;
end;



procedure Tmainform.Button3Click(Sender: TObject);
var
  i, j, temp: integer;
begin
  for i:=1 to 5 do
    for j:=1 to 5 do
    begin
      if WorkArray[j]>WorkArray[j+1] then
      begin
        temp:=WorkArray[j];
        WorkArray[j]:=WorkArray[j+1];
        WorkArray[j+1]:=temp;
      end;
    end;
  ListBox1.Items.Add('Отсортированный массив (метод прямого обмена):');
  PrintArray;
end;

procedure Tmainform.Button1Click(Sender: TObject);
var
  i, j: integer;
  s: String;
begin
  s:='';
  for i:=1 to 6 do
      s:=s + IntToStr(WorkArray[i]) + '  ';
  ListBox1.Items.Add(s);
  ListBox1.Items.Add('');

end;

procedure TMainForm.PrintArray;
var
i, j: integer;
  s: String;
begin
  s:='';
  for i:=1 to 6 do
      s:=s + IntToStr(WorkArray[i]) + '  ';
  ListBox1.Items.Add(s);
  ListBox1.Items.Add('');
end;

procedure TMainForm.BtLoadClick(Sender: TObject);
begin
  AssignFile(Data, 'Data.txt');
  Data_Load;
end;

procedure TMainForm.BtSaveClick(Sender: TObject);
begin
  AssignFile(Res, 'Result.txt');
  Data_Save;
end;


procedure Tmainform.Button6Click(Sender: TObject);
begin
ListBox1.Clear;
end;

procedure Tmainform.SpeedButton2Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    begin
      AssignFile(Res, SaveDialog1.FileName);
      Data_Save;
    end;


procedure Tmainform.SaveDialog1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    begin
  AssignFile(Res, SaveDialog1.FileName);
Data_Save;
      end;
end;

end.

[0479]

В чём собственно у вас проблема. Там в яндексе ну просто море материала.Всё что нужно сцепить вместе.

Метод прямого выбора пожалуйста
http://delphiworld.narod.ru/base/array_sort_choose.html
методом обмена на здоровье
http://progclub.ru/?param=book&name=...5&file=index14
Ну и работа с файлами здесь тоже клондайк материала. Ну а спецам на фрилансном разделе приятно работать.
Задачка не сказал бы что сложная.Но очень канительная. Да и не особ интересная.
Потом если посмотрите по форумам то найдёте сходства тем.Здесь прям как на подбор.Всем нужно побыстрее и всё.

[Stilet]

vit1990

На всякий случай хочу сказать автору что такие проекты никто пересобирать не захочет - мороки много, потому на будущее: прикрепляй сюда архив со всем своим проектом. Мало ли какие у тебя там в программе зависимости
И указывай список ошибок и строки на которых они вылезают