Пособие просматривала?

Пока обсудим текстовые файлы.

Они используются в 2х целях : 1) Для чтения 2) Для редактирования, т.е. для записи туда информации.

Как и в случае с работой с каким-либо текстовым файлом дома на компьютере, в первую очередь Вам нужно (что?) открыть файл. ) Также слудует поступать и в случае c раотой с файлом в Паскаль. Но ведь в среде Паскаль Вы не можете взять и открыть отдельный файл, вед окно новое в окне Вы не можете открыть. ДЛя этого создаётся текстовый файл, который будет использоваться Только Лишь в этой программе и связывается с тем самым физическим файлом с Вашего компьютера, с которым Вы хотите работать. Этот тестовый файл только для работы в этой программе объявляется в VAR и имеет тип TEXT Например, Вам нужно использовать файл king.txt с фашего компьютера. Для этого создате файл для использования в программе, допустим (pFile) и свяжите его с king.txt . Объединение происходит посредством кода : assign( );:

VAR
  pFile:text;

BEGIN
  assign(pfile,'king.txt');
END.

Далее, вернёмся к целям работы с этим файлом. Если вы хотите из него что-либо прочитать, то вы должны объяснить это компьютеру. Для этого используется код reset( ), а если же вы желаете вписать что-либо в этот текстовый файл, то скажте компьютеру rewrite( ).

VAR
  pFile:text;

BEGIN
  assign(pfile,'king.txt'); reset(pfile);
END.

или

VAR
  pFile:text;

BEGIN
  assign(pfile,'king.txt'); rewrite(pfile);
END.

Теперь компьютер знает что выше желание. Осталось только его конкретизировать, дайте ему команду, т.е. что читать или куда писа'ть. Но если Вы просто напишите read или write программа решит, что Вы хотите читать с клавиатуры, или писать на экран (старым добрым способом). Для того, чтобы устранить это непонимание, надо программе объяснить, о ей требуется читать именно и в файл, а для этого :

VAR
  pFile:text;

BEGIN
  assign(pfile,'king.txt'); reset(pfile);
    read(pFile, X);                                  {Х - это то, что вы читаете. Оно может быть и М, и Н , и т.д.}
END.

или

VAR
  pFile:text;

BEGIN
  assign(pfile,'king.txt'); rewrite(pfile);
    write(pFile,'Hello, world');
END.

Если мы всё дело сделаи, и файл теперь свободен, что же нам осталось? Верно, закрыть файл, т.е. то, что мы и так делаем при работе с обычными файлами на компьютере. Ведь Вы послушав музыку, её выключаете. Так вот, для этого вы должны close( );

VAR
  pFile:text;

BEGIN
  assign(pfile,'king.txt'); reset(pfile);
    read(pFile, X);                                  {Х - это то, что вы читаете. Оно может быть и М, и Н , и т.д.}
  close(pFile);
END.

или

VAR
  pFile:text;

BEGIN
  assign(pfile,'king.txt'); rewrite(pfile);
    write(pFile,'Hello, world');
  close(pFile);
END.

Вот, первыя часть подошла к концу.