Текст, строки. Анализ буквенного состава предложения. Опции

[Hikep]

а не моглибы и мне помочь?))) условие:"вводится текст из нескольких предложений. нужно найти то предложение, в котором встречается больше всего различных букв"
например:
"я люблю музыку. она очень хорошая."
в 1ом предложении ялюбмузык и того 9 разных букв.
во 2ом оначеьхршая и того 11 букв.

в принципе у меня получается, но использовал кучу различных счетчиков у функцию "go to" но как недавно узнал этот способ не подходит, во 1х долго работает если больше 5и предложений, во 2х "go to" ламерский метод . когда доходит до точки виснет. и еще хотелось бы учесть различные символы ".!?" и если вдруг есть несколько предложений с одинаковым максимальным различных кол-вом букв

[volvo]

в принципе у меня получается, но использовал кучу различных счетчиков у функцию "go to"

Ух... А давай ты все-таки покажешь, КАК именно у тебя получалось (или не получалось)? А мы уже подправим, если что...

Кстати, зачем в чужой теме? Только потому, что она называется "Задача на строки"? (привет, Istari) Надо было свою тему создать...

[Hikep]

Ух... А давай ты все-таки покажешь, КАК именно у тебя получалось (или не получалось)? А мы уже подправим, если что...

Кстати, зачем в чужой теме? Только потому, что она называется "Задача на строки"? (привет, Istari) Надо было свою тему создать...

ну да. так как строки.

var

i,k,t,s,m,n:integer;

tekst,alf:string;

bukvy: array [1..33] of char;

alf:='абвгдеежзийклмнопрстуфхцчшщъыьэюя';

m:=0;

begin

readln(tekst);

t:=length(tekst);

1: for i:=1 to 33 do begin

for k:=1 to t do begin

if alf[i]=tekst[k] then begin

for s:=1 to 33 do begin

if tekst[i]<>bykvy[s] then m:=m+1;

else go to: 1 end;

if m=33 then bukvy[i]:=copy(tekst,i,1);

end;

.................

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


короче получается полная бурда

знаю что есть более простые способы решения, и хотелось бы их узнать)))) процедурамми и функциями вроде
П.С. я "Ломаносов"(самоучка);
покажите пожалуйста пример решения этой задачи)))) а дальше я как нибудь сам)))

М

При публикации кода используй теги. Lapp