2 года назад
Delphi написать код
Текст задан следующим образом: первый символ — цифра, указывающая длину первого слова, за первым словом через пробел — вновь цифра, указывающая длину второго слова и т.д. Вывести слово указанной длины.
ввод данных через memo
Только авторизированные пользователи могут оставлять свои ответы
Дата
Популярность
Вот пример кода Delphi, который реализует описанную логику:
12345678910111213141516171819202122232425
var
InputStr: string;
WordLength, WordStart, WordEnd: integer;
CurrentWordLength: integer;
begin
InputStr := Memo1.Text; // Предполагается, что ввод находится в компоненте memo, названном "Memo1"
WordStart := 1;
WordLength := StrToInt(InputStr[WordStart]);
WordEnd := WordStart + WordLength;
while WordEnd <= Length(InputStr) do
begin
CurrentWordLength := StrToInt(InputStr[WordStart]);
if CurrentWordLength = WordLength then
begin
ShowMessage(Copy(InputStr, WordStart + 1, WordLength));
Break;
end;
Inc(WordStart, CurrentWordLength + 1);
WordLength := StrToInt(InputStr[WordStart]);
WordEnd := WordStart + WordLength;
end;
end; Этот код использует цикл для итерации по входной строке и извлечения каждого слова на основе его длины. Функция StrToInt используется для преобразования символа указания длины в целое число. Цикл продолжается, пока не будет найдено и отображено желаемое слово указанной длины или пока не будет достигнут конец входной строки.