Сортировка в текстовом файле Опции

[Jekaterina]

Добрый вечер! Не могу справиться с такой задачей: дан текстовой файл, содержащий названия городов
1) если он пуст, в файле вывода вывести слово nothing (с этим я справилась),
2) если названия городов начинаются на одну и ту же букву, то выводим города в файл в обратном порядке,
3) если города начинаются на разные буквы, то сортируем только по первой букве.
Помогите чайнику, пожалуйста!

[TS*]

Добрый вечер! Не могу справиться с такой задачей: дан текстовой файл, содержащий названия городов
1) если он пуст, в файле вывода вывести слово nothing (с этим я справилась),
2) если названия городов начинаются на одну и ту же букву, то выводим города в файл в обратном порядке,
3) если города начинаются на разные буквы, то сортируем только по первой букве.
Помогите чайнику, пожалуйста!

Создаеш масив строк, проверяеш одинаковость первых букв строк, если да то выводиш в файл масив строк наоборот, если нет, сортируеш в процедуре по первой букве:

const
   n=100;
var 
   .....
   str: array[1..n] of string;
   F, F1: text;
   i, m: word;

function check(strs:array of string; nn: word): boolean; {проверка одинаковы ли все первые буквы}
   tr: boolean; k: word;
begin
   tr:=true;
   for k:=1 to nn-1 do
      if(strs[k][1]<strs[k-1][1]) then tr:=false;
   if tr then check:=true 
      else
   check:=false;          
end;

procedure sort_first(var strf: array of string; mm: word) {сортировка по первой букве}
   fl: boolean; temp: string; j: word;  
begin
   repeat
      fl:=true;    
      for j:=0 to mm-2 do 
         if(s[j][1]>s[j+1][1]) then begin
            temp:=s[j]; s[j]:=s[j+1]; s[j+1]:=temp;
         end;    
   until not fl;
end;

begin
   .....
   i:=1;
   while not(EoF(F)) do begin
      readln(F, str[i]);
      inc(i);
   end;
   m:=i;
   if check(str, i) then begin
      for i:=m downto 1 do
         writeln(F1, str[i]);
   end
      else
   sort_first(str, m);   
   .....
end.

Сообщение отредактировано: TS* - 27.12.2006 12:59