Работа с базами данных

Отчет по информатике

на тему

«Работа с базами данных»

ученицы 11 «б» класса

лицея ТМОЛ при ТРТУ

Шаповаловой Юлии

Таганрог, 2001 г.

Содержание.

Содержание…………………………………………2

Цель работы…………………………………………3

О языках программирования.…………………3

Работа с файлами…………………………………4

Работа со строками.………………………………5

Основные проблемы………………………………5

Несущественные замечания……………………6

Приложение…………………………………………7

Цель работы: написать на языке Turbo Pascal про-грамму, соз¬дающую базу данных – список некоторой кон-кретной группы людей (в данном случае) с указанием их имени, фамилии, пола и краткой характеристики, а затем программу, извлекающую эти сведения из списка путем ввода какой-то конкретной характери¬стики нужного чело-века (нескольких людей).

Немного о языках программирования.

Все современные языки делятся на две группы: интер-претирующие и компилирующие. В основе работы языков первого типа лежит построчный перевод в биты – интер-претация. В результате программа существует только в виде текстового файла. Компилирующие языки считаются в на-стоящее время более перспективными. Сначала исходный текст обрабатывается компилятором, в результате чего по-является объектный файл, обрабатываемый в последствии программой-компоновщиком, после чего появляется испол-няемый файл – конечный продукт работы. К компилирую-щим языкам относят и Pascal.

Собственно, программа.

Программа, как уже сказано представляет собой спи-сок некоторого количества людей, который можно обнов-лять, а также из которого можно извлекать данные на како-го-либо человека, задав предварительно одну из его харак-теристик (фамилию, имя или пол). Так, например, при по-мощи этой программы можно получить список всех особ мужского или женского (по выбору) пола, с полной характе-ристикой каждого, данные на человека с заданной фамили-ей и т. д.

Работа с файлами.

Для работы с файлами мною были использованы следую-щие функции:

 Assign – функция, ассоциирующая имя файла с неко-торой переменной, с которой и идет последующая ра-бота.

 Reset – функция, открывающая уже существующий файл для чтения из него.

 Rewrite – функция, создающая новый файл, или пере-записывающая старый.

 Readln – чтение из указанного файла строки с перехо-дом на следующую строку.

 Writeln – запись в указанный файл строки с переходом на следующую строку.

Вообще, файл рассматривается не просто как несколько строк, а как запись (record), что значительно упрощает ра-боту с файлами.

Работа со строками.

Для работы со строками в файле я использовала две ос-новные функции: pos и copy. Функция pos предназначена для поиска какого-либо элемента в заданной строке, я ее использовала для поиска спецсимволов, которыми разделе-ны данные на человека. Функция copy копирует из одной строки в другую некоторое заданное количество символов. При помощи функции pos я ищу знак, которым заканчива-ется определенный параметр, при помощи функции copy копирую в вспомогательную строку все символы до этого знака, а затем сравниваю с введенным критерием.

Проблемы, с которыми я столкнулась при написании программы.

 Разделение параметров при хранении данных в файле.

Столкнувшись с этой проблемой, я пошла по пути наи-меньшего сопротивления, и просто принудительно раздели-ла параметры специальными символами (*, &, $). Это позво-лило легко организовывать проверку окончания раздела. Само собой, этот способ неэффективен при большом коли-честве разделов и большом объеме информации, хранящей-ся в них, но в данном случае вполне сойдет. Есть, правда, еще один недостаток: пользователь может случайно ввести эти спецсимволы в процессе использования программы, не подозревая о том, что это как-то скажется на работе про-граммы. Но я посчитала эти недостатки несущественными. Был еще вариант: располагать параметры каждый раз с но-вой строки. У этого способа есть свои достоинства (напри-мер, упрощается процесс считывания и записи в базу дан-ных), но есть и недостатки: значительно усложняется про-верка перехода от одного параметра к другому.

 Расположение данных в файлах.

Вообще, решений у этой проблемы великое множество. Од-но из них заключается в том, чтобы записывать данные на каждого человека записываются в отдельный файл, а в файле записывать параметры каждый с новой строки. Дос-тоинства этого способа: говорят, что он эффективен (сама я не пробовала), недостатки: способ абсолютно неэффективен при большом количестве людей, так как количество файлов не должно быть слишком большим. Кроме того, создание каждого нового досье влечет за собой выполнение слишком сложных для такой простой задачи операций (считать из особого файла число – количество уже созданных файлов, затем, использовав его при создании нового файла (само число вносится в имя файла), увеличить на 1), и записать файл на место предыдущего числа).

Есть еще вариант: каждый параметр на все элементы спи-ска хранится в одном файле. Достоинства: небольшое коли-чество файлов и упрощение процесса поиска. Недостатки: запись в файлы нового досье становится достаточно трудо-емким занятием.

Оба эти способа я посчитала громоздкими, поэтому все дан-ные на всех людей хранятся у меня в одном файле, раз-деленные, как уже говорилось соответствующими символа-ми. Достоинства: во многом упрощается работа с файлами (не нужно мучится с их открытием и закрытием). Правда, файл может получиться слишком большим. Других недос-татков у своего пути я не вижу.

Несущественные замечания.

Хочу повиниться перед проверяющим: вопреки настоя-тельной просьбе нашего учителя информатики вместо од-ной программы я написала две: первая заносит данные в файл, вторая извлекает их оттуда. Не считаю это серьезным недостатком своей работы, так как при желании эти две программы всегда можно объединить. Также хочу заметить, что данная программа далеко несовершенна в отношении оформления, но так как передо мной не стояла задача ри-совать красивые картинки, я и не стала этого делать.

Результатом моей работы явились две программы, которые я и привожу в заключение.

Приложение.

Program shit;

uses crt;

var a,s,d:string;

f:text;

n,e,y,q:integer;

begin

assign(f,'iz.txt');

{$I-}

reset(f);

if IOResult>0 then

begin

writeln('Файл не найден');

readln;

halt;

end;

{$I+}

(Эта вставка предназначена на тот случай, если файла со списком нет на диске. Тогда программа выдаст сообщение и завершит свою работу, а не просто вылетит.)

writeln('Введите критерий');

readln(a);

writeln('Если это фамилия, введите 1,

имя - 2, пол - 3');

readln(e);

if e=1 then

begin

repeat

readln(f,s);

n:=pos('*',s);

d:=copy(s,1,n-1);

if d=a then

begin

y:=1;

w:=pos('*',s);

r:=pos('&',s);

t:=pos('$',s);

s:=copy(s,1,w-1)+' '+copy(s,w+1,r-w-1)+'пол '+s[r+1]+

' '+copy(s,t+1,length(s)-t-1);

(Этот блок и все последующие блоки такого типа служат для уда-ления спецсимволов при выводе на экран строки из файла. Вместо спецсимволов на экран выводятся пробелы и некоторые пояснения.)

writeln(s);

end;

until eof(f);

end;

if e=2 then

begin

repeat

readln(f,s);

n:=pos('*',s);

q:=pos('&',s);

d:=copy(s,n+1,q-n-1);

if d=a then

begin

y:=1;

w:=pos('*',s);

r:=pos('&',s);

t:=pos('$',s);

s:=copy(s,1,w-1)+' '+copy(s,w+1,r-w-1)+' '+s[r+1]+

' '+copy(s,t+1,length(s)-t-1);

writeln(s);

end;

until eof(f);

end;

if e=3 then

begin

if not ((a='м') or (a='ж')) then

begin

writeln('Не выделывайся. Я, конечно знаю парочку гермафродитов,');

writeln('но их нет этом списке. Сто пудов!!!!');

y:=1;

(Проверка на случай не очень умного пользователя.)

end

else

repeat

readln(f,s);

n:=pos('&',s);

if s[n+1]=a[1] then