Сортировка методом прямого включения ( исправление метода сортировки )

@Marksman_SwAt · Регистрация: 22.10.2013

Условие:
Сгенерируйте случайным образом 20 целых чисел и поместите их в типизированный файл. Содержимое исходного файла вывести на экран. Отсортируйте первую половину файла по возрастанию, а вторую по убыванию (использовать сортировку файла прямым включением). Содержимое отсортированного файла вывести на экран. Введите контрольное число и определите его наличие. В положительном случае выведите найденное число и его индекс на экран.

Вот мое решение:

Pascal

Program n_6;
const n=20;
var f:file of integer;
    a,b,x,i,j,k:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
for i:=1 to n do
 begin
  a:=random(50);
  write(f,a);
 end;
reset(f);
writeln('Ishodniy fail:');
while not eof(f) do
 begin
  read(f,a);
  write(a:4);
 end;
writeln;
writeln;
seek(f,0);
for i:=0 to filesize(f)-2 do
 begin
  k:=i;
  for j:=i+1 to filesize(f)-1 do
   begin
    seek(f,k);
    read(f,a);
    seek(f,j);
    read(f,b);
    if b<a then k:=j;
    seek(f,i);
    read(f,x);
    seek(f,k);
    read(f,b);
    seek(f,i);
    write(f,b);
    seek(f,k);
    write(f,x);
   end;
 end;
seek(f,0);
writeln('Otsortirovaniy fail:');
for i:=0 to filesize(f)-1 do
 begin
  seek(f,i);
  read(f,a);
  write(a:4);
 end;
close(f);
writeln;
writeln;
readln
end.

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

@Marksman_SwAt · 25.04.2014, 16:38 **[ТС]**

Помогите, очень нужно.

@Marksman_SwAt 0 / 0 / 0 Регистрация: 22.10.2013 Сообщений: 19
	25.04.2014, 16:38 [ТС]	2
	Помогите, очень нужно. 0

Опции темы