 |
|
Номер группы: ИС-09
Фамилия: Иванов
Имя: Иван
Оценка:4
Ср. балл:4.12
Программа:
Program File_2;
Uses CRT;
Var ocenka : 2..5; оценка
sr_ball : Real; средний балл
name : String[15]; фамилия или имя
nomer : String[10]; номер группы
f_text : Text; текстовый файл
Begin
ClrScr;
Assign(f_text, ‘d:\User\f_text.txt’);
ReWrite(f_text); открываем файл для записи
Write(‘Номер группы:’);
ReadLn(nomer); вводим номер группы
WriteLn(f_text, nomer); записываем его в файл
Write(‘Фамилия:’);
ReadLn(name); вводим фамилию
WriteLn(f_text, name); записываем ее в файл с новой строки
Write(‘Имя:’);
ReadLn(name); вводим имя
WriteLn(f_text, name); записываем его в файл с новой строки
Write(‘Оценка:’);
ReadLn(ocenka); вводим оценку
WriteLn(f_text, ocenka:3); записываем ее в файл с новой строки в 3 позициях
Write(‘Ср. балл:’);
ReadLn(sr_ball); вводим средний балл
WriteLn(f_text, sr_ball:6:2); записываем его в файл с новой строки в 6 позициях
Close(f_text); закрываем файл
ReadLn;
End.
Структура созданного файла:
ИС-09
Иванов
Иван
4.12
Внимание! Все данные желательно записывать в текстовый файл форматным
способом.
Чтение данных из открытого для чтения файла осуществляется операторами:
Read( файловая переменная, имя переменной);
ReadLn( файловая переменная, имя переменной);
Во втором случае после чтения из файла значения переменной текстовый курсор переходит в начало новой строки (как на экране терминала).
Внимание! Переменная, указанная в операторах чтения, должна совпадать по типу со считываемым из файла значением.
Пример: прочитать из созданного ранее файла информацию и вывести ее на экран.
Программа:
Program File_3;
Uses CRT;
Var ocenka : 2..5; оценка
sr_ball : Real; средний балл
name : String[15]; фамилия или имя
nomer : String[10]; номер группы
f_text : Text; текстовый файл
Begin
ClrScr;
Assign(f_text, ‘d:\User\f_text.txt’);
ReSet(f_text); открываем файл для чтения
ReadLn(f_text, nomer); читаем из файла номер группы
WriteLn(nomer); выводим его на экран
ReadLn(f_text, name); читаемиз файла фамилию
WriteLn(name); выводим ее на экран
ReadLn(f_text, name); читаем из файла имя
WriteLn(name); выводим его на экран
ReadLn(f_text, ocenka); читаем из файла оценку
WriteLn( ocenka:3); выводим ее на экран
ReadLn(f_text, sr_ball); читаем из файла средний балл
WriteLn( sr_ball:6:2); выводим его на экран
Close(f_text); закрываем файл
ReadLn;
End.
На экран будет выведено:
ИС-09
Иванов
Иван
4.12
Внимание! Функции и процедуры, используемые при работе с типизированными файлами (FileSize, FilePos, Seek, Truncate), для текстовых файлов не используются.
Сложнее работать с текстовыми файлами, в каждой строке которых записаны разнотипные данные.
Пример: создать текстовый файл baza.txt, в каждой строке которого хранить следующие данные:
1. номер учебной группы
2. фамилию студента
3. имя студента
4. его оценку по информатике
5. средний балл сдачи сессии
Другими словами, необходимо создать базу данных на основе текстового файла.
Заполнить эту базу данных информацией о нескольких студентах, конец ввода данных – вместо очередного номера группы просто нажать на клавишу ввода (ввести строку нулевой длины).
Интерфейс: