>
запит;
кінець.
Після вибору пункту меню і реалізації відповідної функції необхідне повернення в головне меню (крім функції В«кінецьВ», тому що її призначення - вихід з бази даних В«СтудентиВ»).
Введення даних в програму буде здійснюватися в діалозі за запитами програми. Оскільки в базі даних інформація про студентів буде складатися з декількох полів (прізвище студента, ім'я, по батькові, номер групи, додаткова інформація), то для зберігання інформації про одиницю даних використовуємо тип даних - запис (base.txt). p align="justify"> Вихідний файл програми називається STUDBASE.PAS. І призначений для редагування в Turbo Pascal. Також в архіві є виконуваний файл STUDBASE.EXE. Це і є сама робоча програма. Файл бази даних про студентів називається base і має расшіреніе.txt. p align="justify"> Вхід в програму захищений паролем, від несанкціонованого доступу сторонніх осіб. Пароль для входу - В«0В». p align="justify"> Також на самому початку роботи, програма, після введення пароля, попросить нас вказати шлях до файлу базі даних зі студентами, у форматі: диск: Папка base.txt. У нашому випадку, цей файл називається base.txt. Спочатку необхідно вказати диск, на якому в даний момент знаходиться база даних. Потім через символи зворотного слеша «», вказати каталоги розташування, а потім ім'я і розширення самого файлу. Наприклад: F: TP base.txt. br/>
2.3 Лістинг програми
Моя програма, написана мовою Turbo Pascal має наступний початковий вигляд:
program databse; graph, crt; = В«; = string [40]; = array [1 .. 1000] of integer; = record: stdname;: real;: real;: real;; = array [1 .. 1000] of student;: integer;: stdarray;: char;, driver, mode: integer;: string;, backup: text;: searcharray; 1, 2, 3; decryptor (var decstring: stdname );: integer; loop: = 1 to length (decstring) do [loop]: = chr (ord (decstring [loop]) - 121);; intdecrypt (var num: real);: = num - 27;: = num/2;; gpadecrypt (var num: real);: = num + 0.26;: = num * 3.29;: = num/2.69;; encryptor (var encstring: stdname);: integer; loop: = 1 to length ( encstring) do [loop]: = chr (ord (encstring [loop]) + 121);; gpaencrypt (var num: real);: = num * 2.69;: = num/3.29;: = num - 0.26;; intencrypt (var num: real);: = num * 2;: = num + 27;; emptier;: integer; i: = 1 to 1000 do [i]. stdnum: = 0; [i]. semester: = 0; [i]. gpa: = 0; [i]. name: = В«; [i]: = 0;;; searcher;, x, m: integer;, seperator: char;: real; 1, 2, 3, 4;
: write ('Vvedite nomer studenta dlya poiska'); (search); (search); (indata1);: = 1; not eof (indata1) do; (indata1, search1 [x] ); (search = search1 [x]) then1;: = x + 1; eof (indata1) then ('Nomer studenta ne naiden!');
: write ('Vy hotite nayti bol `she?'); (choice); (choice = 'y') or (choice = '...
