Количество строк

Рейтинг: 0Ответов: 2Опубликовано: 12.03.2011

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

delphi pascal
Источник: Stack Overflow на русском

Ответы

▲ 1

Delphi: 

var i,n:integer;s:string;
begin
n:=0;
Memo1.lines.LoadFromFile('1.txt');
for i:=0 to Memo1.Lines.Count-1 do
   begin
   s:=Memo1.Lines[i];
   if (s[1]='Согласная') and (s[Length(s)]='Согласная') then
     inc(n);
   end;
end;
▲ 1

Алгоритм простой тут:

  1. Читаете очередную строку;
  2. Переводите её в один регистр - например, в верхний;
  3. Смотрите первую букву - если она не согласная (для этого должен быть список согласных букв, с коими и сравнивать надо поочерёдно), то идём на начало, в пункт 1;
  4. Ищется последняя буква и сравнивается с первой. Если совпадает - прибавляем к счётчику один.