СОЗДАНИЕ БАЗЫ ДАННЫХ С ИСПОЛЬЗОВАНИЕМ ЯЗЫКА TURBO PASCAL И РАБОТА С НЕЙ
№11,
Технические науки
Галиаскарова Гузелия Рафкатовна (Кандидат физико-математических наук)
Ключевые слова: БАЗЫ ДАННЫХ; ТУРБО ПАСКАЛЬ; ПРОЦЕДУРЫ; DATABASES; TURBO PASCAL; PROCEDURE.
База данных — это структура определенным образом построенная, предназначенная для хранения информации. В современных базах данных хранятся не только данные, но и информация.
Одно из мощных средств БД состоит в том, что информацию можно упорядочивать по тому критерию, который задает пользователь. В Turbo Pascal для создания базы данных используется специальный тип данных –запись (record). Этот тип данных позволяет создавать объекты с полями разных типов данных.
Рассмотрим работу базы данных Реки. Эта база данных имеет три поля: имя реки, длина реки, и часть света, где протекает река.
В работе [1] рассмотрены процедуры создания меню, чтения данных из текстового файла, запись измененных данных в текстовый файл.
В этой работе более подробно остановимся на процедурах добавления новой записи, удаление записи, поиск информации по названию реки.
Первой рассмотрим процедуру добавление записи. Добавление записи описывается следующей процедурой vvod. Синтаксис процедуры можно записать следующим образом:
procedure vvod;
begin
n:=m+1;
if n>10 then n:=10;
writeln (‘Vvod Dannyh’);
writeln;
write (‘Nazvanie Reki: ‘);
readln(a[n].name1);
write (‘Dlina: ‘);
readln(a[n].name2);
write (‘Chast Sveta: ‘);
readln(a[n].name3);
end;
На рис.1 представлен пример работы данной процедуры. Вводятся новые данные. Сначала у пользователя запрашивается имя реки, затем ее длина (необходимо помнить, что это поле должно иметь целочисленный тип), а затем часть света, где протекает эта река.
Рис.1. Пример работы процедуры добавление записи
Вывод информации описывается следующей процедурой:
procedure vivod;
var i:integer;
begin
write (‘Vvivod Dannyh’);
writeln;
write (‘Nazvanie’ :10, ‘ ‘);
write (‘Dlina’:10, ‘ ‘);
writeln (‘Chast Sveta’);
i:=1;
while length(a[i].name1)<>0 do
begin
write (a[i].name1:8, ‘ ‘);
write (a[i].name2:15, ‘ ‘);
writeln (a[i].name3);
i:=i+1;
writeln;
if i mod 5=0 then
begin
writeln(‘press enter’);
readln;
end;
end;
end;
На рис.2 представлен пример работы данной процедуры. Выводятся все данные которые хранятся в нашей базе данных. Если данных больше 7, то нужно нажать клавишу Enter, и на следующей странице покажутся оставшиеся записи.
Рис.2. Пример работы процедуры вывод записи
Удаление информации описывается следующей процедурой del. Для удаления записи необходимо ввести номер записи, которую мы хотим удалить. Процедура удаления записи в нашем случае выглядит следующим образом:
procedure del;
var k,i:integer;
begin
writeln (‘Nomer Zapisi: ‘);
writeln(n);
readln(k);
if n= 0 then m:=n;
if k = n then a[k].name1:=»;
for i:=k to n-1 do
a[i]:=a[i+1];
n:=n-1;
end;
Поиск информации описывается следующей процедурой search. Для поиска реки необходимо ввести ее название, тогда результатом выполнения процедуры будет вывод информации по данной реке.
procedure search;
var i:integer;
s:string;
name1:string;
begin
writeln(‘Vvod Nazvanie Reki ‘);
readln(s);
write(‘Nazvanie’:10, ‘ ‘);
write(‘Dlina’:10, ‘ ‘);
writeln(‘Chast Sveta’);
if n= 0 then m:=n;
for i:=1 to n do
if a[i].name1=s then
begin
write(a[i].name1:8, ‘ ‘);
write(a[i].name2:15, ‘ ‘);
writeln(a[i].name3);
writeln;
end;
end;
На рис.3 представлен пример работы данной процедуры. Вводится название реки Одер и на экране появляется информация об этой реке.
Рис.3. Пример работы процедуры поиск записи
В заключение, хотелось отметить, что в данной статье была рассмотрена работа по построению работы базы данных реки. Также описаны основные возможности работы нашего приложения.
Список литературы
- Фаронов В.В. Турбо Паскаль 7.0. Начальный курс. Учебное пособие. -М.: «Нолидж», — 1997. — 616 с.
- Галиаскарова Г.Р. Создание базы данных с использованием языка Turbo Pascal. // Novaum.ru. — 2017. — № 10. — С. 49-51.