Помогите написать программу на PASCAL

[shadow288]

Помогите написать программу на PASCAL

Программа считывает из текстового файла слова, записанные в столбик. Сортирует слова по алфавиту (любым методом сортировки). Результат записывает в текстовый файл sorted.txt в виде столбика.

 

[Vladimir_S]

По первой букве достаточно или до концов слов сортировать?

 

[shadow288]

по первой букве будет достаточно

 

[Vladimir_S]

по первой букве будет достаточно

Тогда это просто. Сделаю сегодня, но не прямо сейчас.

 

[Vladimir_S]

Пожалуйста, как обещал.
Программа работает при следующих условиях:
1. Все слова должны быть в одной локализации, т.е. либо в кириллице, либо в латинице.
2. Первые буквы слов должны быть в одном регистре, т.е. либо прописными, либо строчными.
Имя исходного файла, пути к файлам, а также максимальное значение количества слов можете, естественно, поставить свои.

CONST
 Max_number_of_words=500;
VAR
 S:Array[1..Max_number_of_words] of String;
 Dummy:String;
 N,i,j:Word;
 f:Text;
BEGIN
 Assign(f,'D:\unsorted.txt');
 Reset(f);
 N:=1;
 Repeat
  Readln(f,S[N]);
  If Not(EoF(f)) then Inc(N);
 Until EoF(f);
 Close(f);
 for i:=1 to N do
  for j:=1 to N-i do
   if Ord(S[j][1])>Ord(S[j+1][1]) then
    begin
     dummy:=S[j];
     S[j]:=S[j+1];
     S[j+1]:=dummy;
    end;
 Assign(f,'D:\sorted.txt');
 Rewrite(f);
 for i:=1 to N do
  writeln(f,S[i]);
 Close(f);
END.

 

[shadow288]

спасибо огромное:tehnari_ru_288: