на тему- ldquo;Разработка базы данных
Работа добавлена на сайт samzan.net:
Министерство образования Республики Беларусь
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра “Теория механизмов и машин”
Курсовая работа
по информатике
на тему: “Разработка базы данных.
Винты с шестигранной головкой”
вариант № 7
Выполнил
Ст. гр.103
Руководитель
Минск 2006
СОДЕРЖАНИЕ
|
[0.0.1] Минск 2006 [1] СОДЕРЖАНИЕ [2] ПОСТАНОВКА ЗАДАЧИ [3] 2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ [4] 4. СХЕМА АЛГОРИТМА [5] 5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ [5.0.1] Наименование [6] 6. ФАЙЛ ИСХОДНЫХ ДАННЫХ [7] 7. ТЕКСТ ПРОГРАММЫ [8] 8. РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ [9] 9. АНАЛИЗ РЕЗУЛЬТАТОВ [10] ЛИТЕРАТУРА [11] ПРИЛОЖЕНИЕ [11.1] Решение задачи с использование Microsoft Excel |
амммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм
- ПОСТАНОВКА ЗАДАЧИ
Создать базу данных, содержащую сведение о винтах с шестигранной головкой. Вывести данные о винтах, длина которых меньше 40мм.
|
№ |
Наименование |
Обозначение стандарта |
Диаметр резьбы D, мм |
Длина винта L |
Длина резьбы L1 |
Размер под ключ DG |
Поле допуска |
|
1 |
Винт |
ГОСТ 10338-63 |
6 |
20 |
8 |
10 |
6g |
|
2 |
Винт |
ГОСТ 10338-64 |
6 |
32 |
8 |
10 |
6g |
|
3 |
Винт |
ГОСТ 10338-65 |
6 |
50 |
8 |
10 |
6g |
|
4 |
Винт |
ГОСТ 10338-66 |
6 |
100 |
8 |
10 |
6g |
|
5 |
Винт |
ГОСТ 10338-67 |
8 |
25 |
10 |
13 |
6g |
|
6 |
Винт |
ГОСТ 10338-68 |
8 |
32 |
10 |
13 |
6g |
|
7 |
Винт |
ГОСТ 10338-69 |
8 |
50 |
10 |
13 |
6g |
|
8 |
Винт |
ГОСТ 10338-70 |
8 |
80 |
10 |
13 |
6g |
|
9 |
Винт |
ГОСТ 10338-71 |
8 |
100 |
10 |
13 |
6g |
|
10 |
Винт |
ГОСТ 10338-72 |
10 |
25 |
12 |
17 |
6g |
|
11 |
Винт |
ГОСТ 10338-73 |
10 |
32 |
12 |
17 |
6g |
|
12 |
Винт |
ГОСТ 10338-74 |
10 |
40 |
12 |
17 |
6g |
|
13 |
Винт |
ГОСТ 10338-75 |
10 |
80 |
12 |
17 |
6g |
|
14 |
Винт |
ГОСТ 10338-76 |
12 |
32 |
16 |
19 |
6g |
|
15 |
Винт |
ГОСТ 10338-77 |
12 |
50 |
16 |
19 |
6g |
2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ
Использование переменных типа «запись» при работе с базами данных.
Запись – это структурированный тип данных, состоящий из фиксированного числа компонентов одного или нескольких типов. Определение типа записи начинается зарезервированным словом record и заканчивается end. Между ними заключён список компонентов, называемых полями с указанием идентификатора полей и типа каждого поля.
Общий вид описания:
TYPE
<имя типа>=record
<идентификатор поля 1>: <тип компонента>;
<идентификатор поля 2>: <тип компонента>;
<идентификатор поля 3>: <тип компонента>
end;
Var <имя переменной>: <имя типа>.
Идентификатор поля должен быть уникален в пределах записи, однако во избежание ошибок могут делать его уникальным во всей программе. Обращение к элементу записи осуществляется в программе составного имени.
Оператор присоединения.
Обращение к элементу записи с помощью составного имени бывает очень громоздким. Место работы с одной записью можно определить с помощью оператора присоединения with. В данном случае вместо составного имени можно использовать только имена полей.
Общий вид оператора:
With <имя переменной запись> do <оператор>.
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ
Чтение исходных данных из файла dan7.dat и запись их в файл res7.res
- Ввод (st);
- Вывод (st);
Чтение базы данных из файла данных dan7.dat и запись её в файл res7.res
3. Для i=1, 15
3.1. Ввод (vinti. naim, vinti. D, vinti. L, vinti. L1, vinti. DG, vinti. P);
3.2. Вывод (vinti. naim, vinti. D, vinti. L, vinti. L1, vinti. DG, vinti. P);
4. Вывод (st);
Запись в файл результатов винтов, длина которых меньше 40мм.
5. Для i=1, 15
Если vinti. L<40, то
Вывод(vinti. naim, vinti. D, vinti. L, vinti. L1, vinti. DG, vinti. P).
4. СХЕМА АЛГОРИТМА
Схема головной программы
5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ
Наименование |
физический смысл |
идентификатор |
|
Диаметр резьбы |
D |
Vint.D |
|
Длина винта |
L |
Vint.L |
|
Длина резьбы |
L1 |
Vint.L1 |
|
Поле допуска |
P |
Vint.P |
|
Размер под ключ |
DG |
Vint.DG |
6. ФАЙЛ ИСХОДНЫХ ДАННЫХ
№ Наименование Обозн.стандарта Диаметр резьбы D Длина винта L Длина резьбы L1 Размер под ключ DG,мм Поле допуска
1 Vint ГОСТ 10338-63 6 20 8 10 6g
2 Vint ГОСТ 10338-63 6 32 8 10 6g
3 Vint ГОСТ 10338-63 6 50 8 10 6g
4 Vint ГОСТ 10338-63 6 100 8 10 6g
5 Vint ГОСТ 10338-63 8 25 10 13 6g
6 Vint ГОСТ 10338-63 8 32 10 13 6g
7 Vint ГОСТ 10338-63 8 50 10 13 6g
8 Vint ГОСТ 10338-63 8 80 10 13 6g
9 Vint ГОСТ 10338-63 8 100 10 13 6g
10 Vint ГОСТ 10338-63 10 25 12 17 6g
11 Vint ГОСТ 10338-63 10 32 12 17 6g
12 Vint ГОСТ 10338-63 10 40 12 17 6g
13 Vint ГОСТ 10338-63 10 80 12 17 6g
14 Vint ГОСТ 10338-63 12 32 16 19 6g
15 Vint ГОСТ 10338-63 12 50 16 19 6g
7. ТЕКСТ ПРОГРАММЫ
Program kyr7;
Uses crt;
TYPE zap=record
Naim:string[29];
d,L,L1,dg:real;
P:string;
end;
Var vint:array[1..20] of zap;
i,n:integer;
f1,f2:text;
st:string;
begin ClrScr;
assign(f1,'dan7.dat');reset(f1);
assign(f2,'res7.res');rewrite(f2);
readln(f1,st);
writeln(f2,' Kyrsovoi proekt');
writeln(f2,'Razrabotal Zenevi4 D.V.');
writeln(f2,' Razrabotka bazi dannix.Vint s shestigrannoi golovkoi');
writeln(f2,' Variant 7');
writeln(f2,' Isxodnaia baza dannix');
writeln(f2,st);
for i:=1 to 15 do
with vint[i] do begin
readln(f1,naim,d,L,L1,dg,P);
writeln(f2,naim,' ':3,d:12:0,' ':12,l:3:0,' ':14,l1:2:0,' ':12,dg:2:0,' ':1,P);
end;
writeln(f2,' Vinti, dlina kotorix menshe 40 mm');
writeln(f2,st);
for i:=1 to 15 do
with vint[i] do
if l<40 then writeln(f2,naim,' ':3,d:12:0,' ':12,l:3:0,' ':14,l1:2:0,' ':12,dg:2:0,' ':1,P);
close(f1);close(f2);
repeat until keypressed
end.
8. РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ
Kyrsovoi proekt
Razrabotal Zenevi4 D.V.
Razrabotka bazi dannix.Vint s shestigrannoi golovkoi
Variant 7
Isxodnaia baza dannix
№ Наименование Обозн.стандарта Диаметр резьбы D Длина винта L Длина резьбы L1 Размер под ключ DG,мм Поле допуска
1 Vint ГОСТ 10338-63 6 20 8 10 6g
2 Vint ГОСТ 10338-63 6 32 8 10 6g
3 Vint ГОСТ 10338-63 6 50 8 10 6g
4 Vint ГОСТ 10338-63 6 100 8 10 6g
5 Vint ГОСТ 10338-63 8 25 10 13 6g
6 Vint ГОСТ 10338-63 8 32 10 13 6g
7 Vint ГОСТ 10338-63 8 50 10 13 6g
8 Vint ГОСТ 10338-63 8 80 10 13 6g
9 Vint ГОСТ 10338-63 8 100 10 13 6g
10 Vint ГОСТ 10338-63 10 25 12 17 6g
11 Vint ГОСТ 10338-63 10 32 12 17 6g
12 Vint ГОСТ 10338-63 10 40 12 17 6g
13 Vint ГОСТ 10338-63 10 80 12 17 6g
14 Vint ГОСТ 10338-63 12 32 16 19 6g
15 Vint ГОСТ 10338-63 12 50 16 19 6g
Vinti, dlina kotorix menshe 40 mm
№ Наименование Обозн.стандарта Диаметр резьбы D Длина винта L Длина резьбы L1 Размер под ключ DG,мм Поле допуска
1 Vint ГОСТ 10338-63 6 20 8 10 6g
2 Vint ГОСТ 10338-63 6 32 8 10 6g
5 Vint ГОСТ 10338-63 8 25 10 13 6g
6 Vint ГОСТ 10338-63 8 32 10 13 6g
10 Vint ГОСТ 10338-63 10 25 12 17 6g
11 Vint ГОСТ 10338-63 10 32 12 17 6g
14 Vint ГОСТ 10338-63 12 32 16 19 6g
9. АНАЛИЗ РЕЗУЛЬТАТОВ
В результаты работы из исходной базы данных, содержащей сведения о винтах с шестигранной головкой, были отобраны винты, длина которых меньше 40мм.
ЛИТЕРАТУРА
- Рапаков Г.Г., РжеуцкаяС.Ю. Тurbo Pascal для студентов и школьников. – СПБ.: БХВ- Петербург, 2004. – 352 с.:ил.
- Анципорович П.П., Алейникова О.И., Булгак Т.И., Луцко Н.Я. Информатика. Учебно-метод. Пособие к лабораторным работам для студ. машиностроит. спец. В 4 ч. – Мн.: БНТУ, 2004.
ПРИЛОЖЕНИЕ
Решение задачи с использование Microsoft Excel
Запускаем Microsoft Excel и создаем таблицу с исходными данными.
При решении задачи в Excel столбцы становятся полями базы данных. Заголовки столбцов становятся именами полей, и каждая строка списка преобразовывается в запись данных.
Данные можно отфильтровать:
.
После этого в начале каждого столбца базы данных появляются указатели, нажав на которые можно задать определённое условие.
В нашем случае выбираем ссылку на столбце Длина винта L, в поле Длина винта L задаем условие «меньше», в поле, расположенном справа от поля условия, записываем значение 40.
В результате получим базу данных, содержащую сведения о винтах, длина которых меньше 40мм.
2. Общая численность работников предприятия составляет 56 человек в том числе в первую смену работ
3. Значення газообміну для дітей 3-7 років
4. Лекция 1 Содержание 1 Исторические этапы становления и развития городов и ГХ 1
5. Задание- По данным представленной бухгалтерской отчетности проведите- Анализ динамики и структуры пас
6. Была принята постановлением V Всероссийского съезда советов рабочих крестьянских красноармейских и казач
7. Реферат- Проектирование производственных и вспомогательных зданий текстильной и легкой промышленности
8. а- Эпидуральная над тв мозговой оболочкой Спинномозговая
9. тематичне планування навчання інформатики за програмою для 9 класів загальноосвітніх навчальних закл
10. Экономиста ~ это не гадание на кофейной гуще
11. Взаємовідносини між чоловіком і жінко
12. На данный момент института менеджмента в росии как такового не существует в следствии отсталости нашей ст
13. Если законы природы вечны то экономические законы носят исторический характер.html
14. з курсу Електропостачання та електропривідrdquo; ВИВЧЕННЯ БЛОКУВАЛЬНИХ ЗВ'ЯЗКІВ У СХЕМАХ АВТОМАТИЗОВАН
15. Содержание и последовательность обучения базовой технике дзюдо
16. лекция 1. СУЩНОСТЬ ФУНКЦИИ ФИНАНСОВ
17. Лабораторная работа 7 Разработать и отладить на контрольном примере программу расчета статистических ха
18. Этот счет балансируется по определению
19. Марлен Дитрих
20. 2013 АДМИНИСТРАТИВНЫЙ РЕГЛАМЕНТ МИНИСТЕРСТВА ЭКОЛОГИИ И ПРИРОДНЫХ РЕСУРСОВ РЕСПУ