//нет.
//для записи в файл используется процедура write (writeln) примерно вот так:
//------------------------------------------------------------------------------<wbr />----------------
Uses CRT, GrahpABC;
Var
{
Ниже массивы для проверки (словари)
}
StaticOperatorsDictionary:array [0..100] of string;
{
Ниже массивы для записи и обработки данных
}
Input:array[0..99999999] of char;
StringVariables:array of string; //все созданные переменные
IntegerVariables:array of int64; //все созданные переменные
IntegerArrays:array of int64; //все созданные массивы
StringArrays:array of string; //все созданные массивы
LabelsArray:array of string; //все созданные массивы
FileName:Text;
LinkedToFileVar:string;
FilePosition:int64;
i : integer;
Begin
{создание словарей}
StaticOperatorsDictionary[0]:='add';
StaticOperatorsDictionary[1]:='create';
StaticOperatorsDictionary[2]:='delete';
StaticOperatorsDictionary[3]:='copy';
StaticOperatorsDictionary[4]:='in';
StaticOperatorsDictionary[5]:='number';
StaticOperatorsDictionary[6]:='of';
StaticOperatorsDictionary[8]:='element;
StaticOperatorsDictionary[9]:='variable';
StaticOperatorsDictionary[10]:='program';
StaticOperatorsDictionary[11]:='part';
StaticOperatorsDictionary[12]:='random;
StaticOperatorsDictionary[13]:='with';
StaticOperatorsDictionary[14]:='if';
StaticOperatorsDictionary[15]:='loop';
StaticOperatorsDictionary[16]:='run';
StaticOperatorsDictionary[17]:='for';
StaticOperatorsDictionary[18]:='value';
{все, со словарями кончено}
System.Console.WriteLine('Введите имя файла для его запуска:');
Assign(LinkedToFileVar,FileName);
rewrite(FileName); // открываем файл для добавления. ВНИМАНИЕ - ПОСЛЕ ЭТОЙ КОМАНДЫ - ФАЙЛ ОЧИЩАЕТСЯ !
fot i := 0 to 18 do
Begin
writeln(LinkedToFileVar,StaticOperatorsDictionary[i]);
End;
Close(FileName) // файл записывается на диск. не забывать эту команду, так как после выполнения программы файл может оказаться пустым
End.
