Автор работы: Пользователь скрыл имя, 06 Июня 2013 в 16:27, курсовая работа
Цель курсовой работы – разработать программу в среде Паскаль, которая может осуществлять ввод и поиск данных, то есть создать элементарную базу данных.
Курсовая работа состоит из трех глав.
В первой главе рассматривается: история возникновения баз данных, основные понятия базы данных, классификация баз данных, организация баз данных.
Во второй главе описывается история развития языка программирования Паскаль, а также описываются операторы и типы данных, использующиеся при создании программы для работы с базами данных.
ВВЕДЕНИЕ 3
1. ВВЕДЕНИЕ В БАЗЫ ДАННЫХ 4
1.1 История возникновения и развития технологий создания баз данных 4
1.2 Понятие базы данных 5
1.3 Классификация баз данных 5
1.4 Организация базы данных 6
2. ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ 8
2.1 История развития языка Паскаль 8
2.2 Операторы, используемые для создания базы данных 10
3. РАЗРАБОТКА БАЗЫ ДАННЫХ НА ЯЗЫКЕ ПРОГРАММИРОВАНИЯ ПАСКАЛЬ 21
3.1 Подготовка исходных данных 21
3.2 Написание программы 22
3.3 Тестирование программы 25
ЗАКЛЮЧЕНИЕ 29
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ 30
ПРИЛОЖЕНИЕ А 31
ПРИЛОЖЕНИЕ B 32
read(a);
writeln(' ');
if a=1 then
begin
TextColor(19);
writeln('Фамилия абонента:');
read(famil);
assign (F,'f:\telef.txt');
reset(F);
i:=0;
while not EOF(F) do
begin
i:=i+1;
read(F,tel[i]);
if tel[i].fam=famil then begin
TextColor(18);
writeln(' ');
writeln('Фамилия :',tel[i].Fam);
writeln('Имя :',tel[i].I);
writeln('Отчество :',tel[i].O);
writeln('Адрес:');
writeln(' улица :',tel[i].yl);
writeln(' дом № :',tel[i].d);
writeln(' квартира:',tel[i].kv);
Writeln('Телефон :',tel[i].telnomer);
end;
end;
close(F);
writeln;
end;
if a=2 then
begin
TextColor(17);
writeln('Имя абонента:');
readln (imya);
assign (F,'f:\telef.txt');
reset(F);
i:=0;
while not EOF(F) do
begin
i:=i+1;
read(F,tel[i]);
if tel[i].I=imya then begin
TextColor(16);
writeln(' ');
writeln('Фамилия :',tel[i].Fam);
writeln('Имя :',tel[i].I);
writeln('Отчество :',tel[i].O);
writeln('Адрес:');
writeln(' улица :',tel[i].yl);
writeln(' дом № :',tel[i].d);
writeln(' квартира:',tel[i].kv);
Writeln('Телефон :',tel[i].telnomer);
end;
end;
writeln(' ');
close(F);
end;
if a=3 then
begin
TextColor(6);
writeln('Адрес абонента:');
writeln('Улица:');
readln(y);
writeln('Номер дома:');
readln(dom);
writeln('Номер квартиры:');
readln (k);
assign (F,'f:\telef.txt');
reset(F);
i:=0;
while not EOF(F) do
begin
i:=i+1;
read(F,tel[i]);
if (tel[i].yl=y) and (tel[i].d=dom) and (tel[i].kv=k) then begin
TextColor(13);
writeln(' ');
writeln('Фамилия :',tel[i].Fam);
writeln('Имя :',tel[i].I);
writeln('Отчество :',tel[i].O);
writeln('Адрес:');
writeln(' улица :',tel[i].yl);
writeln(' дом № :',tel[i].d);
writeln(' квартира:',tel[i].kv);
Writeln('Телефон :',tel[i].telnomer);
end;
end;
writeln(' ');
close(F);
end;
if a=4 then
begin
TextColor(12);
writeln('Адрес абонента:');
writeln('Улица:');
readln(y);
writeln('Номер дома:');
readln(dom);
assign (F,'f:\telef.txt');
reset(F);
i:=0;
while not EOF(F) do
begin
i:=i+1;
read(F,tel[i]);
if (tel[i].yl=y) and (tel[i].d=dom) then begin
TextColor(11);
writeln(' ');
writeln('Фамилия :',tel[i].Fam);
writeln('Имя :',tel[i].I);
writeln('Отчество :',tel[i].O);
writeln('Адрес:');
writeln(' улица :',tel[i].yl);
writeln(' дом № :',tel[i].d);
writeln(' квартира:',tel[i].kv);
Writeln('Телефон :',tel[i].telnomer);
end;
end;
writeln(' ');
close(F);
end;
if a=5 then
begin
TextColor(10);
writeln('Адрес абонента:');
writeln('Улица:');
readln(y);
assign (F,'f:\telef.txt');
reset(F);
i:=0;
while not EOF(F) do
begin
i:=i+1;
read(F,tel[i]);
if tel[i].yl=y then begin
TextColor(9);
writeln(' ');
writeln('Фамилия :',tel[i].Fam);
writeln('Имя :',tel[i].I);
writeln('Отчество :',tel[i].O);
writeln('Адрес:');
writeln(' улица :',tel[i].yl);
writeln(' дом № :',tel[i].d);
writeln(' квартира:',tel[i].kv);
Writeln('Телефон :',tel[i].telnomer);
end;
end;
writeln(' ');
close(F);
end;
writeln('Хотите ли вы продолжить?');
read(t);
if t=('да') then goto 10
else Writeln('СПАСИБО ЗА
writeln ('Для выхода из программы закройте окно');
end.