Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра “Теория механизмов и машин”
Курсовая работа
по курсу
« Информатика »
Деревянко А.С.
Исполнитель_______________
Группа 103514
Руководитель______________ Алейникова О.И.
|
[0.0.1] Минск 2006 [1] СОДЕРЖАНИЕ [2] ПОСТАНОВКА ЗАДАЧИ [3] 2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ [4] 4. СХЕМА АЛГОРИТМА [5] 5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ [5.0.1] Наименование [6] 6. ТЕКСТ ПРОГРАММЫ [7] РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ [8] 8. АНАЛИЗ РЕЗУЛЬТАТОВ [9] ЛИТЕРАТУРА [10] ПРИЛОЖЕНИЕ [10.1] Решение задачи с использованием Microsoft Excel |
Решение задачи с использованием Microsoft Aсcess…………………………………………….14
амммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммммм
Создать базу данных, содержащую сведение о стальных листах. Вывести данные о листах, толщина которых больше 1,5 мм.
|
№ |
Класс |
ГОСТ на хим. состав |
Толщина, мм |
Ширина, мм |
Длина |
Точность по толщине |
Плоскостность |
Характер кромки |
|
1 |
Лист |
ГОСТ 1050-88 |
0,5 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
2 |
Лист |
ГОСТ 1050-88 |
0,6 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
3 |
Лист |
ГОСТ 1050-88 |
0,8 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
4 |
Лист |
ГОСТ 1050-88 |
1 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
5 |
Лист |
ГОСТ 1050-88 |
1,2 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
6 |
Лист |
ГОСТ 1050-88 |
1,4 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
7 |
Лист |
ГОСТ 1050-88 |
1,5 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
8 |
Лист |
ГОСТ 1050-88 |
1,6 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
9 |
Лист |
ГОСТ 1050-88 |
2 |
1000 |
2000 |
БТ |
ПВ |
НО |
|
10 |
Лист |
ГОСТ 1050-88 |
2,5 |
1000 |
2000 |
БТ |
ПВ |
НО |
Использование переменных типа «запись» при работе с базами данных
Запись- это структурированный тип данных, состоящий из фиксированного числа компонентов одного или нескольких типов. Определение типа записи начинается зарезервированным словом record и заканчивается end. Между ними заключён список компонентов, называемых полями с указанием идентификатора полей и типа каждого поля.
Общий вид описания:
TYPE
<имя типа>=record
<идентификатор поля 1>: <тип компонента>;
<идентификатор поля 2>: <тип компонента>;
<идентификатор поля 3>: <тип компонента>
end;
Var <имя переменной>: <имя типа>.
Идентификатор поля должен быть уникален в пределах записи, однако во избежание ошибок могут делать его уникальным во всей программе. Обращение к элементу записи осуществляется в программе составного имени.
Оператор присоединения.
Обращение к элементу записи с помощью составного имени бывает очень громоздким. Место работы с одной записью можно определить с помощью оператора присоединения with. В данном случае вместо составного имени можно использовать только имена полей.
Общий вид оператора:
With <имя переменной запись> do <оператор>.
3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ
Чтение исходных данных из файла dan11.txt и запись их в файл res11.res
Чтение базы данных из файла данных dan11.txt и запись её в файл res11.res
3. Для i=1, 10
3.1. Ввод (listi. klass, listi. t, listi. s, listi. d, listi. tpx);
3.2. Вывод (listi. klass, listi. t, listi. s, listi. d, listi. tpx);
4. Вывод (st);
Запись в файл результатов листов, толщина которых больше 1.5 мм
5. Для i=1, 10
Если listi. t >1.5, то
Вывод(listi. klass, listi. t, listi. s, listi. d, listi. tpx).
Схема головной программы
Наименование |
физический смысл |
идентификатор |
|
Толщина |
t |
listi. t |
|
Ширина |
s |
listi. s |
|
Длина |
d |
listi. d |
Program kyrs11; {Derevianko A.S. 103514 }
Uses crt;
TYPE baza=record
klass:string[28];
t,s,d:real;
tpx:string;
end;
Var list:array[1..20] of baza;
i:integer;
f1,f2:text;
st:string;
begin ClrScr;
assign(f1,'dan11.txt');
reset(f1);
assign(f2,'res11.res');
rewrite(f2);
readln(f1,st);
writeln(f2,'Kyrsovoi proekt');
writeln(f2,'Razrabotka bazi dannix');
writeln(f2,'Derevianko A.S.');
writeln(f2,'Variant 11');
writeln(f2,'Isxodna9 baza dannix');
writeln(f2,st);
for i:=1 to 10 do
with list[i] do begin readln(f1,klass,t,s,d,tpx);
writeln(f2,klass,' ':7,t:3:1,' ':13,s:4:0,' ':9,d:4:0,' ':1,tpx);
end;
writeln(f2,'Listi, tolshina kotorix bolshe 1.5mm');
writeln(f2,st);
for i:=1 to 10 do with list[i] do
if t>1.5 then
writeln(f2,klass,' ':7,t:3:1,' ':13,s:4:0,' ':9,d:4:0,' ':1,tpx);
close(f1);
close(f2);
end.
Kyrsovoi proekt
Razrabotka bazi dannix
Derevianko A.S.
Variant 11
Isxodna9 baza dannix
№ Класс ГОСТ Толщина, мм Ширина, мм Длина Точность Плоскостность Характер кромки
1 Лист ГОСТ 1050-88 0.5 1000 2000 БТ ПВ НО
2 Лист ГОСТ 1050-88 0.6 1000 2000 БТ ПВ НО
3 Лист ГОСТ 1050-88 0.8 1000 2000 БТ ПВ НО
4 Лист ГОСТ 1050-88 1.0 1000 2000 БТ ПВ НО
5 Лист ГОСТ 1050-88 1.2 1000 2000 БТ ПВ НО
6 Лист ГОСТ 1050-88 1.4 1000 2000 БТ ПВ НО
7 Лист ГОСТ 1050-88 1.5 1000 2000 БТ ПВ НО
8 Лист ГОСТ 1050-88 1.6 1000 2000 БТ ПВ НО
9 Лист ГОСТ 1050-88 2.0 1000 2000 БТ ПВ НО
10 Лист ГОСТ 1050-88 2.5 1000 2000 БТ ПВ НО
Listi, tolshina kotorix bolshe 1.5mm
№ Класс ГОСТ Толщина, мм Ширина, мм Длина Точность Плоскостность Характер кромки
8 Лист ГОСТ 1050-88 1.6 1000 2000 БТ ПВ НО
9 Лист ГОСТ 1050-88 2.0 1000 2000 БТ ПВ НО
10 Лист ГОСТ 1050-88 2.5 1000 2000 БТ ПВ НО
В результате работы на исходной базе данных, содержащей сведения о стальных листах, были выбраны листы, толщина которых больше 1.5 мм.