Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

tmp2:=RTN;

i:=3;

GotoXY(70,WhereY);

While tmp2<>Nil Do

Begin

If tmp2^.Name=#0 Then

Begin

GotoXY(70,WhereY);

inc(i);

End;

GotoXY(WhereX,i);

If tmp2^.Name<>#0 Then Write(tmp2^.Name);

tmp2:=tmp2^.Next;

End;

Precede;

SetColor(3);

Error:=False;

For j:=1 To CTrmNotTrm Do{!!!}

For i:=1 To CTrmNotTrm Do{!!!}

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.

6. Список использованных источников

1. Грис Д. Конструирование компиляторов для цифровых вычислительных машин. – М.: Мир, 1975.

2. Шамашов М.А. Основные структуры данных и алгоритмы компиляции. – Самара: Университет Наяновой, 1999.

3. Шамашов М.А. Теория формальных языков. Грамматики и автоматы. – Самара: Университет Наяновой, 1996.

4. Интернет сайт. - WWW.CodeNet.ru

Характеристики

Список файлов реферата