Сборник заданий для практических занятий по информатике. Крупенников О.Г - 84 стр.

UptoLike

83
BEGIN;
CLRSCR;
ASSIGN(F, ’D:\SILA.DAT’);
REWRITE(F);
WRITE(‘ВВЕДИТЕ PY:’);
READLN(PY);
WRITE(‘ВВЕДИТЕ PZ:’);
READLN(PZ);
PI:=SQRT(SQR(PY)+SQR(PZ));
WRITELN(‘РЕЗУЛЬТАТЫ РАСЧЕТА’);
WRITELN(F, ‘РЕЗУЛЬТАТЫ РАСЧЕТА’);
WRITELN;
WRITELN(F);
WRITELN(‘PY=’, PY:4:2, ‘PZ=’, PZ:4:2, ‘PИ=’, PI:4:2 );
WRITELN(F, ‘PY=’, PY:4:2, ‘PZ=’, PZ:4:2, ‘PИ=’, PI:4:2 );
CLOSE(F);
READKEY
END.
Типизированные файлы. При работе с ними наиболее часто приме-
няют следующие процедуры и функции:
– READ (<F>,<список ввода>) – процедура чтения информации из
файла. То же, что и процедура READ для текстовых файлов, но перемен-
ные, в которые считывается информация, должны быть того же типа, что
и компоненты файла.
– SEEK (<F>,<NOM>) – процедура настройки на требуемую компо-
ненту файла. Осуществляет настройку на компоненту файла, с которым
связана файловая переменная F. Компонента файла определяется номером
NOM, причем нумерация компонент начинается с нуля.
– TRUNCATE (<F>) – процедура удаления части файла, начиная с те-
кущей позиции. Удаляет часть файла, начиная с текущей позиции и до его
конца.