НАпечатать наибольшую последовательность состоящую

[gred]

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

[merax]

Вот по таким темам "Фриланс" плачет. Туда тему и не факт, что ТС еще раз на форум прийдет с подобными вопросами.

[Serge_Bliznykov]

Трудность как можносчитать согласные в паскале

ну, это можно было и подсказать... это не так сложно, как кажется - достаточно определить массив/множество/строчку с согласными буквами и далее символы проверять по присутствию в ней...
но!

(желательно прогу написать целиком)

тогда действительно, лучше во "Фриланс"...

to merax

ТС еще раз на форум прийдет с подобными вопросами

а кто такой TC ?..

[puporev]

Топик-стартер, т.е. автор темы.

[gred]

Значит вы мне не поможете
Фриланс это где
согласные я посчитал а как напечатать наибольшую последовательность состоящую из согласных

[B_N]

var
    str         : string;
    i           : integer;
    i1          : integer;
    strlen      : integer;
    longestIdx  : integer;
    longestLen  : integer;

function IsConsonant(c : char) : boolean;
begin
    result := c in ['Б','В','Г','Д','Ж','З','К',
                    'Л','М','Н','П','Р','С','Т',
                    'Ф','Х','Ц','Ч','Ш','Щ',
                    'б','в','г','д','ж','з','к',
                    'л','м','н','п','р','с','т',
                    'ф','х','ц','ч','ш','щ'];
end;

begin
    write('Enter string: '); readln(str);

    strlen := length(str);
    i := 1;
    longestIdx := -1;
    longestLen := 0;
    while i <= strlen do begin
        if IsConsonant(str[i]) then begin
            i1 := i;
            while (i1 <= strlen) and IsConsonant(str[i1]) do i1 := i1 + 1;
            if i1 - i > longestLen then begin
                longestIdx := i;
                longestLen := i1 - i;
            end;
        end;
        i := i + 1;
    end;
    if longestIdx > 0 then writeln(copy(str, longestIdx, longestLen))
    else writeln('No substring found');

    readln;
end.

[andrey4623]

Сообщение от gred

Фриланс это где

В разделе "Фриланс"