Задача на текстовые файлы

[[Smarik]]

не понимаю какие служебные слова могут быть в текстовом файле, тоесть программа для вывода .pas файлов? =) видимо нет раз точки с запятыми не нужны...я полностью написать не успею, уезжаю...а ты вообще ничего не понимаешь или конкретно сортировку того что выводить? вобщем вот создание и чтение из файла, надо дописать что конкретно выводить и сортироовку в алфавитном порядке.

var
f:file of string;
t:string;
begin
write('vvedite soderzhimoe faila: ');
readln(t);
assign (f,'c:\1.txt');
rewrite(f);
write(f,t);
close(f);
assign(f,'c:\1.txt');
reset(f);
while not eof (f) do
begin
read(f,t);
writeln(t);
close(f);
readln;
end;
end.

[Paul11j]

А как дописать что выводить на экран я точно не знаю

[Air]

не понимаю какие служебные слова могут быть в текстовом файле

кажется Delphi-редактор тогда.

Ну типа "procedure" "Function" помечалось жирным шрифтом. я так понял.

Если напишите, пожалуйсто, выложите код, я сам над подобной темой долбился, а кроме констант и 2-х зарезервированных слов ничего не вышло.

[alexBlack]

const maxKeyWord = 4; // Остальные сами допишете
      KeyWords : array [1..maxKeyWord] of String =
        ('function', 'procedure', 'begin', 'end');

function isKeyWord(S:String):boolean;
var i:integer;
begin
   result := false;
   for i:=1 to maxKeyWord do begin
      if upper(S) = upper(KeyWords[i]) then begin
         result := true;
         // Можно еще чтобы не было повторов
         //KeyWords[i] := '';
         break;
      end;
   end;
end;

procedure nextWord(S:String);
begin
   // Если вообще все латинские слова, то здеcь и выводим
   // writeLn(S);
   // Если нужна проверка является ли слово ключевым
   if (length(S) > 0) and isKeyWord(S)
   then Form1.ListBox1.Items.Add(S); // =writeLn(S);
end;

var F:textfile; // = text
    S, S1:String;
    i:integer;
begin
   assignFile(F, 'C:\1.pas'); // = assign
   reset(F);
   While not EOF(F) do begin
      Readln(F, S);
      S1 := '';
      for i:=1 to length(S) do begin
         if S[i] in ['A'..'Z', 'a'..'z']
         then S1 := S1 + S[i]
         else begin
            nextWord(S1);
            S1 := '';
         end;
      end;
      nextWord(S1);
   end;
   closeFile(F); // = close
end;

[Paul11j]

ЗА КОД ОГРОМНОЕ СПАСИБО!!!!!!!
Но по-моему это программа на Delphi, а мне нужно на Паскале. Извините если ошибаюсь.

[alexBlack]

Я там пометки сделал //=. Где не будет компилироваться просто заменить.

[Paul11j]

А что такое upper, как его у варе прописать?

[alexBlack]

Привести к верхнему регистру. В pascal по-моему upperCase().
Да и в Delphi тоже. Это моя бибилиотека была подключена.

[Paul11j]

if upcase(S) оно пишет что предшествующее выражение должно иметь символьный тип, я так понял что это выражение -upcase

[Paul11j]

alexBlack->если не сложно можеш переделать для Паскаля, а то в Делфи я ничего не понимаю
p.s. буду учить только в следующем году