ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 09.01.2024
Просмотров: 43
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Основные понятия
Файл в Паскале
Состоит из однотипных данных (integer,real и т.д.).
С данными файла можно производить две основные операции: запись и чтение.
Как записать в файл данные разного рода (цифры, буквы?)
1. Описание файла
Описание файла производится в разделе описания переменных, при этом указывается имя файловой переменной (логическое имя файла) и ее тип.
Например:
Var f : file of integer;
или
Var f1:text;
2. Установление соответствия между логическим и физическим именем файла
Assign(логическое имя, физическое имя)
Например, assign(f,’data.txt’);
3. Запись в файл / чтение из файла
Rewrite(f); - открытие нового файла для записи.
Reset(f); - открытие существующего файла для чтения или записи.
Write(f,a); - запись в файл.
Read(f,a); - чтение из файла.
4. Закрытие файла
Close(f);
Производится после окончания работы с файлом, отсутствие этой операции приведет к неправильной работе программы
Проверка конца файла
Eof(f) – логическая функция, ее значение – «истина», если курсор находится в конце файла и «ложно», если это не так.
ПРИМЕР
Записать в файл 10 цифр, вводимых пользователем.
Var F:text;
Var F:text;
a,i:integer;
Begin
Assign(f,’data.txt’);
Rewrite(f);
Writeln(‘введите 10 цифр’);
For i:=1 to 10 do
Begin
Read(a);
Write(f,a)
End;
Close(f);
end.
ПРОГРАММА
ПРИМЕР
Написать программу сложения 5 чисел, записанных в файле.
Var a,s,i:integer;
F:text;
Begin
Assign(f,’primer2.txt’);
Reset(f);
S:=0;
While not eof(f) do
Begin
Read(f,a);
S:=S+a;
End;
Close(f);
Writeln(‘Cумма=’,s)
end.
ПРОГРАММА
Задание на работу
Составить программу, записывающую в файл только четные числа из тех чисел, которые вводит пользователь.
Составить программу, вычисляющую произведение 5 чисел, записанных в файле.
Домашнее задание
Дан файл целых чисел. Перепишите четные элементы файла в один дополнительный файл, а нечетные – в другой.