Информационная модель. Программная модель. Разработка программы. Метод решения. Информационная модель. Набор тестов. Программная модель (текст программы на языке Паскаль)

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

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

Назначение	Имя	Тип
Номер слова в строке	k	integer
Позиция начала слова в строке	beg	integer
Количество символов в слове	kol	integer

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

procedure udalen(var s:string);

var k,beg,kol:integer;

begin

k:=1;

while k<=kolslov(s) do

if not chered(slovo(s,k,beg,kol)) or

not simmetr(slovo(s,k,beg,kol))then

delete(s,beg,kol+1)

else k:=k+1;

end;

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

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

Если при вводе строки ее символы не русские буквы и не пробелы, то строка задана неверно – сообщаем об этом пользователю и прекращаем выполнение программы

;

удаление из заданной строки слов, которые не состоят из чередующихся гласных и согласных букв, и не являются симметричными относительно своего центра

udalen(s) ;

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

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

Статус	Назначение	Имя	Тип
Вход/выход	Строка слов	s	string

Набор тестов

№	Исходная строка	Ожидаемый результат
	'МИМО ЦИРКА МИМ ИМАМ ОГОГО ОСЕЛ ЛЕТЕЛ.КОК'	'МИМ ОГОГО ЛЕТЕЛ'
	'ПРООРП ПРИВЕТ.'	Пустая строка

Программная модель (текст программы на языке Паскаль)

program primer;

type

tsetchar=set of char;

{здесь располагаются тексты подпрограмм}

var s:string;

begin

if not control(s,['А'..'Щ','Ы','Э'..'Я','Ё','а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н',о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ы,э,ю,'я',' ']) then

begin

writeln('ОШИБКА при вводе строки!!!');

halt

end;

udalen(s);

writeln('РЕЗУЛЬТАТ:');

if length(s)=0 then

writeln('Нет слов, удовлетворяющих одновременно условиям чередования и симметричности')

else

writeln('Результирующая строка: ',s)

end.