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

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство образования Республики Беларусь
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра “Теория механизмов и машин”
Курсовая работа
по информатике
на тему: “Разработка базы данных.
Винты с шестигранной головкой”
вариант № 7
Выполнил
Ст. гр.103
Руководитель
[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 |
Использование переменных типа «запись» при работе с базами данных.
Запись это структурированный тип данных, состоящий из фиксированного числа компонентов одного или нескольких типов. Определение типа записи начинается зарезервированным словом record и заканчивается end. Между ними заключён список компонентов, называемых полями с указанием идентификатора полей и типа каждого поля.
Общий вид описания:
TYPE
<имя типа>=record
<идентификатор поля 1>: <тип компонента>;
<идентификатор поля 2>: <тип компонента>;
<идентификатор поля 3>: <тип компонента>
end;
Var <имя переменной>: <имя типа>.
Идентификатор поля должен быть уникален в пределах записи, однако во избежание ошибок могут делать его уникальным во всей программе. Обращение к элементу записи осуществляется в программе составного имени.
Оператор присоединения.
Обращение к элементу записи с помощью составного имени бывает очень громоздким. Место работы с одной записью можно определить с помощью оператора присоединения with. В данном случае вместо составного имени можно использовать только имена полей.
Общий вид оператора:
With <имя переменной запись> do <оператор>.
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ
Чтение исходных данных из файла dan7.dat и запись их в файл res7.res
Чтение базы данных из файла данных 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).
Схема головной программы
Наименование |
физический смысл |
идентификатор |
Диаметр резьбы |
D |
Vint.D |
Длина винта |
L |
Vint.L |
Длина резьбы |
L1 |
Vint.L1 |
Поле допуска |
P |
Vint.P |
Размер под ключ |
DG |
Vint.DG |
№ Наименование Обозн.стандарта Диаметр резьбы 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
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.
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
В результаты работы из исходной базы данных, содержащей сведения о винтах с шестигранной головкой, были отобраны винты, длина которых меньше 40мм.
Запускаем Microsoft Excel и создаем таблицу с исходными данными.
При решении задачи в Excel столбцы становятся полями базы данных. Заголовки столбцов становятся именами полей, и каждая строка списка преобразовывается в запись данных.
Данные можно отфильтровать:
.
После этого в начале каждого столбца базы данных появляются указатели, нажав на которые можно задать определённое условие.
В нашем случае выбираем ссылку на столбце Длина винта L, в поле Длина винта L задаем условие «меньше», в поле, расположенном справа от поля условия, записываем значение 40.
В результате получим базу данных, содержащую сведения о винтах, длина которых меньше 40мм.