Разработка базы данных «Напильники плоские»

1. ПОСТАНОВКА ЗАДАЧИ

2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ

4. СХЕМА АЛГОРИТМА

5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ

6. ФАЙЛ ИСХОДНЫХ ДАННЫХ

7. ТЕКСТ ПРОГРАММЫ

8. РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ

9. АНАЛИЗ РЕЗУЛЬТАТОВ

ЛИТЕРАТУРА

ПРИЛОЖЕНИЕ

Решение задачи с использованием Microsoft Excel

1. ПОСТАНОВКА ЗАДАЧИ Создать базу данных, содержащую сведение о напильниках. Вывести данные об инструменте, номер насечки которых равен 2.

2. МАТЕМАТИЧЕСКАЯ МОДЕЛЬ РЕШЕНИЯ ЗАДАЧИ Использование переменных типа «запись» при работе с базами данных Записьэто структурированный тип данных, состоящий из фиксированного числа компонентов одного или нескольких типов. Определение типа записи начинается зарезервированным словом record и заканчивается end. Между ними заключён список компонентов, называемых полями с указанием идентификатора полей и типа каждого поля.

Общий вид описания:

TYPE

<�имя типа>=record

<�идентификатор поля 1>: <�тип компонента>;

<�идентификатор поля 2>: <�тип компонента>;

<�идентификатор поля 3>: <�тип компонента>

end;

Var <�имя переменной>: <�имя типа>.

Идентификатор поля должен быть уникален в пределах записи, однако во избежание ошибок могут делать его уникальным во всей программе. Обращение к элементу записи осуществляется в программе составного имени.

Оператор присоединения.

Обращение к элементу записи с помощью составного имени бывает очень громоздким. Место работы с одной записью можно определить с помощью оператора присоединения with. В данном случае вместо составного имени можно использовать только имена полей.

Общий вид оператора:

With <�имя переменной запись> do <�оператор>.

3. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ Чтение исходных данных из файла dan14. txt и запись их в файл res14. res

Ввод (st);

Вывод (st);

Чтение базы данных из файла данных dan14. dat и запись её в файл res14. res

3. Для i=1, 15

3.1. Ввод (napi. naim, napi. nom, napi. d, napi. s, napi. t);

3.2. Вывод (napi. naim, napi. nom, napi. d, napi. s, napi. t);

4. Вывод (st);

Запись в файл результатов напильников, номер насечки которых равен 2

5. Для i=1, 15

Если napi. nom=2, то Вывод (napi. naim, napi. nom, napi. d, napi. s, napi. t).

4. СХЕМА АЛГОРИТМА Схема головной программы

5. ТАБЛИЦА ИДЕНТИФИКАТОРОВ

6. ФАЙЛ ИСХОДНЫХ ДАННЫХ

№ Наименование Обозн. стандарта Тип Типоразмер Номер насечки Длина Ширина Толщина

1 Напильник ГОСТ 1465–80 2820 0001 1 100 12 3

2 Напильник ГОСТ 1465–80 2820 0002 2 100 12 3

3 Напильник ГОСТ 1465–80 2820 0003 3 100 12 3

4 Напильник ГОСТ 1465–80 2820 0004 4 100 12 3

5 Напильник ГОСТ 1465–80 2820 0005 5 100 12 3

6 Напильник ГОСТ 1465–80 2820 0011 1 150 16 4

7 Напильник ГОСТ 1465–80 2820 0012 2 150 16 4

8 Напильник ГОСТ 1465–80 2820 0013 3 150 16 4

9 Напильник ГОСТ 1465–80 2820 0014 4 150 16 4

10 Напильник ГОСТ 1465–80 2820 0015 5 150 16 4

11 Напильник ГОСТ 1465–80 2820 0016 1 200 21 5

12 Напильник ГОСТ 1465–80 2820 0017 2 200 21 5

13 Напильник ГОСТ 1465–80 2820 0018 3 200 21 5

14 Напильник ГОСТ 1465–80 2820 0021 1 250 25 6.5

15 Напильник ГОСТ 1465–80 2820 0022 2 250 25 6.5

7. ТЕКСТ ПРОГРАММЫ

Program kyr14;

Uses crt;

TYPE zap=record

Naim:string[45];

nom, d, s, t: real;

end;

Var nap: array[1.20] of zap;

i, n: integer;

f1,f2:text;

st:string;

begin ClrScr;

assign (f1,'dan14.txt');reset (f1);

assign (f2,'res14.res');rewrite (f2);

readln (f1,st);

writeln (f2,' Kyrsovoi proekt');

writeln (f2,' Razrabotka bazi dannix. Napilniki ploskie');

writeln (f2,' Variant 14');

writeln (f2,' Isxodnaia baza dannix');

writeln (f2,st);

for i:=1 to 15 do

with nap[i] do begin

readln (f1,naim, nom, d, s, t);

writeln (f2,naim,' ', nom:1:0,' ':9,d:3:0,' ', s:4:1,' ', t:3:1);

end;

writeln (f2,' Napilniki, nomer nase4ki kotorix raven 2');

writeln (f2,st);

for i:=1 to 15 do

with nap[i] do

if nom=2 then writeln (f2,naim,' ', nom:1:0,' ':9,d:3:0,' ', s:4:1,

' ', t:3:1);

close (f1);close (f2);

end.

8. РЕЗУЛЬТАТЫ РАБОТЫ ПРОГРАММЫ

Kyrsovoi proekt

Razrabotka bazi dannix. Napilniki ploskie

Variant 14

Isxodnaia baza dannix

№ Наименование Обозн. стандарта Тип Типоразмер Номер насечки Длина Ширина Толщина

1 Напильник ГОСТ 1465–80 2820 0001 1 100 12.0 3.0

2 Напильник ГОСТ 1465–80 2820 0002 2 100 12.0 3.0

3 Напильник ГОСТ 1465–80 2820 0003 3 100 12.0 3.0

4 Напильник ГОСТ 1465–80 2820 0004 4 100 12.0 3.0

5 Напильник ГОСТ 1465–80 2820 0005 5 100 12.0 3.0

6 Напильник ГОСТ 1465–80 2820 0011 1 150 16.0 4.0

7 Напильник ГОСТ 1465–80 2820 0012 2 150 16.0 4.0

8 Напильник ГОСТ 1465–80 2820 0013 3 150 16.0 4.0

9 Напильник ГОСТ 1465–80 2820 0014 4 150 16.0 4.0

10 Напильник ГОСТ 1465–80 2820 0015 5 150 16.0 4.0

11 Напильник ГОСТ 1465–80 2820 0016 1 200 21.0 5.0

12 Напильник ГОСТ 1465–80 2820 0017 2 200 21.0 5.0

13 Напильник ГОСТ 1465–80 2820 0018 3 200 21.0 5.0

14 Напильник ГОСТ 1465–80 2820 0021 1 250 25.0 6.5

15 Напильник ГОСТ 1465–80 2820 0022 2 250 25.0 6.5

Napilniki, nomer nase4ki kotorix raven 2

№ Наименование Обозн. стандарта Тип Типоразмер Номер насечки Длина Ширина Толщина

2 Напильник ГОСТ 1465–80 2820 0002 2 100 12.0 3.0

7 Напильник ГОСТ 1465–80 2820 0012 2 150 16.0 4.0

12 Напильник ГОСТ 1465–80 2820 0017 2 200 21.0 5.0

15 Напильник ГОСТ 1465–80 2820 0022 2 250 25.0 6.5

9. АНАЛИЗ РЕЗУЛЬТАТОВ В результаты работы из исходной базы данных, содержащей сведения о напильниках плоских, были выбраны напильники, номер насечки которых nom=2.

ЛИТЕРАТУРА

Рапаков Г. Г., РжеуцкаяС.Ю. Тurbo Pascal для студентов и школьников. — СПБ.: БХВПетербург, 2004. — 352 с.:ил.

Анципорович П.П., Алейникова О. И., Булгак Т. И., Луцко Н. Я. Информатика. Учебно-метод. Пособие к лабораторным работам для студ. машиностроит. спец. В 4 ч. — Мн.: БНТУ, 2009.

ПРИЛОЖЕНИЕ Решение задачи с использованием Microsoft Excel

база данный переменная алгоритм Запускаем Microsoft Excel и создаем таблицу с исходными данными.

При решении задачи в Excel столбцы становятся полями базы данных. Заголовки столбцов становятся именами полей, и каждая строка списка

преобразовывается в запись данных.

После этого в начале каждого столбца базы данных появляются

указатели, нажав на которые можно задать определённое условие.

В нашем случае выбираем ссылку на столбце Номер насечки, выбираем пункт Условие, далее выбираем тип условия равно, в поле, расположенном справа от поля условия, записываем значение 2.

В результате получим базу данных, содержащую сведения о напильниках, номер насечки которых равен 2.

www.