Подсчитать количество слов, в которых предпоследняя буква - заданная

@Дима-1 · Регистрация: 06.01.2010

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

В текстовом файле book.txt посчитать количество слов,в которых предпоследняя буква - заданная.Все найденные слова записать отдельными строками в файл words.txt

Спасибо!!!

Добавлено через 1 минуту
Текстовый файл любой.Пару предложений,10-15 слов!

@Inadequate · 14.01.2010, 18:11

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

Pascal

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{äîïèñàòü íóæíûå}
var
  s,temp:string;
  i,c:integer;
  ch:char;
begin
  clrscr;
  writeln('Ââåäèòå áóêâó...');
  readln(ch);
  writeln('Ââåäèòå ñòðîêó...');
  readln(s);
  temp:='';
  c:=0;
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if ((s[i] in dividers) or (i=length(s))) and (temp<>'') then
    begin
      if temp[Length(temp)]=ch then
        inc(c);
      temp:=''
    end
  end;
  writeln;
  writeln('Âñåãî òàêèõ ñëîâ: ',c)
end.

Файл прикрутите самостоятельно

@Дима-1 · 19.01.2010, 11:57 **[ТС]**

Задача не работает.С файлом соеденил.
Обьясните построчно пожалуйста.

@Дима-1 0 / 0 / 0 Регистрация: 06.01.2010 Сообщений: 6
		1
	Подсчитать количество слов, в которых предпоследняя буква - заданная 14.01.2010, 18:05. Показов 1593. Ответов 2 Метки нет (Все метки) В текстовом файле book.txt посчитать количество слов,в которых предпоследняя буква - заданная.Все найденные слова записать отдельными строками в файл words.txt Спасибо!!! Добавлено через 1 минуту Текстовый файл любой.Пару предложений,10-15 слов! 0

@Дима-1 0 / 0 / 0 Регистрация: 06.01.2010 Сообщений: 6
	19.01.2010, 11:57 [ТС]	3
	Задача не работает.С файлом соеденил. Обьясните построчно пожалуйста. 0

Опции темы

Подсчитать количество слов, в которых предпоследняя буква - заданная

Решение