Автор: jakut 21.05.2004 12:18
имеестя файл содержащий список студентов и его надо отсортировать.
исходник:
Код
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 21.05.2004 13:27
Я что-то недопонял, или он тут и так сортируется?
Автор: jakut 21.05.2004 13:33
все исправил там ошибочка была не большая!! сразу не до понял!!!
Автор: BlackShadow 21.05.2004 15:04
Ну и чудненько
Кстати, подчерк в этой проге на мой похож Если вырезать строчку "program..." и файловую переменнуя назвать не in_file, а просто f, то я бы бал уверен на 99.99%
Автор: BlackShadow 21.05.2004 15:38
Точно моё Я даже нашёл http://pascal.net.ru/forum/index.php?showtopic=2126