close

Вход

Забыли?

вход по аккаунту

?

kursach(56)

код для вставкиСкачать
Министерство образования Республики Беларусь
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра "Теория механизмов и машин"
Курсовая работа
по информатике
на тему: "Разработка базы данных. Напильники плоские"
вариант № 13
Выполнил Качан В.В. Ст. гр. 103141
Руководитель Луцко Н.Я. Минск 2013
СОДЕРЖАНИЕ
1.ВВЕДЕНИЕ3
2.ПОСТАНОВКА ЗАДАЧИ4
2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ5
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ6
4. СХЕМА АЛГОРИТМА7
5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ8
6. ФАЙЛ ИСХОДНЫХ ДАННЫХ9
7. ТЕКСТ ПРОГРАММЫ10
8.РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ11
9. АНАЛИЗ РЕЗУЛЬТАТОВ12
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ13
ПРИЛОЖЕНИЕ14
Решение задачи с использованием Microsoft Excel14
а
мммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм
1. ВВЕДЕНИЕ База данных - это информационная модель, позволяющая упорядоченно хранить данные о группе объектов, обладающих одинаковым набором свойств. Базами данных является, например, различные справочники, энциклопедии и т. п. Существует несколько различных типов баз данных: табличные, иерархические и сетевые. Табличная база данных содержит перечень объектов одного типа. Для создания баз данных, а также выполнения операции поиска и сортировки данных предназначены специальные программы - системы управления базами данных (СУБД). Приложение Access, входящее в офисный пакет программ Microsoft Office, является СУБД, позволяющей пользователю создавать и обрабатывать табличные базы данных.
2. ПОСТАНОВКА ЗАДАЧИ
Создать базу данных, содержащую сведение о напильниках. Вывести данные об инструменте, номер насечки которых равен 2.
№НаименованиеТипТипоразмерНомер насечкиДлина, ммШирина, ммТолщина, мм1Напильник28200001110012,03,02Напильник28200002210012,03,03Напильник28200003310012,03,04Напильник28200004410012,03,05Напильник28200005510012,03,06Напильник28200011115016,04,07Напильник28200012215016,04,08Напильник28200013315016,04,09Напильник28200014415016,04,010Напильник28200015515016,04,011Напильник28200016120021,05,012Напильник28200017220021,05,013Напильник28200018320021,05,014Напильник28200021125025,06,515Напильник28200022225025,06,5 2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ
Использование переменных типа "запись" при работе с базами данных
Запись- это структурированный тип данных, состоящий из фиксированного числа компонентов одного или нескольких типов. Определение типа записи начинается зарезервированным словом record и заканчивается end. Между ними заключён список компонентов, называемых полями с указанием идентификатора полей и типа каждого поля.
Общий вид описания:
TYPE <имя типа>=record
<идентификатор поля 1>: <тип компонента>;
<идентификатор поля 2>: <тип компонента>;
<идентификатор поля 3>: <тип компонента>
end;
Var <имя переменной>: <имя типа>.
Идентификатор поля должен быть уникален в пределах записи, однако во избежание ошибок могут делать его уникальным во всей программе. Обращение к элементу записи выполняется с помощью составного имени в виде
<имя записи>.<имя компонента>.
Компонент записи используется как обычная переменная соответствующего типа в выражениях и операторах.
Запись составных имен можно сократить, используя оператор присоединения With в виде
With <имя записи> do <оператор>.
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ
Чтение исходных данных из файла dan13.txt и запись их в файл res13.res
1. Ввод (st);
2. Вывод (st);
Чтение базы данных из файла данных dan13.dat и запись её в файл res13.res
3. Для i=1, 15 3.1. Ввод (napi. nom ,napi. naim, napi. T, napi. TR, napi. N, napi. L, napi. S, napi. H);
3.2. Вывод (napi. nom ,napi. naim,napi. T, napi. TR, napi. N, napi. L, napi. S, napi. H);
4. Вывод (st);
Запись в файл результатов напильников, номер насечки которых равен 2
5. Для i=1, 15
Если napi. N=2, то
Вывод(napi. nom ,napi. naim, napi. T, napi. TR, napi. N, napi. L, napi. S, napi. H).
4. СХЕМА АЛГОРИТМА
Схема головной программы
5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ
НаименованиеидентификаторНаименованиеnap.nomТипnap.TТипоразмерnap.TRНомер насечкиnap.NДлинаnap.LШиринаnap.SТолщинаnap.H
6. ФАЙЛ ИСХОДНЫХ ДАННЫХ
# Naimenovanie Tip Tiporazmer Nomer_nasecki Dlina Sirina Tolscina
01 Napil'nik 2820 0001 1 100 12 3.0
02 Napil'nik 2820 0002 2 100 12 3.0
03 Napil'nik 2820 0003 3 100 12 3.0
04 Napil'nik 2820 0004 4 100 12 3.0
05 Napil'nik 2820 0005 5 100 12 3.0
06 Napil'nik 2820 0011 1 150 16 4.0
07 Napil'nik 2820 0012 2 150 16 4.0
08 Napil'nik 2820 0013 3 150 16 4.0
09 Napil'nik 2820 0014 4 150 16 4.0
10 Napil'nik 2820 0015 5 150 16 4.0
11 Napil'nik 2820 0016 1 200 21 5.0
12 Napil'nik 2820 0017 2 200 21 5.0
13 Napil'nik 2820 0018 3 200 21 5.0
14 Napil'nik 2820 0021 1 250 25 6.5
15 Napil'nik 2820 0022 2 250 25 6.5
7. ТЕКСТ ПРОГРАММЫ
program kurs_141;{Kachan V.V., gruppa 103141}
{ Razrabotka baz dannih.Napilniki ploskie}
{Var 13}
uses crt;
type
zap=record
nom:integer;
naim:string[11];
T, TR, N, L, S:integer;
H:real;
end;
var nap:array[1..16] of zap;
i, n:integer;
f1,f2:text;
st:string;
begin
clrscr;
assign (f1, 'dan13.dat');
assign (f2, 'rez13.rez');
reset (f1);
rewrite (f2);
n:=15;
readln(f1,st);
writeln (f2,' ':15,'Kursovoi proekt');
writeln (f2,' ':15, 'Razrabotka baz dannih.Napilniki ploskie');
writeln (f2,' ':15, 'Kachan V.V., gruppa 103141');
writeln (f2,' ':20, 'Variant 13');
writeln(f2);
writeln (f2,st);
for i:=1 to n do
with nap[i] do
begin
readln(f1, nom,naim,T,TR,N,L,S,H);
writeln(f2, nom:2,naim, ' ':6, T,' ':3,
TR:2,' ':9,N,' ':13,L,' ':5,S,' ':5,H:1:1);
end;
writeln('Zapisano');
close(f1);
writeln(f2);
writeln(f2, ' Napilniki, nomer nasechki kotorih raven 2');
writeln(f2);
writeln(f2,st);
for i:=1 to n do
with nap[i] do
begin
if N=2 then
writeln(f2, nom:2,naim, ' ':6, T,' ':3,
TR:2,' ':9,N,' ':13,L,' ':5,S,' ':5,H:1:1);
end;
writeln(f2, 'Rabota zakonchena');
close(f2);
Repeat Until Keypressed
end.
8. РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ
Kursovoi proekt
Razrabotka baz dannih.Napilniki ploskie
Kachan V.V., gruppa 103141
Variant 13
# Naimenovanie Tip Tiporazmer Nomer_nasecki Dlina Sirina Tolscina
1 Napil'nik 2820 1 1 100 12 3.0
2 Napil'nik 2820 2 2 100 12 3.0
3 Napil'nik 2820 3 3 100 12 3.0
4 Napil'nik 2820 4 4 100 12 3.0
5 Napil'nik 2820 5 5 100 12 3.0
6 Napil'nik 2820 11 1 150 16 4.0
7 Napil'nik 2820 12 2 150 16 4.0
8 Napil'nik 2820 13 3 150 16 4.0
9 Napil'nik 2820 14 4 150 16 4.0
10 Napil'nik 2820 15 5 150 16 4.0
11 Napil'nik 2820 16 1 200 21 5.0
12 Napil'nik 2820 17 2 200 21 5.0
13 Napil'nik 2820 18 3 200 21 5.0
14 Napil'nik 2820 21 1 250 25 6.5
15 Napil'nik 2820 22 2 250 25 6.5
Napilniki, nomer nasechki kotorih raven 2
# Naimenovanie Tip Tiporazmer Nomer_nasecki Dlina Sirina Tolscina
2 Napil'nik 2820 2 2 100 12 3.0
7 Napil'nik 2820 12 2 150 16 4.0
12 Napil'nik 2820 17 2 200 21 5.0
15 Napil'nik 2820 22 2 250 25 6.5
Rabota zakonchena
9. АНАЛИЗ РЕЗУЛЬТАТОВ
В результаты работы из исходной базы данных, содержащей сведения о напильниках плоских, были выбраны напильники, номер насечки которых N=2. СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
1. Рапаков Г.Г., РжеуцкаяС.Ю. Тurbo Pascal для студентов и школьников. - СПБ.: БХВ- Петербург, 2004. - 352 с.:ил.
2. Анципорович П.П., Алейникова О.И., Булгак Т.И., Луцко Н.Я. Информатика. Учебно-метод. Пособие к лабораторным работам для студ. машиностроит. спец. В 4 ч. - Мн.: БНТУ, 2004.
ПРИЛОЖЕНИЕ
Решение задачи с использованием Microsoft Excel
Запускаем Microsoft Excel и создаем таблицу с исходными данными. Выделяем созданную таблицу и в меню ДАННЫЕ и нажимаем ФИЛЬТР.
В столбце "Номер насечки" нажинаем на стрелочку, как показано на рисунке и ставим птичку возле числа 2
В появившемся меню "ПОЛЬЗОВАТЕЛЬСКИЙ АВТОФИЛЬТР" устанавливаем нужное нам условие
Нажимаем "ОК". Данные об инструменте, номер насечки которых равен 2 выведены.
2
Документ
Категория
Рефераты
Просмотров
24
Размер файла
1 184 Кб
Теги
kursach
1/--страниц
Пожаловаться на содержимое документа