Для того, чтобы обратиться к файлу на диске, необходимо в программе на Паскале описать файловую переменную, а затем связать эту файловую переменную с физическим файлом на диске с специальной процедуры. Файловая переменная является логическим файлом. Файловый тип или переменную файлового типа можно задать одним из трех где– имя файлового типа (правильный идентификатор); File, of – зарезервированные слова (файл, из); Text – имя стандартного типа текстовых файлов;– любой тип Турбо Паскаля, кроме файлов (рис. 1).
Рис. 1. Синтаксическая диаграмма описания файлового типа
Турбо Паскаль поддерживает три файловых типа:
– типизированные файлы (задаются предложением File of . . .);
– текстовые файлы (определяются типом Text);
– нетипизированные файлы (определяются типом File).
Типизированные файлы состоят из машинных представлений чисел, символов и структур, из них построенных. Они хранят данные в том же виде, что и память ЭВМ. Посредством типизированных файлов можно осуществлять обмен данными только между дисками и рабочей памятью программы, но нельзя, например, напрямую вывести данные на экран.
label 1;
var a,i,r,nb:integer; sr: real;
begin
1: writeln('Введите трехзначное число a');
read(a);
r:=0;
nb:=0;
while a>0 do
begin
i:=a mod 10;
r:=r+i;
nb:=nb+1;
a:=a div 10;
end;
if nb=3 then
begin
sr:=r/nb;
writeln('сумма цифр = ',r);
writeln('среднее арифметическое = ',sr);
end
else goto 1;
end.