Помогите!Надо найти количество сдвоенных букв в предложении.(если можно на turbopascale,или мысль какую нибудь по этому поводу)
___ALex___
8.10.2003 14:50
у тебя есть хоть какие-то мысли на сей счёт?
ну напиши ты себе где-нибудь строку типа
dfdfddf fg fgfggfgfg 4d fg если так не въезжаешь и подумай
здесь если я правильно понял количество сдвоенных букв равно 2
Nightmare
8.10.2003 17:11
Код
Uses Crt;
Var
S: String;
I, Cnt: Byte;
begin
ClrScr;
Readln( S );
If Length( S ) < 2 then Halt( 255 );
Cnt := 0;
For I := 2 to Length( S ) do
begin
If S[I] = S[I-1] then Inc( Cnt );
end;
Writeln( 'Сдвоенных букв: ', Cnt:3 );
end.
Всё довольно просто...
А, сколько здесь сдвоенных букв "абббв"?
___ALex___
8.10.2003 20:11
Nightmare
если ты даже правильно понял условие задачи, то если говорить строго - она решена неверно, поскольку в условии сказано БУКВ,
а не символов
Ну например :
Классификация групп
Сдесь сс и пп сдвоенные
Дико извиняюсь, прохлопал, в мозгах засело именно символов.
Тогда уточните набор допустимых символов и что делать если подряд идет больше двух одинаковых.
А вообще принцип будет такой-же, только If посложнее получится
Мне тут в голову вступил такой глупый вопрос:
А строчные и прописные считать одинаковыми?
И вообще, господин вопрошающий, поясните на какой уровень сложности тянет эта задача, а то это может закончится обсуждением раскладки второй половины знакогенератора (а может она ГОСТ`овская).
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста,
нажмите сюда.