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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

42
Где:
ASSIGN – Логическое подключение из файла TXT, DAN к F1.
REWRITE (F1) {RESET (F1):} – Открытие файла для записи {чтения}
текста.
WRITE (F1, N) {READ (F1, N):} – Запись(чтение) текста в файл на
магнитный диск.
CLOSE (F1) – Закрытие файла.
Пример записи данных с клавиатуры во вспомогательную переменную,
затем сохранение на магнитный диск показан на левой стороне диаграммы.
Пример чтения данных с магнитного диска во вспомогательную
переменную, затем вывод из нее на экран показан на правой стороне
диаграммы.
Монитор
N N
Задача № 10. Постановка задачи: Составить программу формирования
файла F, состоящего из целых чисел. Программа показывает работу с файловой
переменной F и внешним файлом DAT.TXT. В файл заносятся N= 6 записей,
каждая из которых представляет собой
целое число.
Программа решения задачи имеет вид:
PROGRAM ZAP_TIP; {Имя программы}
VAR {Раздел описания переменных}
F:FILE OF INTEGER;
X,I:INTEGER;
begin
ASSIGN(F,'DAT.TXT');{подключение файла 'DAT.TXT' к файловой
переменной F}
REWRITE(F); {открытие файла на запись}
WRITELN(' ВВЕДИТЕ 6 ЦЕЛЫХ ЧИСЕЛ '); {Вывод сообщения}
FOR I:=1 TO 6 DO {цикл для ввода данных}
BEGIN
READ(X); {чтение с клавиатуры}
WRITE(F,X); {запись на магнитный диск в файл}
END; {конец цикла}
CLOSE(F); {закрытие файла
}
END. {Конец программы}
клавиатура
чтение с клавиатуры READ(N)
запись на магнитный диск
TXT.
DAN
WRITE (F1, N) READ (F1, N)
Чтение из файла READ (F1, N),
вывод на эк
р
ан WRITE
(
N
)

Страницы