Тело основной программы. 1. Вызов процедуры для ввода строки;. 2. Вызов процедуры для поиска слов, содержащих букву k. 3. Текст программы с пояснениями по каждой строчке

Тело основной программы

1. Вызов процедуры для ввода строки;

2. Вызов процедуры для поиска слов, содержащих букву k

Блок-схема алгоритма:

3. Текст программы с пояснениями по каждой строчке

{16. Дана символьная строка, заканчивающаяся точкой. Указать те слова,

которые содержат хотя бы одну букву k}

program Project2; {Название программы}

{$APPTYPE CONSOLE}{Директива, указывающая на создание консольного приложения}

Uses SysUtils; {Подключение подпрограмм из модуля SysUtils, Math}

{Процедура для ввода строки

Дано: нет данных

Найти: Ввести строку

Дополнительно: s-строка}

Procedure Vvod(outs: string);

begin

WRiteln('Vvedite stroku, zakonchiv tochkoy. ');

Readln(s);

end;

{Процедура для поиска слов, содержащих букву k

Дано: s1, s2-строка;

Найти: слова содержащие букву k

Дополнительно: a-Логическая переменная,

i-номер элемента в строке}

Procedure Poisk(var s, s2: string);

Var a: boolean;

i: integer;

begin

While s[i]< > '. ' do

begin

s2: ='';

i: =1;

a: =false;

While (s[i]< > ' ') and (s[i]< > '. ') do begin

s2: =s2+s[i]; {s2 - новое слово, получаемое из строки}

if s[i]='k' then a: =true;

inc(i);

end;

if a=true then WRiteln(s2);

delete(s, 1, i);

end;

Var s, s2: string;

begin

Vvod(f);

Poisk(f);

readln;

{ TODO -oUser -cConsole Main: Insert code here }

end.

⇐ Предыдущая 12