Разные задачи

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

TYPE NN=RECORD

NAME:TRING;

HIGH:INTEGER;

END;

где через точку с запятой перечисляются типы и, возможно, размер полей записи с данным типом NN. Для задания отдельной записи данного типа и файла, состоящих из таких записей, нужно вос­пользоваться секцией описания переменных: VAR F1:FILE OF NN;

N:NN;

Помните, что нельзя сразу задать VAR F1:FILE OF RECORD;

В PASCAL 7.0 такое описание приводит к ошибке!

Обращение к полям записи N организуется как N.NAME и N.HIGH.

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

ИВАНОВ 177

ПЕТРОВ 181

…

PROGRAM PRG13_1;

TYPE NN=RECORD

NAME:STRING;

HIGH:INTEGER;

END;

VAR F1:FILE OF NN;

N:NN;

I:INTEGER;

BEGIN

ASSIGN(F1,'C:\r1.TXT');

WRITELN('BBЕДИTE ИНФОРМАЦИЮ В ФАЙЛ');

REWRITES(F1);

FOR l:=1 TO 4 DO

BEGIN

READLN(N.NAME,N.HIGH);

WRITE(F1,N);

END;

WRITELN('ФАЙЛ');

RESET(F1);

FOR l:=1 TO 4 DO

BEGIN

READ(F1,N);

WRITELN(N.NAME,' '.N.HIGH);

END;

CLOSE(FI);

END.

Для решения задачи:

- формируем тело программы и описываем переменные;

- привяжем файл rl.TXT к файловой переменной F1 и откро­ем его на запись;

- организуем ввод полей N.NAME и N.HIGH записи с клавиа­туры и занесем их как целую запись N в файл;

- открываем F1 на чтение;

- организуем последовательный просмотр по считыванию элемен­тов файла F1 и записи их на экран дисплея в виде двух полей;

- закрываем файл.

Переменные:

Fl - файл записей;

N - очередная запись;

I - вспомогательная переменная.

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

ИВАНОВ 177

ПЕТРОВ 181

…

…

Определить фамилию самого маленького и самого высокого ученика.