Нужно написать программу для Delphi 7
Имеется текст.. записанный с помощью азбуки морзе. Встречается ли в нем сигнал SOS (...---), и если да, то сколько раз..
текст произвольный паходу.. Помогите пожалуйста
А теперь, внимание, ясный ответ)
// своя функция которая возвращает кол-во указанных подстрок в указанной строке:
function GetHowManySymbolCount(const aText, aPodText: string): word;
var
text : string;
begin
Result := 0;
text := aText;
while pos(aPodStr, text) <> 0 do
begin
inc(Result);
delete(text, 1, pos(aPodStr, text) + length(aPodStr) - 1);
end;
end;
Вот и усё)
функция Pos
логика очень простая. Создай просто условие. Если в строке встречается "...---" то счётчик +1.
в цикле проерять переменную, содержащую текст от первого символа до (последний - 9 ( так как сос - .---)) а по ходу в цикле проверять соответствует ли это значение сос.. . если да, то увеличивать некую переменную sum, отвечающую за количество встреченных слов...