ClrScr;. Assign(f_text, ‘d:\User\f_text.txt’);

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( файловая переменная, имя переменной);

Во втором случае после чтения из файла значения переменной текстовый курсор переходит в начало новой строки (как на экране терминала).

Внимание! Переменная, указанная в операторах чтения, должна совпадать по типу со считываемым из файла значением.

Пример: прочитать из созданного ранее файла информацию и вывести ее на экран.

Программа: