Лабораторная работа 5 Сортировка массивов Пример работы с таблицами строк StringGrid Создать проект р

Работа добавлена на сайт samzan.net:

8

Рис. 7. Создание метода

FormActivate

Рис. 7. Создание метода

FormActivate

Лабораторная работа №5

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

Пример работы с таблицами строк StringGrid

 Создать проект работы с массивами, используя стандартный объект StringGrid, для вычисления суммы векторов Х и У размерностью n=6, m=4, соответственно. Результат вычисления – матрица размерностью n´m.

 Решение

 1. Для создания нового проекта можно воспользоваться командой главного меню Файл Þ Создать...  либо, если вы только что загрузили среду Lazarus, можно, сразу приступать, к созданию нового проекта.

 2. Откажитесь от возможности изменять окна программы, указав значение свойства формы BorderStyle на bsDilog. При запуске программы обратите внимание на отсутствие кнопок для минимизации максимизации окна. Рассмотрите другие свойства и чем они отличаются.

 3. Свойству Caption для Form1 задайте значение – Работа с массивами.

 4. Со вкладки Additional на Form1 поместим три компонента StringGrid.

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

 На пересечении строк и столбцов находятся ячейки. Каждая ячейка может содержать символьную строку или произвольный объект, ассоциируемый с ячейкой. Чаще всего таким объектом является некоторый рисунок. Если для ячеек задан режим редактирования, то на этапе выполнения программы разрешается вводить и редактировать, данные находящиеся в ячейке.

 Нумерация строк и столбцов таблицы начинается с нуля. Координаты каждой ячейки таблицы задаются парой чисел, первое из которых является номером столбца, а второе – номером строки. Например, ячейка Cells[3, 5] расположена в четвертом столбце и шестой строке.

Свойство	Описание свойства
Name	Имя компонента. Используется в программе для доступа к свойствам компонента
Cells	Соответствующий таблице двумерный строковый массив. Если строки и столбцы таблицы нумеровать с нуля, то ячейке (Cell) таблицы, находящейся на пересечении i-й колонки и j-й строки соответствует Cells[i,j] элемент массива
ColCount	Задает число столбцов в таблице
RowCount	Задает число строк в таблице
FixedCols	Задает число фиксированных столбцов таблице, которые не прокручиваются слева. По умолчанию задается один фиксированный столбец
FixedRows	Задает число фиксированных строк таблице, которые не прокручиваются вверх. По умолчанию задается одна фиксированная строка.
Options	Свойство является множеством, определяющим многие свойства таблицы.
Options.goEditing	Признак допустимого редактирования содержимого ячеек таблицы
Options.goColSizing, Options.goRowSizing	Возможность для пользователя изменять с помощью мыши размеры столбцов и строк

  Зададим следующие значения

Свойство	Значение
	StringGrid1	StringGrid2	StringGrid3
Name	SG1	SG2	SG3
ColCount	7	5	5
RowCount	2	2	7
FixedCols	1	1	1
FixedRows	1	1	1
DefaultColWidth	70	70	70
Options.goEditing (возможность редактировать)	True (имеется)	True (имеется)	False (отсутствует)

 Замечание. Чтобы открыть список свойства Options (Параметры) объекта, надо дважды щелкнуть на этом слове в окне Инспектор объектовы данного объекта.

 5. Со вкладки Standard на Form1 поместим два компонента Button. Свойству Caption для Button1 задайте значение – &Вычислить. Свойству Caption для Button2 задайте значение – &Очистить.

Замечание. Символ & в заголовке кнопки указывает на то, что эту кнопку можно нажать также с помощью «горячей» комбинации клавиш Alt + Shift+ буква заголовка, перед которой стоит этот символ (т.е. в нашем случае , например, Alt +Shift + В).

 5. Со вкладки Additional на Form1 поместим командную кнопку BitBtn.

 Компонент BitBtn – кнопка с рисунком и определенным типом действия. Этот компонент обладает такими свойствами:

Свойство	Описание свойства	Примеры значении
Glyph	Рисунок из файла на кнопке	Адрес файла задается в диалоговом окне
Kind	Тип стандартного действия	bkClose (закрывает окно), bkCancel (кнопка "Отменить" диалогового окна), bkYes (кнопка «Да»), bkNo (кнопка "Нет" диалогового окна), bkHelp (кнопка «Помощь») и другие

Если задать стандартное действие, то данную кнопку программировать не нужно. Задайте значение свойства Kind для вставленного объекта bkClose &3акрыть

 7. Сохраним проект в отдельной папке.

 8. Ячейки первой, зафиксированной, строки и первого, зафиксированного, столбца таблицы используются в качестве заголовков колонок и строк таблиц. Во время создания (проектирования) формы приложения установить значения элементов массива Cells нельзя, так как элементы массива доступны только во время работы программы. Поэтому значения элементов массива Cells, соответствующих первой строке и первому столбцу таблиц, устанавливает процедура обработки события onActivate, которое происходит во время обработки формы приложения. Кроме этого процедура вписывает в первые строки и первые столбцы таблиц их заголовки.

 Опишем событие onActivate. Тогда на вкладке События в столбце названий событий для объекта Form1 находим событие onActivate. Этому стандартному событию соответствует название метода (Form1Activate), которое появится после двойного щелчка мыши в правом столбце (столбец названий обработчиков событий). В этот момент в окно текста программы добавляется шаблон базового кода (процедуры) для этого метода. Шаблон необходимо заполнить соответствующими командами.

procedure TForm1.FormActivate(Sender: TObject);

var i:byte;

begin

//Для SG1

//Записываем символ X в ячейку находящуюся

//в первом столбике и первой строке ячейка

// - Cells [0,0]

SG1.Cells[0,0]:=' X ';

//Ячейка Cells[0,l] указывает на количество строк

//т.е. массив одномерный

SG1.Cells[0,1]:='Row N 1';

//Заполняются заголовки столбцов

For i:=1 to SG1.ColCount-1 do

SG1.Cells[i,0]:='Col N'+IntToStr(i);

//Для SG2

SG2.Cells[0,0]:=' Y ';

SG2.Cells[0,1]:='Row N 1';

For i:=1 to SG2.ColCount-1 do

SG2.Cells[i,0]:='Col N'+IntToStr(i);

//Для SG3

SG3.Cells[0,0]:=' X+Y ';

//Заполняются заголовки столбцов

fOR i:=1 to SG3.ColCount-1 do

SG3.Cells[i,0]:='Col N'+IntToStr(i);

//Заполняются заголовки строк

fOR i:=1 to SG3.RowCount-1 do

SG3.Cells[0,i]:='Row N'+IntToStr(i);

end;

 9. Запрограммируем кнопку «Вычислить».

procedure TForm1.Button1Click(Sender: TObject);

Const N=6;M=4;

var i,j:byte;

 x:array [1..N]of integer;

 y:array [1..M]of integer;

 z:array [1..N,1..M]of integer;

begin

//Заполняем первую таблицу SG1 - массив Х

fOR i:=1 to SG1.ColCount-1 do

x[i]:=StrToInt(SG1.Cells[i,1]);

//Заполняем первую таблицу SG2 - массив У

fOR j:=1 to SG2.ColCount-1 do

y[j]:=StrToInt(SG2.Cells[j,1]);

//Вычисляем сумму двух векторов

fOR i:=1 to N do

fOR j:=1 to M do

begin

z[i,j]:=x[i]+y[j];

SG3.Cells[j,i]:=IntToStr(z[i,j]);

end;

end;

Для решения этой задачи можно было не использовать промежуточные массивы, а работать прямо с ячейками таблиц:

fOR i:=1 to SG1.ColCount-1 do

fOR j:=1 to SG2.ColCount-1 do

SG3.Cells[j,i]:=IntToStr(StrToInt(SG1.Cells[i,1])+StrToInt(SG2.Cells[j,1]));

 10. Запрограммируем кнопу «Очистить». Необходимо очистить ячейки всех трех таблиц.

procedure TForm1.Button2Click(Sender: TObject);

var i,j:byte;

begin

with SG1 do

for i:=1 to ColCount do Cells[i,1]:=' ';

with SG2 do

for i:=1 to ColCount do Cells[i,1]:=' ';

with SG3 do

for i:=1 to RowCount do

for j:=1 to ColCount do Cells[j,i]:=' ';end;

 Результат работы проекта приведен на рис. 8.

Рис. 8. Результат работы проекта «Работа с массивами»

Задание к лабораторной работе №5

 Объекты: Form, StringGrid, Button, кнопка BitBtn. 

 Создать проект работы с массивами, используя стандартный объект StringGrid. Разместить на форме четыре таблицы StringGrid –две матрицы (до и после сортировки) и два одномерных массива, которые строятся по заданному правилу из элементов матрицы (до и после сортировки). Типы и количество кнопок аналогично описанной выше задаче.

 Ввести матрицу с использованием генератора случайных чисел. Отобразить числа в первой таблице StringGrid.

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

 Промежуточные результаты (одномерные массивы) в таблицах два и три.

1.  Дана целочисленная прямоугольная матрица. Характеристикой строки целочисленной матрицы назовем сумму ее положительных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с ростом характеристик. Использовать сортировку обменами.
2.  Сортировка простыми вставками. Дана действительная матрица размера п´m (). Упорядoчить (переставить) элементы  строки матрицы по неубыванию значений.
3.  Дана целочисленная прямоугольная матрица. Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с неубыванием характеристик. Использовать сортировку выбором.
4.  Дана целочисленная прямоугольная матрица. Характеристикой столбца целочисленной матрицы назовем сумму модулей его отрицательных нечетных элементов. Переставляя столбцы заданной матрицы, расположить их в соответствии с ростом характеристик. Использовать сортировку простыми вставками.
5.  Сортировка обменами. Дана действительная матрица размера п´m. Упорядoчить (переставить) строки матрицы по неубыванию значений последних элементов строк.
6.  Дана целочисленная прямоугольная матрица. Характеристикой строки целочисленной матрицы назовем модуль суммы ее отрицательных элементов. Переставляя строки заданной матрицы, расположить их в соответствии с невозрастанием характеристик. Использовать сортировку выбором.
7.  Сортировка обменами. Дана действительная матрица размера п´m. Упорядoчить (переставить) строки матрицы по невозрастанию значений первых элементов столбцов.
8.  Сортировка простыми вставками. Дана действительная матрица размера п´m. Упорядoчить (переставить) строки матрицы по невозрастанию сумм элементов строк.
9.  Дана целочисленная прямоугольная матрица. Характеристикой строки целочисленной матрицы назовем среднее арифметическое значение ее элементов. Переставляя строки заданной матрицы, расположить их в соответствии с убыванием характеристик. Использовать сортировку выбором.
10.  Сортировка обменами. Дана действительная матрица размера п´m. Упорядoчить (переставить) строки матрицы по неубыванию значений наименьших элементов строк.
11.  Сортировка простыми вставками. Дана действительная матрица размера п´m. Упорядoчить (переставить) строки матрицы по невозрастанию значений наибольших элементов строк.
12.  Сортировка обменами. Дана действительная матрица размера п´m. Упорядoчить (переставить) строки матрицы по неубыванию значений разности максимальных минимальных элементов строк.
13.  Сортировка выбором. Дана целочисленная матрица размера n× n. Характеристикой столбца, является среднее геометрическое его положительных элементов. Переставить столбцы матрицы по неубыванию характеристик.

 Случайные числа

 В системе генерации случайных чисел используются процедура Randomize и функция Random.

 Процедура Randomize инициализирует генератор случайных чисел. Синтаксис вызова имеет следующий вид:

Randomize;

 Эта процедура читает значение системных часов и применяет его в качестве стартового значения, задающего всю дальнейшую последовательность случайных чисел. Эта процедура позволяет при последовательных запусках программы получать различные случайные последовательности. Таким образом происходит переустановка базы генерации случайных чисел.

 Строго говоря, последовательность чисел является не случайной, а псевдослучайной, так как, начав с того же стартового значения, можно повторить всю последовательность случайных чисел.

 Для получения псевдослучайных чисел используется функция Random. Синтаксис ее вызова имеет следующий вид:

случайное_число := Random(верхняя_граница);

 Этот оператор присвативает переменной случайное_число равномерно распределенное случайное значение типа Integer, находящееся в диапазоне от нуля до верхняя_граница, т.е. [0,верхняя_граница).

 Параметр верхняя_граница необязателен. В этом случае генератор полагает, что верхняя_граница равна 1, т.е. функция возвращает случайное вещественное число из промежутка [0, 1).

 Случайные целые числа, принадлежащие отрезку [а, b], вычисляют по формуле           а+ Random(b – a + 1).

 Замечание. Не комбинируйте вызов процедуры Randomize в циклах вместе с обращением к функции Random. Обычно процедура Randomize вызывается только один раз до вызова функции Random (т.е. до цикла).

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

 Сортировка массива – это перерасположение элементов массива в заданном порядке.

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

 Для оценки быстродействия алгоритмов различных методов сортировки, как правило, используют два показателя:

•  количество присваиваний;
•  количество сравнений.

 Все методы сортировки можно разделить на две большие группы:'

•  прямые методы сортировки;
•  улучшенные методы сортировки.

 Прямые методы сортировки по принципу, лежащему в основе метода, в свою очередь разделяются на три подгруппы:

 1) сортировка вставкой (включением);

 2) сортировка выбором (выделением);

 3) сортировка обменом ("пузырьковая" сортировка).

 Улучшенные методы сортировки основываются на тех же принципах, что и прямые, но используют некоторые оригинальные идеи для ускорения процесса сортировки. Прямые методы на практике используются довольно редко, так как имеют относительно низкое быстродействие. Однако они хорошо показывают суть основанных на них улучшенных методов. Кроме того, в некоторых случаях (как правило, при небольшой длине массива и/или особом исходном расположении элементов массива) некоторые из прямых методов могут даже превзойти улучшенные методы.

 Сортировка вставкой

 Принцип метода:

 Массив разделяется на две части: отсортированную и неотсортированную. Элементы из неотсортированной части поочередно выбираются и вставляются в отсортированную часть так, чтобы не нарушить в ней упорядоченность элементов. В начале работы алгоритма в качестве отсортированной части массива принимают только один первый элемент, а в качестве неотсортированной части – все остальные элементы

 Таким образом, алгоритм будет состоять из n-1-го прохода (n – размерность массива), каждый из которых будет включать четыре действия:

•  взятие очередного i-го неотсортированного элемента и сохранение его в дополнительной переменной,
•  поиск позиции j в отсортированной части массива, в которой присутствие взятого элемента не нарушит упорядоченности элементов;
•  сдвиг элементов массива от i-1-гo до j-го вправо, чтобы освободить найденную позицию вставки;
•  вставка взятого элемента в найденную j-ю позицию.

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

 Сортировка выбором

 Принцип метода:

 Находим (выбираем) в массиве элемент с минимальным значением на интервале от 1-го элемента, до n-го (последнего) элемента и меняем его местами с первым элементом. На втором шаге находим элемент с минимальным значением на интервале от 2-го до n-го элемента и меняем его местами со вторым элементом.

 И так далее для всех элементов до n-1-го.

 Сортировка обменом ("пузырьковая" сортировка)

 Принцип метода:

 Слева направо поочередно сравниваются два соседних элемента, и если их взаиморасположение не соответствует заданному условию упорядоченности, то они меняются местами. Далее берутся два следующих соседних элемента и так далее до конца массива.

 После одного такого прохода на последней n-ой позиции массива будет стоять максимальный элемент ("всплыл" первый "пузырек") Поскольку максимальный элемент уже стоит на своей последней позиции, то второй проход обменов выполняется до n-1-ro элемента. И так далее. Всего требуется n-1 проход.

1. Философия неравенства НА Бердяева
2. Тяжелая сочетанная травма.html
3. Реферат- The USA economy
4. Реферат- Розселення й чисельність найдавнішого людства
5. Устойчивое развитие территорий- картографогеоинформационное обеспечение 2324 июля 2014 г
6. Інтернаціоналізація підприємств
7. Лабораторна робота ’ 6 ДІАГРАМИ СТАНІВ ТА ПЕРЕХОДІВ Теоретичні відомості Діаграми станів та переходів s
8. Тема- МонополияИздержки фирмымонополиста заданы функцией ; спрос на товар фирмы ~ тогда монопольная цена и
9. ТЕМА- Ремонт та технічне обслуговування материнських плат та центральних процесорів
10. Реферат- Исследование структуры и физико-механических свойств композиций на основе полиэтилена и пространственно сшитого полистирола
11. Реферат на тему - Социальная стратификация современного общества Выполнил- студент.
12. Иначе говоря главная цель Бога состоит в том чтобы радоваться Своей славе
13. О пользе педагогической литературы он писал- Пустая ни на чем не основанная теория оказывается такой же н
14. Королевские комнаты а также аптекумузей Под черным орлом в подземельях которой можно почувствовать се
15. а 11 б 10 в 12 В каком году в РФ узаконено нормирование предельно допустимых доз облучения населения- а 1994 б.
16. Тема 1. Ентропія і інформація імовірнісних схем
17. Обучение общим методам решения задач
18. О дорожных фондах от 18 октября 1991 года 17591
19. на тему- Исследование ассортимента парфюмернокосметических товаров на примере отдела ТК КрасТЭЦ г
20. Проблема рабства в США

Материалы собраны группой SamZan и находятся в свободном доступе