1d - одновимірний масив [0. len - 1]
//len - довжина масиву m1d
//sr - середнє арифметичне значення елементів масиву m1d;
//повертає відкоригований одновимірний масив 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) gt; 1.5)) thennot ((m1d [i]/sr) lt; 0.5) then begin
SetLength (m1d1, len1 + 1);// Збільшуємо довжину масиву m1d1 на 1d1 [len1]:=m1d [i];// Збережемо елемент масиву m1d в масиві m1d1:=len1 + 1;// Збільшимо на 1 кількість елементів масиву m1d1 ;;:=len1;// Повертаємо кількість елементів масиву m1d1;
//процедура виведення одновимірного масиву
//m1d - одновимірний масив [0. len - 1]
//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) вводимо потрібний розмір масиву, з яким будемо працювати. Натискаємо Змінити raquo ;. Записуємо потрібні нам цифри (Малюнок 1.2). Натискаємо Розрахувати raquo ;. У edt_xlen заноситься розмір отриманого одновимірного масиву. Після чого ми знаходимо середнє арифметичне значення елементів масиву і записуємо це число в edt_xsr. Наступним дією ми дізнаюся кількість видалених елементів масиву, і отриманий результат заносимо в edt_del. З здійсненних дій ми формуємо новий відкоригований масив і заносимо отримані вересня стрінгрід, і знаходимо середнє арифметичне значення елементів цього масиву.
Малюнок 1.1
Малюнок 1.2
Малюнок 1.3
Висновок
Метою даної курсової роботи є написання працездатної програми по заданих умов. Ознайомився і чітко засвоїв основи алгоритмізації і особливості написання об'єктно-орієнтованих програм в порівнянні з консольними додатками.
Отримані знання стануть істотною підмогою в подальшій роботі.
Література
1. Архангельський, А.Я. Програмування в Delphi: підручник з класичним версіями Delphi/А.Я. Архангельський.- Москва: Біном, 2008. - +1154 с.
2. Бобровський, С.І. Delphi 7: навчальний курс/С.І. Бобровський.- Санкт-Петербург: Питер, 2008. - 736 с.
. Графічні засоби Delphi: методичні вказівки для самостійної роботи студен...
