Информационная модель. Программная модель. Разработка подпрограммы 3. Спецификация. Метод решения

Информационная модель

Таблица 21.5 .Информационная модель

Назначение	Имя	Тип
Индекс символа в строке	i	integer

Программная модель

function control(var s:string; const simb:tsetchar):boolean;

var i:integer;

begin

{ввод строки с клавиатуры}

writeln('Исходная строка?');

readln(s);

{проверка наличия и местоположения точки; если точки нет или она стоит в начале строки, то формируем ошибку при вводе и выходим из подпрограммы}

if pos('.',s)<=1 then

begin

control:=false;

s:='';

exit

end;

{формирование обрабатываемой части строки (до точки) и добавление пробела в конец строки}

s:=copy(s,1,pos('.',s)-1)+' ';

{подавление повторяющихся пробелов – остается по одному пробелу}

redfrag(s,' ',' ');

{перебор всех символов строки и проверка их принадлежности множеству допустимых символов}

for i:=1 to length(s) do

{если очередной символ не входит в множество возможных}

if not (s[i] in simb) then

{ошибочный ввод исходной строки}

begin

control:=false;

s:='';

exit

end;

{успешное завершение ввода строки}

control:=true

end;

Разработка подпрограммы 3

Спецификация

1. Назначение: вычисление количества слов в строке (каждое слово в строке оканчивается одним пробелом)

2. Имя: kolslov

3. Вид: функция

4. Перечень параметров

Таблица 21.6.Перечень параметров

Статус	Назначение	Имя	Тип	Вид
Вxoд	Исходная строка слов	s	string	параметр-значение
Возвращаемый результат	Количество слов в строке	kolslov	integer	-

5. Заголовок п/п: function kolslov(s:string):integer;

Метод решения

Обнуление счетчика слов

sum:=0 ;

Перебор всех символов строки и при обнаружении очередного пробела увеличение счетчика слов на 1, так как пробел является признаком завершения слова

;

Формирование возвращаемого результата функции

kolslov:=sum

⇐ Предыдущая 2 3 4 5 678 9 10 11 Следующая ⇒