Создание БАЗЫ ДАННЫХ в Pascal (Часть4).

В предыдущих уроках мы описали типы данных переменные и процедуры, необходимые для создания базы данных. В этом уроке мы опишем основную программу, которая позволяет ввести с клавиатуры  данные для 20-и сотрудников предприятия и сохранить эти данные в файл.

---

48. begin
49. clrscr;
50. writeln('Введите данные о сотрудниках.');
51. writeln;
52. for i:=1 to 20 do begin
53. with sotrudn[i] do
54. begin
55.       Writeln('Введите фамилию сотрудника.');
56.       readln(LD.fam);
57.       Writeln('Введите имя сотрудника.');
58.       readln(LD.imja);
59.       Writeln('Введите отчество сотрудника.');
60.       readln(LD.otch);
61.       Writeln('Введите год рождения сотрудника.');
62.       readln(LD.godrog);
63.       Writeln('Укажите семейное положение  сотрудника:');
64.       Writeln('1-сотрудник женат/замужем, 2-сотрудник  холост/не замужем.');
65.       readln(LD.sem_pol);
66.       Writeln('Укажите количество детей у сотрудника.');
67.       readln(LD.kol_det);
68.       Writeln('Введите номер отдела, в котором работает сотрудник.');
69.       readln(RD.nom_otd);
70.       Writeln('Укажите должность сотрудника');
71.       readln(RD.dolgnost);
72.       Writeln('Укажите дату поступления сотрудника на службув формате "дд.мм.гг.');
73.       readln(RD.date_nach_rab);
74.       Writeln('Укажите уровень доступа сотрудника к секретной информации.');
75.       readln(RD.secret);
76. stag_rabot;
77.       writeln ('Стаж работы сотрудника ',RD.stag,' лет.');
78. zar_pl;
79.       writeln ('Заработная плата сотрудника-',RD.zar_plata:5:0);
80. end;
81. assign(base, 'D:\base_of_data.dat');
82. rewrite(base);
83. for i:=1 to 20 do
84. write(base, sotrudn[i]);
85. close (base);
86. end.

---

Строка №48. Здесь начинается раздел операторов основной программы.

Строка №49. Процедура Clrscr очищает экран перед выводом на него сообщения.

Строка №50. Выводим на экран сообщение.

Строка №51. Пропускаем строку (в целях эстетичности).

Строка №52. Записываем цикл, который будет выполняться 20 раз. В цикле будут выполняться все операторы, идущие после слова begin.

Строка №53. Записываем оператор присоединения with..do для того, чтобы можно было обращаться к компонентам записи без указания имени переменной (в нашем случае переменой «sotrudn»).

Строка №55. Выводим на экран сообщение.

Строка №56. Вводим с клавиатуры данные.

Строка №57-№75. Также выводим на экран сообщение и вводим данные с клавиатуры.

Строка №76. Здесь записываем имя процедуры, которая расчитывает стаж работы сотрудника. Эту процедуру мы написали в прошлом уроке. В результате работы этой процедуры в переменную «sotrudn.RD.stag» будет записан стаж работы сотрудника.

Строка №77. Выводим значение переменной «sotrudn.RD.stag» на экран.

Строка №78-№79. В результате работы процедуры zar_pl будет рассчитана заработная плата сотрудника. Ее значение также будет выведено на экран.

Строка №80. Конец раздела операторов.

Строка №81. Связываем файловую переменную «base» с физическим файлом «base_of_data.dat», который расположен на диске D.

Строка №82. Открываем этот файл для записи в него информации (если файла «base_of_data.dat» не существует на диске D, то он будет создан автоматически).

Строка №83. Записываем цикл.

Строка №84. Записываем в файловую переменную «base» (т.е. фактически в файл «base_of_data.dat» информацию из переменной «sotrudn» (т.е. всю информацию, которую мы ввели с клавиатуры).

Строка №85. Закрываем файл.

После запуска программы на экран поочередно будут выводиться сообщения и пользователь должен ввести данные.

Ниже представлена таблица, согласно которой я вводил данные.

---

Предыдущая статья: Примеры использования различных операторов цикла.Часть 3.
Оглавление: Лекции по Pascal.
Следующая статья: Примеры использования различных операторов цикла.Часть 5.

---