Прокомментировать программы с файловым типом данных;
Цели урока:
Файл – это самостоятельная последовательность символов , записанная в постоянную память компьютера
Файл – это определенная выделенная область информации
Существование файлов не зависит от работы какой – либо программы
Файлы никуда не исчезают даже при включении или выключении компьютера
файл
В разделе переменных VAR,
либо в разделе типов TYPE
Открывает
файл для
чтения
Создает и открывает новый файл для записи
Закрывает открытый файл
Rename
Reset
Close
Rewrite
Eof
Assign
Erase
Eoln
Rename
Reset
Close
Rewrite
Eof
Assign
Erase
Eoln
Процедуры для работы с файлами :
Доступа различных программ к одним и тем же данным
Обработка больших массивов данных , которые невозможно целиком разместить в оперативной памяти компьютера
Выборочный доступ программ к данным разного типа
Использование файлов для текста
Обработка больших массивных данных по очереди
( выбрать правильные определения )
Правила:
Процедура CLOSE используется следующим образом: как матрешка , то что открыли последним , закрываем первым…
Можем открыть с помощью блокнота
При необходимости можем отредактировать
F1 – имя файловой переменной
BOX.TXT – имя файла
TXT – указывает ,что это текстовый файл
Имя файловой переменной F1 связывается с именем самого файла BOX.TXT , используя процедуру ASSIGN
Имя файла BOX.TXT- только используется в процедуре ASSIGN, дальше в программе только имя файловой переменной F1
F1- имя файловой переменной
FFF.TXT- имя файла, куда будет занесена информация
PRIBET- информация,
заносимая в файл FFF.TXT
Тип файла TEXT – вносится информация любого типа
PROGRAM DELO;
VAR F1:TEXT;
X:STRING;
N:………..;
BEGIN
WRITELN;WRITELN;
ASSIGN(F1,'FFF.TXT');
RESET(…..);
WHILE NOT EOF(F1) DO
BEGIN
READLN(F1,…..);
WRITELN(X);
….:=LENGTH(X);
WRITELN(' DLINA CLOBA N= ',N)
END;
CLOSE(….)
END.
Задача: распечатать информацию из файла на экран и подсчитать кол-во символов этой информации. В программе вставить пропущенное.
1.Написать программу двумя способами , которая записывает в файл SNEG.GGG 3 числа .
PROGRAM DELO;
VAR S:TEXT;
X:INTEGER;
BEGIN
WRITELN;WRITELN;
ASSIGN(S,'SNEG.GGG ');
REWRITE(S);
WRITE(S,5);
WRITE(S,' ');
WRITE(S,125);
WRITE(S,' ');
WRITE(S,-35);
WRITE(S,' ');
CLOSE(S)
END.
PROGRAM DELO;
VAR S:TEXT;
X,I:INTEGER;
BEGIN
WRITELN;WRITELN;
ASSIGN(S,'SNEG.GGG ');
REWRITE(S);
FOR I:=1 TO 3 DO
BEGIN
WRITE(' BBEDEM CHICLO ');
READLN(X);
WRITELN(S,X)
END;
CLOSE(S)
END.
листинги 2 программы
PROGRAM DELO;
VAR M:TEXT;
X,I,N,S:INTEGER;
CP:REAL;
BEGIN
WRITELN;WRITELN;
ASSIGN(M,'MOST.TTT ');
REWRITE(M);
WRITE(' BEDEM KOL-BO CHICEL N= ');
READLN(N);
WRITELN;
FOR I:=1 TO N DO
BEGIN
WRITE(' BBEDEM CHICLO ');
READLN(X);
WRITE(M,X,' ');
END;
S:=0;
RESET(M);
WHILE NOT EOF(M) DO
BEGIN
READ(M,X);
S:=S+X
END;
CP:=S/N;
WRITELN(' CP.ZN CP= ',CP:5:2);
CLOSE(M)
END.
Прокомментировать программы с файловым типом данных;
Вот наши цели:
Достигли ли мы этих целей?
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть