Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Министерство образования Республики Беларусь
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра “Теория механизмов и машин”
Курсовая работа
по информатике
на тему: “Разработка базы данных.
Уголок неревнополочный гнутый”
вариант № 9
Выполнил Сергеев А. Н.
Ст. гр.103116
Руководитель Булгак Т.И.
[0.0.1] Минск 2008 [1] СОДЕРЖАНИЕ [2] 1. ПОСТАНОВКА ЗАДАЧИ [3] [4] 2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ [5] 4. СХЕМА АЛГОРИТМА [6] 5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ [6.0.1] Наименование [7] 6. ФАЙЛ ИСХОДНЫХ ДАННЫХ [8] № Класс Наименование ГОСТ Ширина H Ширина H1 Толщина B Радиус R X-X Y-Y [9] 1 Уголок 25x20x1 ГОСТ 1465-80 25 20 1.5 2 0.77 0.51 [10] 2 Уголок 25x20x2 ГОСТ 1465-80 25 20 2 3 0.8 0.54 [11] 3 Уголок 32x25x1.5 ГОСТ 1465-80 32 25 1.5 2 0.97 0.62 [12] 4 Уголок 32x25x2 ГОСТ 1465-80 32 25 2 3 1 0.64 [13] 5 Уголок 32x25x2.5 ГОСТ 1465-80 32 25 2.5 3 1.02 0.66 [14] 6 Уголок 40x25x1.5 ГОСТ 1465-80 40 25 1.5 2 1.32 0.55 [15] 7 Уголок 40x25x2 ГОСТ 1465-80 40 25 2 3 1.34 0.57 [16] 8 Уголок 40x25x2.5 ГОСТ 1465-80 40 25 2.5 3 1.37 0.59 [17] 9 Уголок 40x32x2 ГОСТ 1465-80 40 32 2 3 1.21 0.8 [18] 10 Уголок 40x32x2.5 ГОСТ 1465-80 40 32 2.5 3 1.24 0.89 [19] 11 Уголок 40x32x3 ГОСТ 1465-80 40 32 3 4 1.26 0.85 [20] 12 Уголок 50x36x2.5 ГОСТ 1465-80 50 36 2.5 3 1.58 0.87 [21] 13 Уголок 50x36x3 ГОСТ 1465-80 50 36 3 4 1.61 0.89 [22] 14 Уголок 50x36x4 ГОСТ 1465-80 50 36 4 6 1.67 0.94 [23] 15 Уголок 60x40x3 ГОСТ 1465-80 60 40 3 4 1.96 0.93 [24] 7. ТЕКСТ ПРОГРАММЫ [25] РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ [26] 9. АНАЛИЗ РЕЗУЛЬТАТОВ [27] ЛИТЕРАТУРА [28] ПРИЛОЖЕНИЕ [28.1] Решение задачи с использование Microsoft Excel |
амммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм
Создать базу данных, содержащую сведение об уголке неравнополочном гнутом. Вывести данные об уголке, радиус кривизны которого равен 3 мм.
№ |
Класс |
Наименование |
ГОСТ |
Ширина |
Толщина полки В,мм |
Радиус кривизны R, мм |
Расстояние от ц.т. до оси X-X, см |
Расстояние от ц.т. до оси Y-Y, см |
|
большей полки Н, мм |
меньшей полки Н1, мм |
||||||||
1 |
Уголок |
25x20x1,5 |
ГОСТ 19772-74 |
25 |
20 |
1,5 |
2 |
0,77 |
0,51 |
2 |
Уголок |
25x20x2 |
ГОСТ 19772-74 |
25 |
20 |
2 |
3 |
0,8 |
0,54 |
3 |
Уголок |
32x25x1,5 |
ГОСТ 19772-74 |
32 |
25 |
1,5 |
2 |
0,97 |
0,62 |
4 |
Уголок |
32x25x2 |
ГОСТ 19772-74 |
32 |
25 |
2 |
3 |
1 |
0,64 |
5 |
Уголок |
32x25x2,5 |
ГОСТ 19772-74 |
32 |
25 |
2,5 |
3 |
1,02 |
0,66 |
6 |
Уголок |
40x25x1,5 |
ГОСТ 19772-74 |
40 |
25 |
1,5 |
2 |
1,32 |
0,55 |
7 |
Уголок |
40x25x2 |
ГОСТ 19772-74 |
40 |
25 |
2 |
3 |
1,34 |
0,57 |
8 |
Уголок |
40x25x2,5 |
ГОСТ 19772-74 |
40 |
25 |
2,5 |
3 |
1,37 |
0,59 |
9 |
Уголок |
40x32x2 |
ГОСТ 19772-74 |
40 |
32 |
2 |
3 |
1,21 |
0,8 |
10 |
Уголок |
40x32x2,5 |
ГОСТ 19772-74 |
40 |
32 |
2,5 |
3 |
1,24 |
0,89 |
11 |
Уголок |
40x32x3 |
ГОСТ 19772-74 |
40 |
32 |
3 |
4 |
1,26 |
0,85 |
12 |
Уголок |
50x36x2,5 |
ГОСТ 19772-74 |
50 |
36 |
2,5 |
3 |
1,58 |
0,87 |
13 |
Уголок |
50x36x3 |
ГОСТ 19772-74 |
50 |
36 |
3 |
4 |
1,61 |
0,89 |
14 |
Уголок |
50x36x4 |
ГОСТ 19772-74 |
50 |
36 |
4 |
6 |
1,67 |
0,94 |
15 |
Уголок |
60x40x3 |
ГОСТ 19772-74 |
60 |
40 |
3 |
4 |
1,96 |
0,93 |
Использование переменных типа «запись» при работе с базами данных
Запись- это структурированный тип данных, состоящий из фиксированного числа компонентов одного или нескольких типов. Определение типа записи начинается зарезервированным словом record и заканчивается end. Между ними заключён список компонентов, называемых полями с указанием идентификатора полей и типа каждого поля.
Общий вид описания:
TYPE
<имя типа>=record
<идентификатор поля 1>: <тип компонента>;
<идентификатор поля 2>: <тип компонента>;
<идентификатор поля 3>: <тип компонента>
end;
Var <имя переменной>: <имя типа>.
Идентификатор поля должен быть уникален в пределах записи, однако во избежание ошибок могут делать его уникальным во всей программе. Обращение к элементу записи осуществляется в программе составного имени.
Оператор присоединения.
Обращение к элементу записи с помощью составного имени бывает очень громоздким. Место работы с одной записью можно определить с помощью оператора присоединения with. В данном случае вместо составного имени можно использовать только имена полей.
Общий вид оператора:
With <имя переменной запись> do <оператор>.
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ
Чтение исходных данных из файла dan9.txt и запись их в файл res9.res
Чтение базы данных из файла данных dan9.dat и запись её в файл res9.res
3. Для i=1, 15
3.1. Ввод (ygi. naim, ygi. H, ygi.H1, ygi.B, ygi.R, ygi.X, ygi.Y);
3.2. Вывод (ygi. naim, ygi. H, ygi.H1, ygi.B, ygi.R, ygi.X, ygi.Y);
4. Вывод (st);
Запись в файл результатов напильников, радиус кривизны которых равен 3
5. Для i=1, 15
Если ygi. R=3, то
Вывод (ygi. naim, ygi. H, ygi.H1, ygi.B, ygi.R, ygi.X, ygi.Y).
Схема головной программы
Наименование |
физический смысл |
идентификатор |
Ширина большей полки |
H |
H |
Ширина меньшей полки |
H1 |
H1 |
Толщина полки |
B |
B |
Радиус кривизны |
R |
R |
Расстояние от центра тяжести до оси X |
X |
X |
Расстояние от центра тяжести до оси Y |
Y |
Y |
Program kyr14;
Uses crt;
TYPE zap=record
Naim:string[45];
H,H1,B,R,X,Y:real;
end;
Var yg:array[1..42] of zap;
i:integer;
f1,f2:text;
st:string;
begin ClrScr;
assign(f1,'dan9.txt');reset(f1);
assign(f2,'res9.res');rewrite(f2);
readln(f1,st);
writeln(f2,' Kyrsovoi proekt');
writeln(f2,' Razrabotka bazi dannix.Ygolok neravnopolo4nii gnytii');
writeln(f2,' Variant 9');
writeln(f2,' Isxodnaia baza dannix');
writeln(f2,st);
for i:=1 to 15 do
with yg[i] do begin
readln(f1,naim,H,H1,B,R,X,Y);
writeln(f2,naim,' ',H:2:0,' ':10,H1:2:0,' ':9,B:3:1,' ':8,R:2:0,' ':2,X:4:2,' ':2,Y:4:2);
end;
writeln(f2,' Ygolki,radiys krivizni kotorix raven 2');
writeln(f2,st);
for i:=1 to 15 do
with yg[i] do
if R=3 then writeln(f2,naim,' ',H:2:0,' ':10,H1:2:0,' ':9,B:3:1,' ':8,R:2:0,' ':2,X:4:2,' ':2,Y:4:2);
close(f1);close(f2);
end.
Kyrsovoi proekt
Razrabotka bazi dannix.Ygolok neravnopolo4nii gnytii
Variant 8
Isxodnaia baza dannix
№ Класс Наименование ГОСТ Ширина H Ширина H1 Толщина B Радиус R X-X Y-Y
1 Уголок 25x20x1 ГОСТ 1465-80 25 20 1.5 2 0.77 0.51
2 Уголок 25x20x2 ГОСТ 1465-80 25 20 2.0 3 0.80 0.54
3 Уголок 32x25x1.5 ГОСТ 1465-80 32 25 1.5 2 0.97 0.62
4 Уголок 32x25x2 ГОСТ 1465-80 32 25 2.0 3 1.00 0.64
5 Уголок 32x25x2.5 ГОСТ 1465-80 32 25 2.5 3 1.02 0.66
6 Уголок 40x25x1.5 ГОСТ 1465-80 40 25 1.5 2 1.32 0.55
7 Уголок 40x25x2 ГОСТ 1465-80 40 25 2.0 3 1.34 0.57
8 Уголок 40x25x2.5 ГОСТ 1465-80 40 25 2.5 3 1.37 0.59
9 Уголок 40x32x2 ГОСТ 1465-80 40 32 2.0 3 1.21 0.80
10 Уголок 40x32x2.5 ГОСТ 1465-80 40 32 2.5 3 1.24 0.89
11 Уголок 40x32x3 ГОСТ 1465-80 40 32 3.0 4 1.26 0.85
12 Уголок 50x36x2.5 ГОСТ 1465-80 50 36 2.5 3 1.58 0.87
13 Уголок 50x36x3 ГОСТ 1465-80 50 36 3.0 4 1.61 0.89
14 Уголок 50x36x4 ГОСТ 1465-80 50 36 4.0 6 1.67 0.94
15 Уголок 60x40x3 ГОСТ 1465-80 60 40 3.0 4 1.96 0.93
Ygolki,radiys krivizni kotorix raven 2
№ Класс Наименование ГОСТ Ширина H Ширина H1 Толщина B Радиус R X-X Y-Y
2 Уголок 25x20x2 ГОСТ 1465-80 25 20 2.0 3 0.80 0.54
4 Уголок 32x25x2 ГОСТ 1465-80 32 25 2.0 3 1.00 0.64
5 Уголок 32x25x2.5 ГОСТ 1465-80 32 25 2.5 3 1.02 0.66
7 Уголок 40x25x2 ГОСТ 1465-80 40 25 2.0 3 1.34 0.57
8 Уголок 40x25x2.5 ГОСТ 1465-80 40 25 2.5 3 1.37 0.59
9 Уголок 40x32x2 ГОСТ 1465-80 40 32 2.0 3 1.21 0.80
10 Уголок 40x32x2.5 ГОСТ 1465-80 40 32 2.5 3 1.24 0.89
12 Уголок 50x36x2.5 ГОСТ 1465-80 50 36 2.5 3 1.58 0.87
В результаты работы из исходной базы данных, содержащей сведения об уголке неравнополочном гнутом, были выбраны уголки, радиус кривизны которых составляет R=3 мм.
Запускаем Microsoft Excel и создаем таблицу с исходными данными.
Выделяем созданную таблицу и в меню ДАННЫЕ выбираем подменю ФИЛЬТР, затем нажимаем АВТОФИЛЬТР
В столбце «Толщина стенки» нажинаем на стрелочку, как показано на рисунке и выбираем пункт «УСЛОВИЕ…)
В появившемся меню «ПОЛЬЗОВАТЕЛЬСКИЙ АВТОФИЛЬТР» устанавливаем нужное нам условие
Нажимаем «ОК».
Данные о деталях, толщина стенки которых больше 6 мм. выведены.