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

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

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

Автор: medved777 7.12.2006 12:59

Помогите решить лабу!
Дан текст, в котором в словах слоги разделены"-". Разделители слов могут быть любые. Распечатать слова,
упорядоченные в порядке убывания, по количеству слогов.
Пожалуйста помогите.Заранее спасибо.

Автор: Lapp 7.12.2006 13:12

Выкладывай, что уже сама сделала.
Обязательно поможем.

Автор: medved777 7.12.2006 13:40

Цитата(Lapp @ 7.12.2006 9:12) *

Выкладывай, что уже сама сделала.
Обязательно поможем.



Не знаю в правильном ли формате отвечаю. На форуме в первый раз веду переписку.
Ума хватило только на подсчет количества слогов.
var sl,sl1:string;
k,i,n,:integer;
begin
write ('vvod predlozenia');
readln(sl);
k:=1;
n:=length(sl);
sl1:='-';
for i:=1 to n do
begin
if(sl[i]=sl1) then
k:=k+1;
end;


Умоляю помогите!

Автор: volvo 7.12.2006 15:08

Погоди... Что тебе даст подсчет слогов во всем предложении? Тебе надо сначала разбить строку на слова, и потом уже в каждом слове искать количество слогов, так ведь?

Я бы воспользовался вот этим:
http://forum.pascal.net.ru/index.php?s=&showtopic=6972&view=findpost&p=50609
и потом отсортировал бы массив words по убыванию количества слогов ...

Автор: medved777 7.12.2006 16:49

Большое спасибо.Попробую.