Для чего нам нужно уметь работать с файлами в Паскаль?
А для того, чтобы Вы могли начать самостоятельно решать задачи на портале и зарабатывать рейтинг.
Ранее мы рассмотрели ввод вывод данных в Паскаль. Ввод данных в этом случае осуществлялся вручную, с помощью клавиатуры и результат мы также смотрель сами в окне вывода. Для того чтобы Вам быть увереным в том, что программа написана правильно необходимо протестировать её.
Для того чтобы наша система автоматически тестировала Ваше решение необходимо, ввод и вывод данных осуществлять из текстовых файлов.
Ввод мы будем осуществлять из файла input.txt
Вывод будем производить в файл output.txt
Это не только наш принцип, по такой же схеме тестируются задачи на всех этапах республиканских олимпиад по информатике. Так что это важный момент, который Вам необходимо освоить.
Для того, чтобы организовать ввод данных из файла нам надо:
(буду писать так, чтобы было легко понять и запомнить, не научно)
1. Завести преременную типа текст и переменную в которую будем записывать прочитанное значение.
2. Связать эту текстовую переменную с файлом из которого будет производиться чтение.
3. Открыть файл для чтения.
4. Теперь можно читать данные. Тут нужно понимать и помнить отличия процедуры read, от readln. Про что я? Если в файле данные записаны в одной строке, через пробел, то мы пользуемся все время процедурой read столько раз, сколько чисел нужно прочитать.
Если же строк несколько, то когда доходим до символа стоящего в конце строки, используем readln. В результате чего будет считано последнее число строки и курсор переместится на новую.
Внимание! Для чтения из файла в скобках необходимо на первом месте указать ту текстовую переменную которую Вы связали с входным файлом, затем список переменных для чтения.
Самой распространенной ошибкой является то что забывают ставить эту переменную (текстовую).
5. Как только мы прочитали все переменные необходимо закрыть файл.
Внимание! Процедура close освобождает переменную t и мы можем её использовать в других целях, например для вывода данных. Если мы её не закрыли (нужно продолжать чтение), то для вывода необходимо будет завести еще одну текстовую переменную.
Все! На этом ввод окончен.
Опишем процесс вывода результатов в текстовый файл.
1. Опять как и в случае со вводом, необзодимо связать текстовую переменную с выходным файлом. Только файл уже называется (для нашего портала) output.txt.
2. Затем необходимо создать или перезаписать файл output.txt
3. Выводим данные. Не забываем ставить файловую переменную в начале списка вывода.
4. Как и в предидущем случае после вывода всех данных необходимо закрыть файл.
Запишем программу целиком.
Практическое задание к уроку.
Ваша задача сейчас состоит в том, чтобы ввести программу в среде программирования Free Pascal (можно и в ABC Pascal) и запустить ее на исполнение.
Если у Вас появилась ошибка типа:
Ошибка ввода/вывода 2: Не удается найти указанный файл (для ABC Pascal)
exited with exitcode=2 (для Free Pascal),
создайте в папке где сохранена ваша программа файл input.txt и введите в него число.
В этой же папке, после удачного (без ошибок) запуска программы на исполнение должен появиться файл output.txt .
Для любознательных!
Имя входного файла input.txt
В файле INPUT.TXT записано два числа N и M
(0 MaxInt div 2 then begin
for i := 1 to k do begin
assign(f, ‘y_’ + num + ‘input.txt’);
for i := 1 to k do
writeln(f, b[i, 1], ‘ ‘, b[i, 2]);
assign(f, ‘y_’ + num + ‘output.txt’);
for i := 1 to n do
Тема: Метод перебора вариантов.
Задача 3: Зернышки
Имя входного файла: Input.txt.
Имя выходного файла: Output.txt.
В банке находятся белые и черные зернышки. Каждый раз из банки вынимают наугад два зернышка. Если они одинакового цвета, то их выбрасывают, а в банку кладут черное зернышко (черных зернышек достаточное количество). Если же зернышки разного цвета, то черное зернышко выбрасывают, а белое возвращают в банку. Эти действия повторяют, пока не останется одно зернышко.
Задание.Напишите программу, которая по известному количеству черных и белых зернышек определяет цвет последнего зернышка.
Входные данные.В единственной строке записаны два числа – количество белых и черных зернышек.
Выходные данные. Единственная строка выходного текстового файла должна содержать цвет оставшегося зернышка: white – если зернышко белое, black – если зернышко черное.
Пример входных и выходных данных:
| Input.txt | Output.txt |
| 4 3 | black |
var white, black:longint;
if odd(white) then writeln(‘white’) else
Тема: Работа с большими числами.
Задача 4: Простые гири
Существуют гири массой 1 г, 2г, …, N г (N ≤ 500000). Напишите программу, которая распределяет эти гири на максимально возможное количество пар, так чтобы общий вес гирь в каждой паре выражался простым числом.
Работа с файлами паскаль – Ввод-вывод данных Pascal
-
Browse: Home / Самоучитель паскаль онлайн / Работа с файлами паскаль – Ввод-вывод данных Pascal
Запись в файл и вывод из него какой либо информации в паскале — это тема , которая часто используется на олимпиадах , в решениях каких либо задач в интернете.
Её суть заключается в том , чтобы компьютер , при проверке , брал значение переменных из входного файла input.txt ( обычно он называется именно так ). А результат работы программы выводился в выходной файл output.txt
Рассмотрим пример :
Нужно взять число из файла и записать квадрат этого числа в другой файл.
Объявляем три переменные . Переменную «a» для хранения числа из файла input.txt . Переменные «t1» и «t2» играют роль связки переменной с файлом , чтобы в последствии мы могли с ними работать . Тип переменных «t1» и «t2» записывается так — text.
Далее в программе мы связываем переменные «t1» и «t2» с файлами input.txt и output.txt.
Команда assign() отвечает за связку. Первый аргумент отвечает за имя переменной , а второй ( через запятую ) отвечает за имя файла.
Команды reset() и rewrite() отвечают за открытие файла для чтения и записи. Узнать больше о циклах здесь
Reset()
открывает наш файл для чтения , чтобы мы могли взять из файла какое либо значение , например значение 4. Чтобы открыть именно тот файл , который нам нужен следует написать имя переменной , к которой он привязан в аргументе . ( reset(t1) ).
Далее записываем в переменную «a» число из файла. Для этого нам понадобится привычная команда readln() , однако теперь мы передаем ей два аргумента . Первый аргумент это имя переменной , к которой привязан файл . Второй аргумент это имя переменной , в которую будет произведена запись.
После того как мы занесли в переменную «а» число , которое было в файле , следует закрыть файл командой close(). Аргумент обозначает какой именно файл нужно закрыть. ( close(t1) ).
Rewrite()
открывает файл для записи в него какой либо информации , однако при этом стирает всю информацию , которая была записана в нем до этого. Для того , чтобы прошлая информация осталась целой , а новая записывалась в конце файла : вместо команды rewrite следует использовать команду append(). Чтобы открыть именно тот файл , который нам нужен , следует записать имя переменной , к которой привязан файл в аргументе . ( rewrite(t2) ).
Далее записываем информацию в output.txt привычной командой writeln() . Но теперь она в аналогии с readln(t1,a) имеет два аргумента . Первый аргумент отвечает за имя переменной , к которой привязан файл , а второй аргумент за информацию которую будут записывать в файл . В нашем случае это квадрат переменной «a». Функция sqr() отвечает за квадрат аргумента.
После следует закрыть второй файл close(t2).
На заметку :
При записи информации в файл , которого не существует на жестком диске , этот самый файл создастся автоматически . Но если мы попробуем открыть файл для чтения , которого нет на жестком диске , то получим ошибку .
Прочие функции :
- eof(t1) — Возвращает истинное значение , когда достигнут конец файла. Хорошим примером работы такой функции служит запись всех чисел в файле. Это осуществляется с помощью цикла while ( not eof(t1) ) do — дословно пока не конец файла t1 делай …
- eoln(t1) — Работает аналогично функции eof(t1) , за исключение того , что оно возвращает истину тогда , когда достигнут конец строки , а не всего файла.
- erase(t1) — Уничтожает файл привязанный к переменной t1.
- rename(t1) — Меняет имя файла , к которому привязана переменная t1 . Перед применением следует закрывать файл командой close().