1 To CTrmNotTrm Do {!} p> Begin
If MatrixPrecede [j, i] = 4 Then Error: = True;
WrtSymbol (i, j +2, MatrixPrecede [j, i]);
End;
If Error Then
Begin
TextColor (15);
TextBackGround (1);
Message (30,15,15,7, 'Натисніть будь-яку клавішу', True);
VerticalRetrace;
SaveWindow (GraphCooX (20), GraphCooY (12), GraphCooX (62) +1, GraphCooY (19), Pic, size);
TextBackGround (4);
TextColor (14);
OpenWindow (20,12,60,17,3, 'Увага', True);
WriteLn ('Матриця передування містить помилки');
Write (' Побудова функції передування ');
Write ('неможливо');
Attention (363,243);
ReadKey;
LoadWindow (GraphCooX (20), GraphCooY (12), size, pic);
End;
End;
{основна програма}
Begin
Init;
InitText;
If InputText Then
Begin
Check;
SearchLR;
Matrix;
ClearBuf;
ReadKey;
End;
GraphWriteOff;
CloseGraph;
End.
h1> 6. Список використаних джерел
1. Гріс Д. Конструювання компіляторів для цифрових обчислювальних машин. - М.: Мир, 1975. p> 2. Шамаш М.А. Основні структури даних і алгоритми компіляції. - Самара: Університет Наяновой, 1999. p> 3. Шамаш М.А. Теорія формальних мов. Граматики і автомати. - Самара: Університет Наяновой, 1996. p> 4. Інтернет сайт. - WWW.CodeNet.ru
