В файле найти слово, содержащее наибольшее количество заданной буквы

@РЕНАТИКК · Регистрация: 03.05.2014

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

здравствуйте!)

помогите пожалуйста
Дан файл, содержащий текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество указанных букв.

@CodeR · 04.05.2014, 06:58

Pascal

Const mn=[' ',',','.','?','!'];
Var f:text;
    s,st,sl:string;
    i,j,k,max:byte;
    ch:char;
Begin
    Assign(f,'in.txt');Reset(f);
    write('Буква: ');readln(ch);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';
      For i:=1 to Length(s) do
       if not(s[i] in mn) then st:=st+s[i]
       else
       Begin
         if st='' then Continue;
         k:=0;
         For j:=1 to Length(st) do
          if st[j]=ch then inc(k);
         if k>max then 
         Begin
           max:=k;
           sl:=st;
         End;
         st:='';
       End;
    End;
    writeln('Слово с max количеством буквы ',ch,' = ');
    writeln(sl);
    Close(f);
    readln;
End.

@РЕНАТИКК 1 / 1 / 0 Регистрация: 03.05.2014 Сообщений: 26
		1
	В файле найти слово, содержащее наибольшее количество заданной буквы 03.05.2014, 20:27. Показов 1607. Ответов 1 Метки нет (Все метки) здравствуйте!)помогите пожалуйста Дан файл, содержащий текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество указанных букв. 0

	04.05.2014, 06:58

В файле найти слово, содержащее наибольшее количество заданной буквы

Решение