6.3 Структуры данных

Данные о леспромхозе представлены следующей информацией:

• наименование и шифр леспромхоза;

• объем вывозки по сортиментам;

• состав перерабатывающих производств;

• наименование, шифр, объем выпуска продукции;

• товарная продукция по видам.

Иерархическая модель данных:

Рисунок 10- Иерархическая модель данных

Рисунок 11- Реляционная модель данных

Рисунок 12 - Сетевая модель данных

6.4 Сортировка массивов

Сортировка методом пузырька. Для каждого i-го элемента массива (i меняется от 2 до М) просматривают массив с конца от К=М до i попарно. В пару выбирают К-й и (К-1)-й элементы. Если (К-1)-й элемент больше К-го, то проводят обмен элементов пары.

Листинг программы:

program sortirovka;

uses

crt,dos;

var

i,j,m,n,k:integer;

a:array[1..1000]of integer;

sr,pr:longint;

h1, m1, s1, hund1,h2, m2, s2, hund2: Word;

begin

randomize;

clrscr;

write ('Введите количество элементов ');

readln(n);

writeln('Произвольный массив');

for i:=1 to n do a[i]:=random(100);

pr:=0;sr:=0;

gettime(h1,m1,s1,hund1);

write('Начальное время сортировки: ');

writeln(h1,':', m1,':', s1,'.' ,hund1);

for i:=1 to n do

for j:=i+1 to n do

begin

if a[i]>a[j] then

begin

m:=a[i];

a[i]:=a[j];

a[j]:=m;

inc(pr);

end;

inc(sr);

end;

gettime(h2,m2,s2,hund2);

for i:=1 to n do

write(‘ a[,’i,’] = ’, a[i]);

write('Конечное время сортировки: ');

writeln(h2,':', m2,':', s2,'.' ,hund2);

writeln('Время сортировки - ', h2-h1,':',m2-m1,':',s2-s1,':',Hund2-Hund1);

writeln('Количество перестановок - ',pr,' Количество сравнений - ',sr);

readln;

end.

Вывод:

Для сравнения работы, оптимизации программы сравним входные-выходные данные и обращение программы с ними, это и будет качественной характеристикой программы.

Массив	Количество сравнений	Количество обменов	Время работы
1..1000	749506	468345	1/1000
1000..1	749512	0	1/1000
Random(1000)	907678	450245	1/1000

Таблица 10 – Основные характеристики сортировки

Разберем сортировку 1, сортировку методом пузырька.(Приложение Б) Входные данные будут представлены в виде массива. Элементы сначала будут упорядочены в порядке, совпадающем с порядком сортировки данных, затем в обратном, и в последний раз массив будет заполнен случайными числами. Количество сравнений, обменов, время работы для каждого случая представлены в таблице 10.

7 Задания на курсовую работу

7.1 Системы счисления

1. Даны числа А=100000₂ В=11011₂. Найти сумму, разность, произведение. Даны числа А=13421₁₆, В=ВАDС₁₆. Найти сумму, разность. Проверить переводом в десятичную. А=1234,4321₅ перевести в 10, 2, 8. В=AD,FA₁₆ перевести в 2, 10, 8.

2. Даны числа А=1010000₂ В=1111₂. Найти сумму, разность, произведение. Даны числа А=13421₈, В=7567₈. Найти сумму, разность. Проверить переводом в десятичную. А=32102,0321₄ перевести в 10, 2, 8. В=A1,ВA₁₃ перевести в 2,1 6, 8, 10.

3. Даны числа А=11101100₂ В=1011₂. Найти сумму, разность, произведение. Даны числа А=13421₁₂, В=7567₁₂. Найти сумму, разность. Проверить переводом в десятичную. А=32102,0321₈ перевести в 10, 2, 16. В=D1,0A₁₄ перевести в 2, 16, 8, 10.

4. Даны числа А=10100110₂ В=10001₂. Найти сумму, разность, произведение. Даны числа А=689214₁₆, В=ADFBA₁₆. Найти сумму, разность. Проверить переводом в десятичную. А=AD,3A₁₅ перевести в 10, 16, 8. В=C1,В0₁₃ перевести в 2,10, 8, 16.

5. Даны числа А=1111000₂ В=1111₂. Найти сумму, разность, произведение. Даны числа А=13421₉, В=7567₉. Найти сумму, разность. Проверить переводом в десятичную. А=32102,0321₁₀ перевести в 16, 2, 8, 5. В=AD,ВA₁₇ перевести в 2, 10, 8, 7.

6. Даны числа А=1011000₂ В=111011₂. Найти сумму, разность, произведение. Даны числа А=56723₁₈, В=ADFE₁₈. Найти сумму, разность. Проверить переводом в десятичную. А=348,AD₁₃ перевести в 10, 2, 8, 16. В=E0,01₁₇ перевести в 2, 10, 8,12 .

7. Даны числа А=1001000₂ В=1111₂. Найти сумму, разность, произведение. Даны числа А=65329₁₁, В=7567₁₁. Найти сумму, разность.

Проверить переводом в десятичную. А=732,041₈ перевести в 10, 2, 16. В=A5,ВA₁₅ перевести в 2, 10, 8, 16.

8. Даны числа А=100100000₂ В=101111₂. Найти сумму, разность, произведение. Даны числа А=65329₁₇, В=78АВ₁₇. Найти сумму, разность. Проверить переводом в десятичную. А=432,0451₁₂ перевести в 10, 2, 16, 8, В=1000101,001010₂ перевести в 7, 10, 8, 16.

9. Даны числа А=11001000₂ В=111111₂. Найти сумму, разность, произведение. Даны числа А=DEA453₁₆, В=7DFF₁₆. Найти сумму, разность. Проверить переводом в десятичную. А=1532,0451₆ перевести в 10, 2, 16, 8, В=EA,0E₁₉ перевести в 2, 10, 8, 16.

10. Даны числа А=1001110₂ В=11111₂. Найти сумму, разность, произведение. Даны числа А=1010231₁₁, В=987956₁₁. Найти сумму, разность. Проверить переводом в десятичную. А=21201,0210211₃ перевести в 10, 2, 16, 8. В=101000,10101₂ перевести в 2, 10, 8, 16, 7.