- Пример. Составьте программу, которая разбивает строку на слова. Составьте программу, которая разбивает строку на слова.
Программный код | Комментарий | Окно ввода/вывода |
|---|---|---|
procedure Split (str: string); var w: string; i: integer; Begin w := ''; for i := 1 to length (str) do begin if str [i] = ' ' then begin if w ＜＞ '' then writeln (w); w := ''; end else w := w + str [i]; end; if w ＜＞ '' then write (w); End. | Процедура Split выполняет разбие-ние строки str на слова. Цикл for проходит по каждому символу строки. Если встречается пробел, текущее слово выводится на экран, затем обнуляется. В конце последнее слово также выводится. | Белеет парус одинокий в тумане моря голубом |
Var s: string; Begin write ('Введите строку: '); read (s); Split (s); End. | Основная програм-ма: выводит приглашение ко вводу строки, считывает строку в переменную s, вызывает процедуру Split для вывода слов. | Введите строку: Белеет парус одинокий в тумане моря голубом |