Помощь - Поиск - Пользователи - Календарь
Полная версия: как отсортировать список в афавитном порядке
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
jakut
имеестя файл содержащий список студентов и его надо отсортировать.
исходник:
Код
program dfs;
Const
 Max=100;
Var
 Names:Array[1..Max] Of String;
 n,i,j,k:Integer;
 in_file:Text;
 min:String;
Begin
 Assign(in_file,'C:\spicok.txt');
 Reset (in_file);
 n:=0;
 While Not Eof(in_file) Do
  Begin
   ReadLn(in_file,Names[n]);
   Inc(n)
  End;
 Close(in_file);
 For i:=1 To n-1 Do
  Begin
   k:=i;
   min:=Names[i];
   For j:=i+1 To n-2 Do
    If min>Names[j] Then
     Begin
      k:=j;
      min:=Names[j]
     End;
      If (k<>i) Then
       Begin
        Names[k]:=Names[i];
        Names[i]:=min
       End
   End;
   For i:=1 To n-1 Do
   WriteLn(Names[i])
End.
BlackShadow
Я что-то недопонял, или он тут и так сортируется?
jakut
все исправил там ошибочка была не большая!! сразу не до понял!!!
BlackShadow
Ну и чудненькоsmile.gif
Кстати, подчерк в этой проге на мой похожsmile.gif Если вырезать строчку "program..." и файловую переменнуя назвать не in_file, а просто f, то я бы бал уверен на 99.99%
BlackShadow
Точно моё smile.gif Я даже нашёл откуда smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.