Обработка текстовых файлов

@kestugar · Регистрация: 15.05.2010

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

Написать функцию, которая определяет количество слов в данной строке, содержащих заданную букву.
В главной программе прочесть строки из текстового файла. Определить число слов в каждой строке, содержащие буквы «а» и количество слов, содержащих буквы «е».
В случае отсутствия таких слов выводится соответствующие сообщение.

@kestugar · 05.11.2010, 23:46 **[ТС]**

Все понимаю как сделать, только не знаю как сосчитать количество слов,содержащих буквы "а" и "е"
Помогите пожалуста.Заранее спасибо.

@Roof · 06.11.2010, 05:43

Вот такой пример:

Pascal

program MyCalcWords;
uses Crt;
const
  N = 20;
var
  T: Text;
  K, Cnt1, Cnt2: Integer;
  S: String;
 
function CalcWords(S: string; Ch: Char): Integer;
const
  Dividers = [' ', ',', '.', ';', ':', '-', '=', '+']; (*ðàçäåëèòåëè*)
var
  Temp: string;
  Cnt, I: Integer;
begin
  Cnt := 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 Pos(Ch, Temp) > 0 then
        Inc(Cnt);
      Temp := '';
    end
  end;
  Result := Cnt;
end;
 
begin
  ClrScr;
  Assign(T, 'C:\111.txt');
  Reset(T);
 
  K := 0;
  while not Eof(T) do
  begin
    Inc(K);
    Readln(T, S);
    WriteLn('V stroke ', K);
    Cnt1 := CalcWords(S, 'a');
    Cnt2 := CalcWords(S, 'e');
 
    if Cnt1 > 0 then
      Writeln('Slov s bukvoy a ', Cnt1)
    else
      Writeln('Slov s bukvoy a NET');
 
    if Cnt2 > 0 then
      Writeln('Slov s bukvoy e ', Cnt2)
    else
      Writeln('Slov s bukvoy e NET');
  end;
 
  Close(T);
  Readln;
 
end.

*Файл C:\111.txt должен быть заранее создан.

Тестировал на файле со следующим содержимым:

Код

lmnjkln kmljklmnjkl 51541561
15615emkl 155jhjh amllmlae
aajnk amlil eij ilja emmm
uunnnj aaaeee mmmimi 351 e e e e kkare

@kestugar · 15.11.2010, 19:54 **[ТС]**

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

Pascal

function CalcWords(S: string; Ch: Char): Integer;
const
 Dividers = [' ', ',', '.', ';', ':', '-', '=', '+']; (*разделители*)
var
 Temp: string;
 Cnt, I: Integer;
begin
 Cnt := 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 Pos(Ch, Temp) > 0 then
 Inc(Cnt);
 Temp := '';
 end
 end;
 Result := Cnt;
end;

думаю вместо Result должен быть CalcWords, но даже так прога не пашет(

@Roof · 16.11.2010, 02:45

Не знам, у меня все пашет. Файл создал:
C:\111.txt ??
И я для латинских буков 'a' и 'e' сделал вызов функции:

Pascal

1 2	Cnt1 := CalcWords(S, 'a'); Cnt2 := CalcWords(S, 'e');

Вот.

@kestugar · 16.11.2010, 18:09 **[ТС]**

Файл конечно создал))
просто я проверял русские буквы.
все спс.сорь за предъявы)

@kestugar 9 / 9 / 6 Регистрация: 15.05.2010 Сообщений: 184
		1
	Обработка текстовых файлов 30.10.2010, 22:25. Показов 1306. Ответов 5 Метки нет (Все метки) Написать функцию, которая определяет количество слов в данной строке, содержащих заданную букву. В главной программе прочесть строки из текстового файла. Определить число слов в каждой строке, содержащие буквы «а» и количество слов, содержащих буквы «е». В случае отсутствия таких слов выводится соответствующие сообщение. 0

@kestugar 9 / 9 / 6 Регистрация: 15.05.2010 Сообщений: 184
	05.11.2010, 23:46 [ТС]	2
	Все понимаю как сделать, только не знаю как сосчитать количество слов,содержащих буквы "а" и "е" Помогите пожалуста.Заранее спасибо. 0

@kestugar 9 / 9 / 6 Регистрация: 15.05.2010 Сообщений: 184
	16.11.2010, 18:09 [ТС]	6
	Файл конечно создал)) просто я проверял русские буквы. все спс.сорь за предъявы) 0