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

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

function simmetr(s:string):boolean;

var i:integer;

begin

simmetr:=true;

for i:=1 to length(s) div 2 do

if s[i]<>s[length(s)-i+1] then simmetr:=false

end;

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

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

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

2. Имя: chered

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

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

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

Статус	Назначение	Имя	Тип	Вид
Вxoд	Исходное слово	s	string	параметр-значение
Возвращаемый результат	Признак чередования букв(истина – гласные и согласные чередуются, ложь –нет)	chered	boolean	-

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

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

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

chered:=true ;

Определение ожидающейся буквы. Если первый символ принадлежит множеству гласных букв (множество mn1), то ожидаемая буква – согласная (переменной next присваивается значение истина), в противном случае ожидаемая буква – гласная (переменной next присваивается значение ложь)

;

Перебор всех остальных букв, начиная со 2 по конец слова. Если очередная буква принадлежит множеству согласных букв (mn2) и ожидалась согласная, то следующая ожидаемая – гласная буква (next присваивается ложь). В противном случае, если очередная буква принадлежит множеству гласных букв (mn1) и ожидалась гласная, то следующая ожидаемая – согласная буква (next присваивается истина); в противном случае чередование нарушено (результату функции присваивается ложь)