| Tapo4ka | Дата: Вторник, 22.06.2010, 00:30 | Сообщение # 1 |
 Рядовой
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Применяя шейкерную сортировку, отсортитровать файл, элементами которого является совокупность строковых величин. Сравнить время работы для каждого случая. Результаты отображать на экране. Процедура у меня есть :
Procedure Shak (Var f:files; n:integer);
Var i,k,L,R:integer; x,y:integer;
Begin
seek (f,i);
read (f,x);
read (f,y);
if x.key>y.key then
begin
seek (f,i);
write (f,y);
write (f,x);
k:=i;
end;
End;
L:=0; R:=n-2; k:=1;
Repeat
For i:=L to R do Swap;
R:=k-1;
For i:=R downTo L do Swap;
L:=k+1;
Until L>R;
End;
вот. А как строки сюда приплести ,ума не приложу( если можете чем помочь, то будьте добры пожалста..
|
| |
|
|
| Dock^ | Дата: Вторник, 22.06.2010, 00:54 | Сообщение # 2 |
 Генералиссимус
Группа: Администраторы
Сообщений: 19
Статус: Offline
| если я правильно понял задание,можно создать запись в котором первая переменная будет типа string там будем хранить слово, вторая типа byte туда хранить будем длину,далее создать массив типа этой записи,потом считать из файл в массив по слову и далее сортировать наш массив по значению длины слова а дальше записываем.
|
| |
|
|
