Материал: Разработка программы на языке программирования Delphi

// возвращает откорректированный одномерный массив m1d1 и его длину

function TForm1. correct (m1d: t1dArray; len: Integer; sr: Real;m1d1: t1dArray): Integer;: Integer; // индекс массива

len1: Integer; // количество элементов откорректированного массива

begin: = 0;i: = 0 to len - 1 do

begin

// если элемент отличается от среднего арифметического значения

// более чем на 50%, то не включаем его в откорректированный

// одномерный массивnot ( ( (m1d [i] / sr) > 1.5)) thennot ( (m1d [i] / sr) < 0.5) then begin

SetLength (m1d1, len1 + 1); // увеличиваем длину массива m1d1 на 1d1 [len1]: = m1d [i]; // сохраним элемент массива m1d в массиве m1d1: = len1 + 1; // увеличим на 1 количество элементов массива m1d1;;: = len1; // возвращаем количество элементов массива m1d1;

// процедура вывода одномерного массива

// len - длина массива m1dTForm1. vyvodmas (m1d: t1dArray; len: Integer);: Integer; // индекс массива

// зададим количество столбцов_y. ColCount: =len;

// подпишем столбцыi: = 0 to len - 1 do strgrd_y. Cells [i,0]: =IntToStr (i+1);

// заполним таблицу значениями одномерного массиваi: = 0 to len - 1 do strgrd_y. Cells [i,1]: =FloatToStr (m1d [i]);;TForm1. btnRaschetClick (Sender: TObject);

begin

// формируем двумерный массив c данными эксперимента

if (vvodmas (A, m, n)) then

begin

// нахождения пересечения двух множеств и формирования одномерного массива

xlen: = peresech (A, m, n, X);

// находим среднее арифметическое значене элементов массива X: = srednee (X, xlen);

// формируем откорректированный одномерный массив

ylen: = correct (X, xlen, xsr, Y);

// находим среднее арифметическое значене элементов массива Y: = srednee (Y, ylen);

// вывод результатов

// Размер полученного одномерного массива

edt_xlen. Text: =IntToStr (xlen);

// Среднее арифметическое значение элементов массива_xsr. Text: =FloatToStr (xsr);

// Количество удаленных элементов массива

edt_del. Text: =IntToStr (xlen-ylen);

// Размер откорректированного массива_ylen. Text: =IntToStr (ylen);

// Среднее арифметическое значение элементов откорректированного массива

edt_ysr. Text: =FloatToStr (ysr);

// Элементы откорректированного массива(Y, ylen);

end;;TForm1. FormCreate (Sender: TObject);_n (3);;.

4. Описание программы

Запускаем программу. В открывшемся окне (Рисунок 1.1) вводим нужный размер массива, с которым будем работать. Нажимаем "Изменить". Записываем нужные нам цифры (Рисунок 1.2). Нажимаем "Рассчитать". В edt_xlen заносится размер полученного одномерного массива. После чего мы находим среднее арифметическое значение элементов массива и записываем это число в edt_xsr. Следующим действием мы узнаю количество удаленных элементов массива, и полученный результат заносим в edt_del. Из выполнимых действий мы формируем новый откорректированный массив и заносим полученные числа в стрингрид, и находим среднее арифметическое значение элементов этого массива.

Рисунок 1.1

Рисунок 1.2

Рисунок 1.3

Заключение

Целью данной курсовой работы является написание работоспособной программы по заданным условиям. Ознакомился и чётко усвоил основы алгоритмизации и особенности написания объектно-ориентированных программ по сравнению с консольными приложениями.

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

Литература

1.      Архангельский, А.Я. Программирование в Delphi: учебник по классическим версиям Delphi / А.Я. Архангельский. - Москва: Бином, 2008. - 1154 с.

2.      Бобровский, С.И. Delphi 7: учебный курс / С.И. Бобровский. - Санкт-Петербург: Питер, 2008. - 736 с.

.        Графические средства Delphi: методические указания для самостоятельной работы студентов механических специальностей дневной и заочной форм обучения по дисциплинам: "Информатика", "Вычислительная техника, программирование и расчеты на ЭВМ" / УО "ВГТУ"; сост.В.П. Терентьев, Т.П. Стасеня. - Витебск, 2007. - 61 с.

.        Климов, Ю.С. Программирование в среде Turbo Pascal 6.0: справ. пособие / Ю.С. Климов, А.И. Касаткин, С.М. Мороз. - Минск: Вышэйшая школа, 1992. - 158 с.

.        Методические указания к курсовому проектированию для студентов механических специальностей по предметам цикла "Информатика" / УО "ВГТУ"; сост.В.П. Терентьев, А.С. Дягилев, Т.П. Стасеня. - Витебск: УО "ВГТУ", 2004. - 81 с.

.        Программирование на персональных ЭВМ: практикум / под ред. Д.В. Офицерова. - Минск: Вышэйшая школа, 1993. - 256 с.

.        Сурков, Д.А. Программирование в среде Borland Pascal для Windows: справочное пособие / Д.А. Сурков, К.А. Сурков, А.Н. Вальвачев. - Минск: Вышэйшая школа, 1996. - 432 с.

.        Фаронов, В.В. Delphi: учебник / В.В. Фаронов. - Санкт-Петербург: Питер, 2010. - 640 с.

.        Фаронов, В.В. Delphi. Программирование на языке высокого уровня: учебник для студентов вузов, обучающихся по направлению подготовки дипломированных специалистов "Информатика и вычислительная техника" / В.В. Фаронов. - Санкт-Петербург: Питер, 2010, 2007. - 640 с.

.        Фаронов, В.В. Основы Турбо Паскаля: учеб. пособие / В.В. Фаронов. - Москва: Учебно-инженерный центр "МВТУ-ФЕСТО ДИДАКТИК", 1992. - 304 с.

.        Язык программирования Object Pascal (Delphi): курс лекций по дисциплине "Вычислительная техника, программирование и расчеты на ЭВМ" для студентов механических спец. / УО "ВГТУ"; сост.В.П. Терентьев. - Витебск: УО "ВГТУ", 2005. - 75 с.