Файлы, Текстовый файл Опции

[САША]

Помогите с задачей я никак не могу в текстовом файле определить строки, в которых заданный символ встречается наибольшее число раз.

[Ozzя]

Вариант, где определяется номер (последний) строки с макс. кол-вом зад-ных сим-в
Легко подработать под Ваши нужды

Код

const
  symbol='*';
var
  f:text;
  s:string;
  StrNumber,j,count,i,max:integer;
begin
  Assign(F, 'TEXTFILE.TXT');
  ReSet(f);
  max:=0;
  j:=1;
  while not eof(f) do
    begin
      ReadLn(f,s);
      count:=0;
      for i:=1 to Length(s) do
        if s[i]=symbol then
            count:=count+1;
      if count>max then
        begin
          max:=count;
          StrNumber:=j;
        end;
      j:=j+1;
    end;
  Close(F);
  WriteLn('Max symbols in string N ',StrNumber);
end.

Тестовый файл TEXTFILE.TXT

***********************************************
***
******
/**///
/*****************
***
*******************************
***********************************************************

Сообщение отредактировано: Ozzя - 11.01.2006 13:49