Файлы Опции

[Talya]

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

[samec]

вот что то подобное должно получиться:

uses crt;
Const filename = 'MyFile.txt';
var f : TEXT;
    ch1,ch2,ch3:char;
  sum: integer;
begin
assign (f,filename); {связываем виртуальный и физический файлы}
reset (f);
sum:=0;
   while not eof(f) do {пока не конец файла читаем его посимвольно}
     begin
          read(f,ch1);
          ch2:=ch1;
          repeat
            read(f,ch3);
            if(ch3<>#13)and(ch3<>#26) then ch2:=ch3; {#26 - символ конца файла}
          until(ch3=#13)or(ch3=#26);
          if ch1 = ch2 then inc (sum); {cравниваем 1й символ строки и последний если да, в копилку}
          read(f,ch3); {считываем символ #10}
    end;
Close (f);
writeln (sum); {содержание копилки на экран}
readkey;
end.end.

Сообщение отредактировано: samec - 23.05.2008 0:53