Текстовый файл. Подсчитать количество строк, заканчивающихся заданной буквой

@Exzotik · Регистрация: 21.01.2012

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста написать данную программу.Заранее спасибо.

@Ev[G]eN · 24.03.2012, 17:41

Сообщение от Exzotik

Дан текстовый файл.Подсчитать количество строк заканчивающихся заданной буквой

Pascal

const
  Direction = 'C:\File.txt';
var
  FileTxt: Text;
  Count: Byte;
  Str: String;
  Chr: Char;
begin
  writeln('Содержимое файла: ');
  Assign(FileTxt, Direction);
  Reset(FileTxt);
  while not EOF(FileTxt) do
  begin
    readln(FileTxt, Str);
    writeln(Str);
  end;
  Close(FileTxt);
  Assign(FileTxt, Direction);
  Reset(FileTxt);
  write('Введите букву: ');
  readln(Chr);
  while not EOF(FileTxt) do
  begin
    readln(FileTxt, Str);
    if Str[Length(Str)] = Chr then
      Inc(Count);
  end;
  Close(FileTxt);
 writeln('Кол-во строк, оканчивающихся буквой "', Chr, '": ', Count);
end.

@Exzotik · 25.03.2012, 13:29 **[ТС]**

Большое спасибо!

@Exzotik 2 / 2 / 0 Регистрация: 21.01.2012 Сообщений: 28
		1
	Текстовый файл. Подсчитать количество строк, заканчивающихся заданной буквой 24.03.2012, 17:31. Показов 1966. Ответов 2 Метки нет (Все метки) Помогите пожалуйста написать данную программу.Заранее спасибо. 1

@Exzotik 2 / 2 / 0 Регистрация: 21.01.2012 Сообщений: 28
	25.03.2012, 13:29 [ТС]	3
	Большое спасибо! 0

Текстовый файл. Подсчитать количество строк, заканчивающихся заданной буквой

Решение