11.1.3. Приклад обробки інформації в файлах з типом

Організувати файл прямого доступу "Записник", який містить прізвище знайомого і його номер телефону. Вияснити, чи є в записнику дані про знайомого із заданим номером телефону. Якщо є, то надрукувати його прізвище, якщо нема – надрукувати повідомлення: "Знайомого з таким прізвищем нема у записнику".

Поставлену задачу можна розв'язати за допомогою такої програми на PASCAL.

Приклад:

Uses Crt;

Type TelRef = Record

Name : String[20];

Number : Word;

end;

TelRefBase = File of TelRef;

Var F : TelRefBase;

R : TelRef;

S : String;

N, i : Word;

Procedure Create;

Begin

Rewrite(F);

i:=1;

Writeln('Символ $ - кiнець створення записника.');

While True do

begin

Writeln('Введiть прізвище ',i,' знайомого');

Readln(S);

if S[1]='$'

then begin

Close(F);

Exit

end;

R.Name:=S;

Writeln('Введiть номер його телефону');

Readln(N);

R.Number:=N;

Write(F,R);

i:=i+1

end

end;

Procedure ReadBase;

Begin

Reset(F);

Writeln('Введiть прізвище знайомого');

Readln(S);

While not Eof(F) do

begin

Read(F,R);

if R.Name=S

then

begin

Writeln('Номер телефона ',R.Number);

Exit

end;

end;

Writeln('Знайомого з таким прізвищем нема у записнику')

end;

BEGIN

ClrScr;

Writeln('Задайте iм"я файлу-записника');

Readln(S);

Assign(F,S);

While i<>3 do

begin

Writeln('Виберiть режим роботи:');

Writeln('1 - Створення записника');

Writeln('2 - Перегляд записника');

Writeln('3 - Кiнець роботи');

Readln(i);

Case i of

1 : Create;

2 : ReadBase;

end;

end;

END.

В поданій програмі процедура Create призначена для створення файлу з заданим типом, який являє собою певну базу даних – телефонний довідник. Процедура ReadBase дозволяє переглядати створену базу даних і вибрати з неї записи, що відповідають певній ознаці.

11.2. Завдання

1 - 6. Організувати файл прямого доступу "Відомість успішності студентів", компонентами якого є: прізвище, номер групи, екзаменаційні оцінки (аналіз, алгебра, програмування):

1. Підрахувати "якість" успішності, тобто процент студентів, які здали екзамени на "4" і "5".

2. Вивести не екран назву предмета, який був зданий найкраще.

3. Визначити середній бал екзаменаційної сесії для кожної групи і вивести на екран назви груп в порядку спадання середнього балу.

4. Вивести на екран прізвище та групу студентів, які успішно здали сесію.

5. Вивести на екран прізвища та групу студентів, які мають хоча б одну заборгованість.

6. Вивести не екран назву предмета, який був зданий найгірше.

7 - 10. Організувати файл прямого доступу "KADR", який містить інформацію про працівників і компонентами якого є: прізвище, рік народження, стать (Ч,Ж), освіта, професія:

7. Вивести прізвища працівників. рік народження яких дорівнює заданому.

8. Вивести прізвища працівників з вищою освітою і їх професію.

9. Вивести на екран дані про всіх жінок даного підприємства (прізвище, рік народження, освіта, професія).

10. Вивести на екран дані про всіх працівників підприємства пенсійного віку.

11 – 12. Організувати файл прямого доступу "Бібліотечний каталог", компонентами якого є: назва книги, автор, видавництво, рік видання:

11. Вивести на екран дані про всі книги даного автора, які є в каталозі.

12. Вияснити, чи є книга "Інформатика" серед книг каталогу. Якщо є, то вивести на екран дані про неї; якщо ні, то вивести повідомлення "Книги "Інформатика" в даному каталозі немає".

13 - 14. Організувати файл прямого доступу "Асортимент", який містить інформацію про наявність продуктів в магазинах даного населеного пункту. Компонентами файлу є: назва продукту (цукор, масло, сир, ковбаса), кількість (в кг), номер магазину:

13. Для вказаного виду продукту вивести номер магазину, де він є в наявності і його кількість.

14. Вивести на екран назви всіх продуктів, які є в наявності в заданому магазині і їх кількість.

15 - 18. Організувати файл прямого доступу "Клас", компонентами якого є: прізвище учня, стать (Ч,Ж), ріст:

15. Визначити середній ріст дівчат в класі.

16. Вивести на екран прізвище хлопця, який є найвищим в класі і його ріст.

17. Вивести на екран прізвище найвищої та найнижчої дівчини в класі.

Організувати файл прямого доступу "Довідник", який містить інформацію про наявність ліків в аптеках міста. Компонентами файлу є: назва ліків, номер аптеки, в якій ці ліки є, адреса аптеки. Для заданих ліків вивести на екран номера аптек, де вони є в наявності, та адреси цих аптек.

18. Організувати файл прямого доступу, компонентами якого є: прізвище жителя, місто, вулиця, номер дому та номер квартири, де цей житель проживає. Вивести на екран прізвища двох жителів із заданого файлу, які живуть в різних містах по однаковій адресі.