Сортировка массива методом простой выбор?

@Alexander117 · Регистрация: 17.04.2010

Author24 — интернет-сервис помощи студентам

Сортировка массива методом простой выбор.
Составить программу демонстрирующую на экран код сортировки.

@Джексон · 31.05.2010, 18:20

Pascal

type aint=array[1..100] of integer;
procedure swap(var a,b:integer);
 var t:integer;
begin
 t:=a; a:=b; b:=t;
end;
procedure selectSort(var a:aint; n:word);
 var imax:word;
     i,k:word;
begin
 for k:=n downto 2 do
  begin
   imax:=1;
   for  i:=2 to k do
    if a[i]>a[imax] then iMax:=i;
   if iMax<>k then
     swap(a[k],a[imax]);
  end;
end;
var f:text; m:aint;b,i:word;
begin
 assign(f,'input9.pas');
 reset(f);
 b:=0;
  while (not eof(F)) do
   begin
    read(f,m[b]);
    inc(b);
   end;
 close(f);
 assign(f,'output9.pas');
 rewrite(f);
  selectsort(m,b);
 for i:=1 to b-1 do
  begin
   write(f,m[i],' ');
  end;
 close(f);
end.

Добавлено через 2 минуты
только я вывожу в файл.
Если чет не понятно, спрашивай)))

@Alexander117 · 31.05.2010, 20:28 **[ТС]**

спасибо только вот ошибку выдает

Pascal

 begin
 assign(f,'input9.pas');
 reset(f);пишет файл ненайден!
 b:=0;
  while (not eof(F)) do
   begin

@msfast · 31.05.2010, 20:31

Полностью путь пропиши, тогда проблем не должно быть.

@Alexander117 · 31.05.2010, 21:47 **[ТС]**

Спасибо!

@Alexander117 0 / 0 / 0 Регистрация: 17.04.2010 Сообщений: 7
		1
	Сортировка массива методом простой выбор? 31.05.2010, 17:54. Показов 1763. Ответов 4 Метки нет (Все метки) Сортировка массива методом простой выбор. Составить программу демонстрирующую на экран код сортировки. 0

@msfast 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 5
	31.05.2010, 20:31	4
	Полностью путь пропиши, тогда проблем не должно быть. 0

@Alexander117 0 / 0 / 0 Регистрация: 17.04.2010 Сообщений: 7
	31.05.2010, 21:47 [ТС]	5
	Спасибо! 0