Программирование на языке высокого уровня TURBO PASCAL. Краснов С.В. - 44 стр.

UptoLike

Составители: 

44
WRITELN('ВВЕДИТЕ НАИМЕНОВАНИЕ ТЕХНИКИ ',N:1,'
НАИМЕНОВАНИЙ');
FOR I:=1 TO N DO {цикл для ввода строк текста с клавиатуры в файл}
BEGIN
WHILE NOT EOLN DO {цикл для ввода одной строки текста в файл}
BEGIN
READ(C); {ввод текста в переменную C}
WRITE(SP,C); {запись текста из переменной в файл}
END; {конец внутреннего цикла}
READLN;
WRITELN(SP); {запись в файл}
END; {конец внешнего
цикла}
CLOSE(SP); {закрытие фала}
WRITELN('СПИСОК ТЕХНИКИ'); {Вывод сообщения}
RESET(SP); {открытие файла на чтение}
WHILE NOT EOF (SP) DO {внешний цикл чтения строк}
BEGIN
WHILE NOT EOLN(SP) DO {Внутренний цикл чтения одной строки}
BEGIN
READ(SP,C); {чтение во вспомогательную переменную}
WRITE(C) {вывод на экран}
END; {конец внутреннего цикла}
READLN(SP); {чтение из файла}
WRITELN; {переход на новую строку}
END {конец внешнего цикла}
END. {конец файла
}
Контрольные вопросы и задания
Вопросы:
1. Что такое файл?
2. Какие типы файлов применяются в TP?
3. Основные функции для работы с файлами.
4. Основные правила использования файлов в программах.
5. Назовите общие и отличительные черты типизированного и текстового
файла.
6. Зачем используется специальная файловая переменная? Как
устанавливается соответствие файловой переменной файлу во внешней
памяти?
7. Что общего у процедуры Reset и Rewrite и чем они отличаются?
8. Какие отличия существуют в использовании процедуры Reset при
открытии различных типов файлов (текстовых, типизированных)?
9. Зачем применяется процедура Close?