Program File_4;

Uses CRT;

Var ocenka : 2..5; оценка

sr_ball : Real; средний балл

name : String[15]; фамилия или имя

nomer : String[10]; номер группы

baza : Text; текстовый файл

Begin

ClrScr;

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

ReWrite(baza); открываем файл для записи

Repeat

Write(‘Номер группы:’);

ReadLn(nomer); вводим номер группы

If (Length(nomer) = 0) если длина строки с номером группыравна нулю (сразу нажата клавиша ENTER),

Then Break; то выходим из цикла ввода

Write(baza, nomer:10); если нет, тозаписываем его в файл в 10 позициях (по описанию переменной nomer)

Write(‘Фамилия:’);

ReadLn(name); вводим фамилию

Write(baza, name:15); записываем ее в файл в той же строке в 15 позициях

Write(‘Имя:’);

ReadLn(name); вводим имя

Write(baza, name:15); записываем его в файл в той же строке в 15 позициях

Write(‘Оценка:’);

ReadLn(ocenka); вводим оценку

Write(baza, ocenka:3); записываем ее в файл в той же строке в 3 позициях

Write(‘Ср. балл:’);

ReadLn(sr_ball); вводим средний балл

WriteLn(baza, sr_ball:6:2); записываем его в файл в 6 позициях и переходим на новую строку

Until (False); псевдобесконечный цикл с постусловием

Close(baza); закрываем файл

ReadLn;

End.

Структура созданного файла:

1. для номера группы - 10 позиций,

2. для фамилии или имени - 15 позиций,

3. для оценки - 3 позиции,

4. для среднего балла - 6 позиций.

При чтении разнотипных данных из текстового файла, записанных в одной строке, необходимо учитывать следующие особенности:

1. строки читаются в соответствии с их описанием: если строка описана как String[10], то будут прочитаны ровно 10 позиций,

2. числа читаются до разделителя (пробела, запятой, признака конца строки),

3. в списке ввода оператора чтения Read (ReadLn) формат переменных не указывается.

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

Программа: