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

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

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

1. Назначение: замена в строке каждого вхождения заданного фрагмента на новое значение (в нашей программе будет использоваться для подавления повторяющихся пробелов, то есть для того, чтобы между словами оставить только один пробел)

2. Имя: redfrag

3. Вид: процедура

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

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

Статус	Назначение	Имя	Тип	Вид
Вход/выход	Обрабатываемая строка	s	string	параметр-переменная
Вход	Исходный фрагмент	s1	string	параметр-значение
Вход	Новый фрагмент	s2	string	параметр-значение

5. Заголовок п/п: procedure redfrag(var s:string; s1,s2:string);

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

Словесно метод решения сформулируем так:

Пока исходный фрагмент s1 входит в строку s повторять

а) зафиксировать местоположение первого вхождения исходного фрагмента s1в строку s;

б) удалить из строки s, начиная с зафиксированной позиции, столько символов, какова длина исходного фрагмента s1;

в) вставить фрагмент s2 в строкуs, начиная с зафиксированной позиции

Этот метод можно записать следующим образом:

Пока pos(s1,s)<>0 :

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

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

Назначение	Имя	Тип
Номер позиции в строке, начиная с которого фрагмент входит в строку	k	integer

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

procedure redfrag(var s:string;s1,s2:string);

var k:integer;

begin

while pos(s1,s)<>0 do

begin

k:=pos(s1,s);

delete(s,k,length(s1));

insert(s2,s,k)

end

end;

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

⇐ Предыдущая 1 2 3 456 7 8 9 10 Следующая ⇒