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