procedure GetWord(s: string; var ib: integer; var pWord: string; var l: integer); // Возвращает слово pWord, которое является подстрокой s // Разделителем слов являются один и более пробелов. // ib при вызове процедуры указывает на позицию в строке s, // начиная с которой ведется поиск слова. // При выходе из процедуры ib - позиция начала найденного слова, // l- длина найденного слова, l=0 если слово не найдено. var
ast:array[1..30] of string;
procedure GetWord(s: string; var ib: integer; var pWord: string; var l: integer);
// Возвращает слово pWord, которое является подстрокой s
// Разделителем слов являются один и более пробелов.
// ib при вызове процедуры указывает на позицию в строке s,
// начиная с которой ведется поиск слова.
// При выходе из процедуры ib - позиция начала найденного слова,
// l- длина найденного слова, l=0 если слово не найдено.
var
"Подросток" (Достоевский)
"Война и мир", "Детство, отрочество, юность" (Толстой)
"Ревизор", "Нос" (Гоголь)
"Метель" (Пушкин)
"Ларчик", "Синица", "Белка" (Крылов)
"Мещане" (Горький)
"Быль-небылица", "Мистер Твистер" (Маршак)
"Женьшень" (Пришвин)
Фильмы:
Приключения Электроника
Путешествия Гулливера
Автомобиль, скрипка и собака Клякса.