Общая информация

Файловые процедуры и функции

Текстовые файлы

Типизированные файлы

Нетипизированные файлы

Пример

Контрольные вопросы

Задания

Организация простого ввода массивов данных.

const			  {раздел описания констант}
  N= 1000;		  {Максимальная длина ввода}
var			  {раздел описания переменных}
  f: text;		  {объявляем переменную файло-
			   вого типа. Файл текстовый} 
  m: array [1..N] of real;{объявляем массив вещественных
			   чисел, размерностью N}
  i: integer;	      	  {переменная-счетчик}
begin			  {начало тела программы}
  assign (f,'prog.dat');  {связываем логический файл
			   с физическим prog.dat}
  reset(f);		  {инициируем файл для чтения}
  i:= 1;		  {инициируем счетчик}
  while not EOF(f)and(i<= N)
   do   		  {пока не достигли конца файла и 
			   последнего элемента массива 
		  	   выполняем следующее:}
     begin		  {начало подпрограммы}	
       read (f, m[i]);	  {ввод элементов массива из файла}
       inc (i);		  {увеличиваем счетчик}
     end;		  {конец подпрограммы}
  close (f);		  {закрываем файл f}	
 ........
end.			  {завершение программы}