Курсовая работа - Изучение конечного автомата / Дискретка. Задание №5.doc

S₀ — исходное состояние, счетчик букв равен 0;

S₁ — переход к рабочему состоянию, номер текущего элемента массива равен 1;

S₂ — определение содержимого ячейки (цифра или буква);

S₃ — состояние увеличения счетчика букв.

S₄ — состояние проверки наличия несосчитанных ячеек;

S₅ — состояние перехода к следующей ячейке, увеличение номер текущего элемента массива;

S₆ — конечное состояние счета букв;

S₇ — вывод счетчика букв.

X₁ — ввод исходных данных;

X₂ — переход к процессу подсчета;

X₃ — переход к увеличению счетчика букв;

X₄ — переход к состояние перехода к следующей ячейке

X₅ — переход к следующей ячейке;

X₆ — продолжение счета ячеек;

X₇ — переход в конечное состояние;

X₈ — вывод результатов;

Y₁ — количество ячеек содержащих буквы.

program task5;

var

a: array [1..100] of char;

n, i, count: integer;

begin

// S0 — исходное состояние, счетчик букв равен 0;

count := 0;

// X1 — ввод исходных данных;

write(’enter cell count:’);

readln(n);

for i := 1 to n do begin

write(‘a[‘, i, ’]=’);

readln(a[i]);

end

// S1 — переход к рабочему состоянию, номер текущего элемента массива равен 1;

// X2 — переход к процессу подсчета;

for i := 1 to n do begin // X6 — продолжение счета ячеек;

if (a[i] in [’a’..’z’, ’a’..’z’, ’а’..’я’, ’a’..’я’]) then begin // S2 — определение

// содержимого ячейки (цифра или буква);

// X3 — переход к увеличению счетчика букв;

// S3 — состояние увеличения счетчика букв.

count := count + 1;

end

// X4 — переход к состояние перехода к следующей ячейке

// S4 — состояние проверки наличия несосчитанных ячеек;

// X5 — переход к следующей ячейке;

// S5 — состояние перехода к следующей ячейке, увеличение номер текущего элемента массива;

End

// S6 — конечное состояние счета букв;

// X8 — вывод результатов;

writeln(’letters count: ’, count); // S7 — вывод счетчика букв.

// Y1 — количество ячеек содержащих буквы.

end.