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

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

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

Автор: САНЯ 8.02.2006 13:06

Помагите кто-нибудь решить задачку на Паскале, у меня экзамены скоро.... Это моя последняя возможность исправить оценки! Вот эта задачка:
Определить сколько слов в тексте начинаются с согласных. Текс подготовлен следующим образом, между слова - пробел, после каждого слова - точка.
ПОЖАЛУЙСТА, ПОМОГИТЕ!!! unsure.gif

Автор: Ozzя 8.02.2006 13:20

Наверху кнопочка с лупой есть. Нажми. Набери что-нибудь типа "согласные". Среди выведенных тем ищи программу, похожую на твою.

Автор: Altair 8.02.2006 13:37

Цитата
Определить сколько слов в тексте начинаются с согласных. Текс подготовлен следующим образом, между слова - пробел, после каждого слова - точка.


var
 s:string;
 res,i:byte;
 sgl:set of char;

begin
res:=0;
 sgl:=['w','r','t','p','s','d','f','g','h','k','l','z','x','c','v','b','n','m'];
 writeln('enter text: ');
 readln(s);
 for i:=1 to length(s) do
     if ((s[i] in sgl) and (i=1)) or ((s[i] in sgl) and (i>1) and (s[pred(i)] = ' ')) then inc (res);
 writeln(res,' ; press enter...');
 readln;
end.

Автор: САНЯ 9.02.2006 0:30

БОЛЬШОЕ СПАСИБО!!! smile.gif