Умение работы с файлами в первую очередь требуется на олимпиадах по Паскалю. В файлы можно записывать и считывать. Например регистрационные данные. Или база данных для написанной ранее программы для поиска информации по имени. Так вот запись в файл.
program test; var f:text; begin assign (f, 'log.txt'); rewrite (f); write (f, 'Привет файл!'); close (f); end.
assign означает что мы будем работать с файлом. В начале пишем var f:text чтобы указать что f это текстовый файл. далее после assign в скобках пишем f, 'файл.txt' rewrite (f) мы говорим паскалю что будем записывать в файл. Дальше пишем write (f, 'Текст') После конца работы с файлом его обязательно надо закрыть командой close (f) и end.
Заходим в C:\PascalABC.Net и смотрим файл который мы указали. в нем должен быть написан ваш текст. Также можно записывать значения переменных. Считывание: Сначала запишите в файл file.txt слово Тест. Затем пишем:
var f:text; var a:string; begin assign (f, 'file.txt'); //Открываем file.txt reset (f); // Указываем что мы будем читать readln (f, a); //Читаем данные из файла в переменную a write (a); //Выводим значение а на экран close (f); //Закрываем файл read; // Тормозим конец программы чтобы были видны результаты end.
Если на экране появилось слово Тест значит все правильно!
|