– 31 –
группы, номер курса. Из этого файла выбрать данные о студентах только 1-го курса и записать их в файл STUD1.DAT, после чего циклически запрашивать фамилию студента и выводить на экран информацию о всех студентах 1-го курса с такой фамилией.
program PRIMER; type
STUD=record
sFAM : string[30]; |
{фамилия } |
||
sNAME: string[20]; |
{имя |
} |
|
sOTCH: string[20]; |
{отчество} |
||
sGRUP: string[5]; |
{группа |
} |
|
iCURS: integer |
{курс |
} |
|
end; |
|
|
|
var |
|
|
|
F1,fOut: file of STUD; |
|
||
ST |
: STUD; |
|
|
sSF |
: string[30]; |
|
|
C |
: char; |
|
|
begin assign(F1,'STUD.DAT'); assign(fOut,'STUD1.DAT'); reset(F1); rewrite(fOut);
while not eof(F1) do begin read(F1,ST);
if ST.CURS=1 then write(fOut,ST) end;
close(F1);
repeat
writeln('Введите фамилию'); readln(sSF);
seek(fOut,0);
while not eof(fOut) do begin read(fOut,ST);
if ST.FAM=SF then begin
writeln('Студент ', ST.sFAM, ' ',ST.sNAME,' ', ST.sOTCH); writeln('Курс 1, Группа ',ST.iGRUP);
end end;
writeln('Продолжить работу?(N-нет)'); readln(C);
until (C='N') or (C='n');
close(fOut)
end.
Варианты заданий
1. Написать программу, которая выполняет следующие действия по выбору пользователя: 1 – ввод с клавиатуры данных о книгах, имеющихся в библиотеке (данные о книге: фамилия, имя, отчество автора, название книги, год издания, количество страниц), 2 – ввод данных о книгах из файла на диске, 3 – вывод данных о книгах в файл на диске, 4 – по заданному пользователем году издания вывести на экран информацию о всех книгах, изданных в этом году, 5
– конец работы. Максимальное количество книг – 20. Для представления данных об одной книге использовать тип данных record . Использовать типизированный файл, запись которо-
– 32 –
го содержит данные об одной книге.
2. Написать программу, которая выполняет следующие действия по выбору пользователя: 1 – ввод с клавиатуры данных о вакансиях рабочих мест (данные об одной вакансии: профессия, предприятие, подразделение предприятия, адрес предприятия, зарплата), 2 – ввод данных о вакансиях из файла на диске, 3 – вывод данных о вакансиях в файл на диске, 4 – по заданной пользователем профессии выдать данные о всех имеющихся для нее вакансиях, 5 – конец работы. Максимальное количество вакансий – 30. Для представления данных об одной вакансии использовать тип данных record . Использовать типизированный файл, запись которого содержит данные об одной вакансии.
3. Написать программу, которая выполняет следующие действия по выбору пользователя: 1 – ввод с клавиатуры данных о работниках предприятия (данные об одном работнике: фамилия, имя, отчество, стаж, зарплата), 2 – ввод данных о работниках из файла на диске, 3 – вывод данных о работниках в файл на диске, 4 – по заданной пользователем фамилии вывести на экран всю информацию о работнике (если таких работников несколько – вывести информацию о каждом из них), 5 – конец работы. Максимальное количество работников – 25. Для представления данных об одном работнике использовать тип данных record . Использовать типизированный файл, запись которого содержит данные об одном работнике.
4. Написать программу, которая выполняет следующие действия по выбору пользователя: 1 – ввод с клавиатуры данных о студентах группы (данные об одном студенте: фамилия, имя, отчество, день, месяц, год рождения, адрес), 2 – ввод данных о студентах группы из файла на диске, 3 – вывод данных о студентах группы в файл на диске, 4 – найти самого младшего студента в группе, 5 – конец работы. Максимальное количество студентов – 25. Для представления данных об одном студенте использовать тип данных record . Использовать типизированный файл, запись которого содержит данные об одном студенте.
5. Написать программу, которая выполняет следующие действия по выбору пользователя: 1 – ввод с клавиатуры данных о поездах, проходящих через станцию Таганрог (данные об одном поезде: номер поезда, название станции отправления, название станции назначения, время прибытия в Таганрог, время отправления из Таганрога, время прибытия на станцию назначения), 2 – ввод данных о поездах из файла на диске, 3 – вывод данных о поездах в файл на диске, 4 – по заданному пользователем названию станции назначения вывести на экран данные о поездах, идущих до этой станции, 5 – закончить работу. Максимальное количество поездов – 30. Для представления данных об одном поезде использовать тип данных record . Использовать типизированный файл, запись которого содержит данные об одном поезде.
6. Написать программу, которая выполняет следующие действия по выбору пользователя: 1 – ввод с клавиатуры данных об абонентах городской телефонной станции (данные об одном абоненте: фамилия, имя, отчество, адрес, год рождения, телефон), 2 – ввод данных об абонентах из файла на диске, 3 – вывод данных об абонентах в файл на диске, 4 – по заданному пользователем номеру телефона вывести на экран всю информацию об абоненте, 5 – конец работы. Максимальное количество абонентов – 50. Для представления данных об одном абоненте использовать тип данных record . Использовать типизированный файл, запись которого содержит данные об одном абоненте.
7. Написать программу, которая выполняет следующие действия по выбору пользователя: 1 – ввод с клавиатуры данных об абитуриентах, сдавших вступительные экзамены (данные об одном абитуриенте: фамилия, имя, отчество, год рождения, адрес, количество набранных баллов), 2 – ввод данных об абитуриентах из файла на диске, 3 – вывод данных об абитуриентах в файл на диске, 4 – по заданному пользователем проходному баллу выдать на экран всю информацию об абитуриентах, не прошедших по конкурсу, 5 – закончить работу. Максимальное количество абитуриентов – 30. Для представления данных об одном абитуриенте использовать тип данных record . Использовать типизированный файл, запись которого содержит данные об одном абитуриенте.
8. Написать программу, которая выполняет следующие действия по выбору пользователя: