Номер группы: ИС-09

⇐ ПредыдущаяСтр 15 из 37Следующая ⇒

Фамилия: Иванов

Имя: Иван

Оценка:4

Ср. балл:4.12

Номер группы: ПО-09

Фамилия: Петров

Имя: Петр

Оценка:5

Ср. балл:4.27

Номер группы: ЗИ-09

Фамилия: Сидоров

Имя: Сидор

Оценка:3

Ср. балл:3.42

Номер группы:

Программа:

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.

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

ИС-09 Иванов Иван 4 4.12

ПО-09 Петров Петр 5 4.27

ЗИ-09 Сидоров Сидор 3 3.42

10 позиций 15 позиций 15 позиций 3 поз. 6 поз.

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

В данном случае для записи в файл выделяется

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

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

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

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

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

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

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

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

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

Программа:

Program File_3;