Реферат Синтез розпізнає автомата

80. Схеми алгоритмів і програм. Позначення умовні графічні// Єдина система програмної документації. - М.: Видавництво стандартів, 1980. - 9с. ГОСТ 19.005 - 78. Загальні вимоги до програмних документів// Єдина система програмної документації. - М.: Видавництво стандартів, 1980. - 2с.

Інтернет сайти: wikipedia.org

ПРОГРАМИ

Додаток 1

ТЕКСТ ПРОГРАМИ

Program Automat;

const

E = 12;

Tabl: Array [1 .. 13,0 .. 7] of byte =

((E, 3, E, 10, E, E, E, 11),

(5, E, E, E, E, E, E, E),

(E, 4, 6, E, E, E, E, E),

(E, E, 10, E, E, E, E, E),

(E, E, E, E, E, E, 9, E),

(10, E, E, E, E, E, E, E),

(E, E, E, E, E, 9, E, E),

(E, E, 1, E, E, 13, E, E),

(E, E, E, E, E, 13, E, E),

(E, E, E, E, 13, E, E, 8),

(7, 2, E, E, E, E, 2, E),

(E, E, E, E, E, E, E, E),

(E, E, E, E, E, E, E, E));

var X, S: byte;

Str: string;

Er: boolean;

BEGIN

Write ('Введіть ланцюжок:');

ReadLn (Str);

S: = 1;

Er: = FALSE;

X: = 1;

While (X <= Length (Str)) and (Not (Er)) Do

Begin

If (Str [X] = 'x') and (Str [X +1] in ['0 '.. '7']) Then

S: = Tabl [S, Ord (Str [X +1])-Ord ('0 ')] Else

Begin

WriteLn ('Неправильна вхідний символ');

S: = 0;

Er: = TRUE;

End;

X: = X +2;

End;

Write ('Ланцюжок');

If S <> 13 Then Write ('не ");

WriteLn ('припустима');.

Додаток 2

РЕЗУЛЬТАТИ РОЗРАХУНКУ НА ЕОМ контрольного прикладу

Введіть ланцюжок: x 1 x 6 x 7 x 4 x 5

Ланцюжок припустима

Введі...