Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Строки

Автор: JoKe 19.12.2008 17:20

Среди нескольких предложений найдите то, которое содержит наибольшее количество разных букв.
Задачу решить с использованием процедур.

Автор: maksimla 19.12.2008 19:57

только букв или включая символы все и пробелы а?

Добавлено через 2 мин.
а правда ты чтонибудь решил или сделал насщет этой задачки?

Автор: JoKe 19.12.2008 22:02

включая все символы и пробелы
нет, не решил, я сообразить не могу никак sad.gif

Автор: Айра 20.12.2008 1:23

Сам подсчет количества можно сделать так:
описываешь множество символов {var ch: set of char}, идешь по строке и сверяешь, если символа нет в множестве {if not (s[j] in ch) then}, то добавляешь его туда {ch:=ch+[s[j]]} и увеличиваешь количество..

Автор: JoKe 20.12.2008 15:19

Цитата
{var ch: set of char}


что такое set of char? я знаю, что char это символьный тип, а вот что такое set...

я учусь на первом курсе (1 семестр), так что нужно как можно проще...

Автор: Lapp 20.12.2008 15:39

Цитата(JoKe @ 20.12.2008 11:19) *
что такое set of char? я знаю, что char это символьный тип, а вот что такое set...

я учусь на первом курсе (1 семестр), так что нужно как можно проще...
set - это множество. Посмотри про него в том учебнике, по которому вы учитесь.

Именно с использованием множества как раз и будет наиболее просто. Все остальные способы, боюсь, будут сложнее.

Автор: volvo 20.12.2008 16:11

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

procedure check_letters(ch: char; var letrs: string);
begin
{
Проверяем, встречался ли уже символ раньше в этом предложении,
если не было - добавляем его к строке
}
if pos(ch, letrs) = 0 then letrs := letrs + ch;
end;

var
s, sent, max_sent, letters: string;
i, max_let: integer;
begin
s := 'abcd def. bbabbde yrye, trtkj! defrertyyl? trtll.'; { исходная строка }
sent := ''; letters := ''; max_sent := ''; max_let := 0;
for i := 1 to length(s) do begin { пробегаем по всем символам строки }

if s[i] in ['.', '!', '?'] then begin { закончилось предложение? }
if length(letters) > max_let then begin { разных букв больше, чем максимальное до сих пор количество? }
{ Да, запоминаем новый максимум, и запоминаем предложение}
max_let := length(letters); max_sent := sent;
end;

{ В любом случае подготовимся к обработке следующего предложения: обнулим все, что нужно }
sent := ''; letters := '';
end
else begin
{
Нет, предложение еще не закончилось. Добавляем букву в sent ("собираем" из букв
само предложение), и проверяем, встречалась ли s[ i ] до сих пор - процедурой
}
sent := sent + s[i];
check_letters(s[i], letters);
end;

end;

{ Все, печатаем результат }
writeln('Предложение: "', max_sent, ' " содержит ', max_let, ' разных символов');
end.

Автор: JoKe 21.12.2008 14:54

а если мне нужно проверять любые вводимые с клавиатуры предложения и их может быть любое количество. тогда как быть?

Автор: volvo 21.12.2008 14:59

Что значит "любое количество"? Задаются они одной строкой, или как? Если одной, то не вижу проблем: вместо жесткого прописывания строки в коде - запрашивай ее у пользователя, дальнейшая обработка не меняется... Если нет - то объясняй, КАК вводятся данные (хотя это стоило бы сделать в самом первом посте.)

Автор: JoKe 22.12.2008 23:50

разобрался
всем спасибо