INFOpudding - ИТ в образовании и не только
Четверг, 04.03.2021, 17:51
» Меню сайта
» Категории раздела
Turbo Pascal [2]
» Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

» Форма входа
Главная » Статьи » Программирование » Turbo Pascal

Работа с файлами в Pascal. Чтение и запись данных
Пример 1. Чтение данных из файла.

program readfile;         {название программы}
var                       {раздел описания переменных}
    ft:text;              {описываем файловую переменню текстового типа (логический файл)}
    s:string;             {описываем переменную строкового типа}
begin                     {начало}
Assign(ft,'c:\test.ini'); {процедура связи логического файла ft с физическим файлом }
Reset(ft);                {процедура открытия логического файла ft для последующего чтения}
while not(eof(ft)) do     {цикл с предусловием. выполняется пока не достигнут конец файла}
begin                     {начало цикла}
Readln(ft,s);             {чтение данный из файла и занесение в переменную s}
writeln(s);               {вывод переменой s на экран}
end;                      {конец цикла}
close(ft);                {закрывает логический файл ft}
end.                      {конец}

Замечание. Файл должен существовать, иначе программа выдаст ошибку.

Пример 2. Запись данных в файл.


program writefile;         {название программы}
var                       {раздел описания переменных}
    fr:text;              {описываем файловую переменню текстового типа (логический файл)}
begin                     {начало}
Assign(fr,'c:\test.out'); {процедура связи логического файла fr с физическим файлом }
Rewrite(fr);              {процедура открытия логического файла fr для последующей записи}
writeln(fr,'test');       {запись строки test в файл}
close(fr);                {закрывает логический файл fr}
end.                      {конец}
Категория: Turbo Pascal | Добавил: anna (03.09.2011) | Автор: Anna
Просмотров: 1754 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
» Поиск
» Учебные заведения
Брянский государственный университет академика И.Г. Петровского Брянская государственная инженерно-технологическая академия
Copyright MyCorp © 2021|Бесплатный конструктор сайтов - uCoz